URLDownloadToFile()

[Baxajaun]

Good morning,

i'm using Antonio's sample http://forums.fivetechsupport.com/viewtopic.php?f=3&t=32310 to download a file from URL, the file hasn't downloaded completed. But if i put the URL in the navigator, the file download completed.
Have you the same problema ? Have you solved ?

Best regards

[Enrico Maria Giordano]

This is what I'm using to download a file from http url. Try it and let me know if it works for you.

Code: Select all  Expand view

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL cUrl := "http://www.emagsoftware.it/charlie.gif"

    ? DELETEURLCACHEENTRY( cUrl )

    ? GETLASTERROR()

    ? GETURLTOFILE( cUrl )

    RETURN NIL


DLL STATIC FUNCTION DELETEURLCACHEENTRY( cUrl AS LPSTR ) AS BOOL;
    PASCAL FROM "DeleteUrlCacheEntryA" LIB "wininet.dll"


STATIC FUNCTION GETURLTOFILE( cUrl, cFile, lAuth )

    LOCAL lOk := .F.

    LOCAL oCli

    DEFAULT lAuth := .F.

    TRY
        oCli = TIPClientHttp():New( cUrl )

        IF lAuth; oCli:UseBasicAuth(); ENDIF

        IF EMPTY( oCli ); BREAK; ENDIF

        oCli:nConnTimeout = -1

        IF !oCli:Open(); BREAK; ENDIF

        DEFAULT cFile := oCli:oUrl:cFile

        IF !oCli:ReadToFile( cFile ); BREAK; ENDIF

        lOk = !EMPTY( oCli:cReply ) .AND. "OK" $ UPPER( oCli:cReply )

        IF !lOk; FERASE( cFile ); ENDIF
    CATCH
    END

    IF !EMPTY( oCli ); oCli:Close(); ENDIF

    RETURN lOk

EMG

[Baxajaun]

Thanks Enrico !

The problem is from googledrive, the directory is not shared as public. We must shared as public if we want to downloaad it.

Best rgards,

[Enrico Maria Giordano]

Can't you use userid and password embedded in the url?

Sample:

http://userid:password@www.emagsoftware.it

EMG

[Baxajaun]

Enrico,

is a file from shared folder on Google Drive. Is enough sharing as "Public folder".

Best regards

[Enrico Maria Giordano]

Ok.

EMG