Actualizar Archivos Desde FTP

[[seoane]]

Empezado por papu24ar

ahora lo que me gustaria que me dijeran es como hago para ponerle un progress bar a este codigo para saber cuando se completa la descarga y si se puede saber la velocidad de descarga.

Usando UrlDownloadToFile no puedes, ya que la función no termina hasta que se ha bajado todo el archivo. Para eso tienes que usar Indy o Wininet.

Por ejemplo en el truco 55 del que te hablo Neftali, en la parte que aparece comentada la sentencia "Application.ProcessMessages", insertas el código necesario para actualizar una barra de progreso y descomentas el "Application.ProcessMessages". Para actualizar la barra y determinar la velocidad solo tienes que tener en cuenta los bytes descargados y el tiempo transcurrido.

[papu24ar]

Empezado por seoane

Usando UrlDownloadToFile no puedes, ya que la función no termina hasta que se ha bajado todo el archivo. Para eso tienes que usar Indy o Wininet.

Por ejemplo en el truco 55 del que te hablo Neftali, en la parte que aparece comentada la sentencia "Application.ProcessMessages", insertas el código necesario para actualizar una barra de progreso y descomentas el "Application.ProcessMessages". Para actualizar la barra y determinar la velocidad solo tienes que tener en cuenta los bytes descargados y el tiempo transcurrido.

mira estube mirando el codigo ayer.. y hoy estube analizando como poner el progressbar.. la verdad no encontre informacion al respecto y lo unico q se me ocurre es lo siguiente..

procedure TForm1.Button1Click(Sender: TObject);
var
Buffer: array[0..10240] of Char;
BytesRead: DWORD;
BytesWritten: DWORD;
begin
Bajar('http://www.tusitio.com\1.jpg','d:\1.jpg');
ProgressBar1.Max := sizeof(Buffer);
ProgressBar1.Position := BytesRead;
end;

y funciona.. pero osea la barra se mantiene vacia y se completa cuando finaliza la descarga :S si me podrias echar una ayudita te lo agredeceria demaciado.. y disculpa mi insistencia.. pasa q soy bastante novato

sorry