FiveTech Software tech support forums

Como puedo poner una barra de progreso en una descarga
con la clase turl



FUNC x_( cGUARDAR , cCOMO )
Local oUrl //"http://www.tuservidorweb.com/veract.txt" )
Local oClient
cGUARDAR:=ALLTRIM(cGUARDAR)
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.

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