FiveTech Support Forums

Amigos,

¿Alguien lo ha conseguido descargar desde https://www.myserver.com/dato.txt?.

Muchas gracias.

Amigo a mi me funciona al 100% esto con xHarbour :

cHttp:='https://www.myserver.com/dato.txt'
if !URLDownLoad(cHttp, 'c:\MisDescargas\Respuesta.txt')
mensaje('Error : '+cHttp)
else
? memoread('c:\MisDescargas\Respuesta.txt')
endif

----------------------------
func URLDownLoad(cUrl, cSaveAs)
hLib = LOADLIBRARY( "urlmon.dll")
if !URLDownloadToFile( 0, cUrl, cSaveAs, 0, 0 ) == 0
retu.f.
endif
FREELIBRARY( hLib )
retu.t.

DLL32 FUNCTION URLDownloadToFile(pCaller AS LONG,szURL AS STRING, szFileName AS STRING, dwReserved AS LONG, lpfnCB AS LONG);
AS LONG PASCAL;
FROM "URLDownloadToFileA";
LIB hlib

oUrl := tURL():New(http+cDirSer+"/zerusbas.rar" )
oClient := tIPClientHTTP():New( oUrl )
oClient:nConnTimeout := nSegEsp
IF oClient:Open( oUrl )
oClient:ReadToFile( cRutDes+"zerusbas.rar",nil,nil,"no borra chr(13)")
oClient:Close()
ELSE
MYMEN("Error. No fue posible conectarse al servidor "+cNomSer)
meter(9)
return
ENDIF

Hola,

Muchas gracias.

URLDownloadToFile es lo que utilizaba, pero en Windows 8 falla bastante sin motivo aparente.

Y tIPClientHTTP():New( oUrl ) no funciona con HTTPS.

lucasdebeltran wrote:Hola,

Muchas gracias.

URLDownloadToFile es lo que utilizaba, pero en Windows 8 falla bastante sin motivo aparente.

Y tIPClientHTTP():New( oUrl ) no funciona con HTTPS.

QUE VERSION DE WGET USAS ?

Hola

wGet v.1.15

Saludos