... @ 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 ...
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
... 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 ...
... 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 ...