FiveTech Software tech 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.

Sabes cual es la funcion que reemplaza al TIPCLIENTHTTP() para lo https

Otra alternativa es 'wget.exe', yo lo uso desde hace tiempo por un consejo de alguien de este foro y funciona muy bien, probado en XP, W7 y W8.1 tanto con HTTP como con HTTPS
Saludos

QUE VERSION DE WGET USAS ?

Hola

wGet v.1.15

Saludos