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"