Hola amigos.
Les solicito muy amablemente, a los que tengan la version 1204 de Fivewin, probarme el siguiente codigo, y postear aqui los resultados.
El problema que tengo es que solo descarga desde http, no de https.
Gracias de antemano.
Saludos.
PD: Solucion en
viewtopic.php?f=6&t=37703&sid=3cb5f50584b22e3c0c729b3083809143#p225509
Les solicito muy amablemente, a los que tengan la version 1204 de Fivewin, probarme el siguiente codigo, y postear aqui los resultados.
El problema que tengo es que solo descarga desde http, no de https.
Gracias de antemano.
#include "FiveWin.ch"
function DescargFichDesdeUrl()
local cFile, cUrl, aFich :={},aFiles:={}
聽 聽cFile := "c:\download\Fivetechv.png" 聽 聽 聽//pueden cambiar carpeta de descarga
聽 聽cUrl 聽:= "https://bitbucket.org/fivetech/fivewin-contributions/downloads/Fivetechv.png" 聽 聽 // HTTPS
聽 聽aadd(aFich,{cUrl,cFile})
聽 聽cFile := "c:\download\PruebaGDI_.zip" 聽 //pueden cambiar carpeta de descarga
聽 聽cUrl 聽:= "http://www.Pflegeplus.com/DOWNLOADS/Gditest1.zip" 聽 聽// http
聽 聽aadd(aFich,{cUrl,cFile})
聽 聽AEval(aFich,{|a,n| Descargando( aFich[n,1],aFich[n,2],aFiles ) })
聽 聽XBROWSE( aFiles, "DESCARGAS" )
RETURN NIL
//--------------------------------------------------------//
Function Descargando(cUrl,cFile,aFiles)
local nRet
聽 聽MsgRun("Aguarde por favor, descargando...",,{|| ;
聽 聽 聽 聽 聽 聽DELETEURLCACHEENTRY( cUrl ) ,;
聽 聽 聽 聽 聽 聽nRet := URLDOWNLOADTOFILE( 0, cUrl, cFile ), SysRefresh() })
聽 聽
聽 聽if nRet == 0
聽 聽 聽 aadd( aFiles,{cUrl, cFile} )
聽 聽else
聽 聽 聽 aadd( aFiles,{cUrl, "Descarga ha fallado" +" 聽INET_E_DOWNLOAD_FAILURE (0x800C0008L or -2146697208)" } )
聽 聽 聽 MsgInfo(nRet,"Error INET")
聽 聽endif
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"Saludos.
PD: Solucion en
viewtopic.php?f=6&t=37703&sid=3cb5f50584b22e3c0c729b3083809143#p225509
Francisco J. Alegr铆a P.
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
Chinandega, Nicaragua.
Fwxh-MySql-TMySql

