descargar fichero desde un servidor Https

Post Reply
User avatar
lucasdebeltran
Posts: 1303
Joined: Tue Jul 21, 2009 8:12 am
Contact:

descargar fichero desde un servidor Https

Post by lucasdebeltran »

Amigos,

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

Muchas gracias.
Muchas gracias. Many thanks.

Un saludo, Best regards,

Harbour 3.2.0dev, Borland C++ 5.82 y FWH 13.06 [producción]

Implementando MSVC 2010, FWH64 y ADO.

Abandonando uso xHarbour y SQLRDD.
User avatar
Joel Andujo
Posts: 109
Joined: Fri Oct 07, 2005 3:14 pm
Location: Cd. Obregón, Sonora, México
Contact:

Re: descargar fichero desde un servidor Https

Post by Joel Andujo »

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
russimicro
Posts: 179
Joined: Sun Jan 31, 2010 3:30 pm
Location: Bucaramanga - Colombia

Re: descargar fichero desde un servidor Https

Post by russimicro »

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
User avatar
lucasdebeltran
Posts: 1303
Joined: Tue Jul 21, 2009 8:12 am
Contact:

Re: descargar fichero desde un servidor Https

Post by lucasdebeltran »

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.
Muchas gracias. Many thanks.

Un saludo, Best regards,

Harbour 3.2.0dev, Borland C++ 5.82 y FWH 13.06 [producción]

Implementando MSVC 2010, FWH64 y ADO.

Abandonando uso xHarbour y SQLRDD.
elmoiquique
Posts: 257
Joined: Wed May 16, 2007 9:40 pm
Location: Iquique Chile

Re: descargar fichero desde un servidor Https

Post by elmoiquique »

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
Fivewin 11.07
User avatar
José Vicente Beltrán
Posts: 279
Joined: Mon Oct 10, 2005 8:55 am
Location: Algeciras, España
Contact:

Re: descargar fichero desde un servidor Https

Post by José Vicente Beltrán »

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

Code: Select all

waitRun( "wget.exe -q -r -t6 --no-check-certificate miurl\miarchivo.txt -O c:\miarchivo.txt", 0 )
Saludos :shock:
jesusdelamora
Posts: 20
Joined: Fri Apr 25, 2014 3:05 pm

Re: descargar fichero desde un servidor Https

Post by jesusdelamora »

QUE VERSION DE WGET USAS ?
User avatar
José Vicente Beltrán
Posts: 279
Joined: Mon Oct 10, 2005 8:55 am
Location: Algeciras, España
Contact:

Re: descargar fichero desde un servidor Https

Post by José Vicente Beltrán »

Hola

wGet v.1.15

Saludos :shock:
Post Reply