URLDOWNLOADTOFILE not run
Posted: Mon Oct 07, 2019 11:16 am
I use it to downloada file but today this function not run ok ( on window Seven)
How I can resolve it ?
the test
How I can resolve it ?
the test
Code: Select all
Static Function DescargFichDesdeUrl(cPath)
local cZipFile := cPath+"storico_"+DtoS(Date())+".zip"
local cUrl := URL_LOTTO
DELETEURLCACHEENTRY( cUrl )
? cZipFile
URLDOWNLOADTOFILE( 0, cUrl, cZipFile )
RETURN NIL
DLL STATIC FUNCTION DELETEURLCACHEENTRY( cUrl AS LPSTR ) AS BOOL;
PASCAL FROM "DeleteUrlCacheEntryA" LIB "wininet.dll"
DLL FUNCTION URLDOWNLOADTOFILE( pCaller AS LONG, cUrl AS LPSTR, cFileName AS LPSTR, nReserved AS DWORD, nFnCB AS LONG ) AS LONG;
PASCAL FROM "URLDownloadToFileA" LIB "urlmon.dll"