Search found 15 matches: readtofile

Return to advanced search

Re: Function to download a defined file from a homepage ?

... ) oClient := tIPClientHTTP():New( oUrl ) oClient:nConnTimeout := nSegEsp IF oClient:Open( oUrl ) oClient:ReadToFile( cRutDes+"Ammyy5.rar",nil,nil,"no borra chr(13)") oClient:Close() ELSE MYMEN("Error. No fue posible conectarse al ...
by ukoenig
Fri Apr 22, 2016 9:52 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: Function to download a defined file from a homepage ?
Replies: 31
Views: 15253

Cancelar Transferencia FTP

... => HB_INETERRORCODE( 0 ) Called from: hbtip\client.prg => TIPCLIENTFTP:INETERRORCODE( 0 ) Called from: hbtip\client.prg => TIPCLIENTFTP:READTOFILE( 0 ) Called from: hbtip\ftpcli.prg => TIPCLIENTFTP:DOWNLOADFILE( 0 ) Called from: Update.prg => DOWNFILS( 271 ) Como puedo parar la ...
by cuatecatl82
Mon Oct 21, 2013 4:02 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Cancelar Transferencia FTP
Replies: 9
Views: 3138

Re: descargar fichero desde un servidor Https

... ) 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 ...
by russimicro
Thu Sep 19, 2013 8:16 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: descargar fichero desde un servidor Https
Replies: 7
Views: 1996

Re: Adquirir XML via Web

... cUrl:="http://"+cUrl ENDIF TRY oConn := TipClientHttp():New(TURL():New(cUrl)) oConn:nConnTimeout := 20000 IF oConn:Open(cURL) oConn:ReadToFile(cSaveAs,,nFileSize) oConn:Close() ENDIF CATCH lReturn := .F. END RETURN lReturn //----------------------------------------------------------------------------//
by postinelli
Mon Nov 19, 2012 1:22 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Adquirir XML via Web
Replies: 9
Views: 1790

... @ 80, 010 PROGRESS oProg POSITION 0 SIZE 212, 12 PIXEL DEFAULT oProg := 0 It might be DEFAULT oProg := NIL. It works now. :exGauge works only :ReadtoFile() and :WriteToFile() methods. You may use Progress instead of TMeter. :SetRange and :SetPos works now in Progress. I will send a working ...
by Horizon
Wed Nov 19, 2008 7:57 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: Download internet file without interference
Replies: 31
Views: 8545

Vladimir,

Posiblemente la solución mas simple es modificar el método ReadToFile() para que admita un codeblock, pues la lectura del fichero se hace por bloques y en cada iteración se podría evaluar el codeblock, viéndose asi el progreso de la barra
by Antonio Linares
Sun Jun 29, 2008 8:27 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: Como poner una barra de progreso en una descarga con turl
Replies: 1
Views: 660

Como poner una barra de progreso en una descarga con turl

... cCOMO :=ALLTRIM(cCOMO) oUrl := tURL():New(cGUARDAR) oClient := tIPClient():New( oUrl ) oClient:nConnTimeout = 20000 oClient:Open( oUrl ) oClient:ReadToFile( cCOMO ) //"newver.txt" ) oClient:Close() retu .t.
by Vladimir Zorrilla
Thu Jun 26, 2008 11:23 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Como poner una barra de progreso en una descarga con turl
Replies: 1
Views: 660

Bajando archivo con la TURL

... oClient oUrl:= TUrl():New("http://www.captura.com/2007/archivo.xml") oClient := TipClienthttp():New( oUrl ) oClient:nConnTimeout:=20000 oClient:ReadToFile( "e:\ap\archivo.xml" ) oClient:Close() Si la carpeta está protegida con Usuario y Password. No se puede. Entonces, ¿Cómo le hago para bajar ...
by fleal
Tue Feb 05, 2008 9:48 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Bajando archivo con la TURL
Replies: 0
Views: 559

... IF Empty( oClient ) MSGINFO("Invalid url ") RETURN NIL ENDIF oClient:nConnTimeout := 20000 IF oClient:Open( oUrl ) IF ! oClient:ReadToFile( cFile ) MSGINFO("Generic error in writing." + cFile) ENDIF oClient:Close() endif IF FILE(CFILE) hFile := FOPEN(CFILE) WHILE HB_FReadLine( ...
by Richard Chidiak
Wed Nov 14, 2007 8:41 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: internet ip address
Replies: 33
Views: 6652

TURL CUAL ES EL METODO PARA ENVIAR UN ARCHIVO A UN FTP

... BAJA AHORA DESEO ENVIAR oUrl := tURL():New(cGUARDAR) oClient := tIPClient():New( oUrl ) oClient:nConnTimeout = 20000 oClient:Open( oUrl ) oClient:ReadToFile( cCOMO ) //"newver.txt" ) oClient:Close() GRACIAS POR LA AYUDA VZLL
by Vladimir Zorrilla
Sat Apr 14, 2007 4:18 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: TURL CUAL ES EL METODO PARA ENVIAR UN ARCHIVO A UN FTP
Replies: 0
Views: 461

Re: programa autoactualizable

... del software: oUrl := tURL():New("http://www.google.d2g.com/curver.inil" ) oClient := tIPClient():New( oUrl ) IF oClient:Open( oUrl ) oClient:ReadToFile( cIniFile2 ) oClient:Close() ENDIF Esto se puede hacer nada mas comenzar el programa. 2) Se comparan las versiones del programa, y si hay ...
by R.F.
Mon Feb 12, 2007 8:47 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: programa autoactualizable
Replies: 3
Views: 1131

Re: Class TURL generates GPF

... , cCOMO ) Local oUrl := tURL():New(cGUARDAR) Local oClient := tIPClient():New( oUrl ) oClient:nConnTimeout := 20000 oClient:Open( oUrl ) oClient:ReadToFile( cCOMO ) oClient:Close() retu .t. Thanks Vladimir, Incluye la LIB PCREPOS Saludos
by wmormar
Sat Jul 29, 2006 8:06 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: Class TURL generates GPF
Replies: 1
Views: 676

la clase TURL en que lib o libs de xharbour esta

... , cCOMO ) Local oUrl := tURL():New(cGUARDAR) Local oClient := tIPClient():New( oUrl ) oClient:nConnTimeout := 20000 oClient:Open( oUrl ) oClient:ReadToFile( cCOMO ) oClient:Close() retu .t. Thanks
by Vladimir Zorrilla
Sat Jul 29, 2006 3:12 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: la clase TURL en que lib o libs de xharbour esta
Replies: 3
Views: 1192

Class TURL generates GPF

... , cCOMO ) Local oUrl := tURL():New(cGUARDAR) Local oClient := tIPClient():New( oUrl ) oClient:nConnTimeout := 20000 oClient:Open( oUrl ) oClient:ReadToFile( cCOMO ) oClient:Close() retu .t. Thanks
by Vladimir Zorrilla
Sat Jul 29, 2006 3:08 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: Class TURL generates GPF
Replies: 1
Views: 676

... oUrl ) IF Empty( oClient ) MSGINFO("Invalid url ") RETURN NIL ENDIF oClient:nConnTimeout := 20000 IF oClient:Open( oUrl ) IF ! oClient:ReadToFile( cFile ) MSGINFO("Generic error in writing." + cFile) ENDIF oClient:Close() endif IF FILE(CFILE) hFile := FOPEN(CFILE) WHILE HB_FReadLine( ...
by Richard Chidiak
Wed Feb 01, 2006 10:07 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: ip address
Replies: 4
Views: 1391

Return to advanced search