download file from url

[Natter]

Hi. all !

Is it possible to download a file from a URL (not via FTP)

[Enrico Maria Giordano]

Here it is:

Code: Select all | Expand

FUNCTION GETURLTOFILE( cUrl, cFile, cUsr, cPsw )

    LOCAL lOk := .F.

    LOCAL oHtp, oStr

    DEFAULT cFile := FILENAME( STRTRAN( cUrl, "/", "\" ) )

    TRY
        oHtp = CREATEOBJECT( "MSXML2.XMLHTTP" )

        oHtp:Open( "POST", cUrl, .F., cUsr, cPsw )

        oHtp:Send()

        IF oHtp:Status != 200 THEN BREAK

        oStr = CREATEOBJECT( "ADODB.Stream" )

        oStr:Open()

        oStr:Type = 1

        oStr:Write( oHtp:ResponseBody )

        oStr:SaveToFile( cFile, 2 )

        oStr:Close()

        lOk = .T.
    CATCH
    END

    RETURN lOk

EMG

[Baxajaun]

Hi Natter,

please, review [url]viewtopic.php?f=6&t=32803&p=193189&hilit=URLDownloadToFile#p193189[/url]

Best regards,

[Natter]

Enrico, Baxajaun thanks !

Used the function UrlDownLoadToFile. Everything works fine