Hola de nuevo
Estoy intentando hacer un cliente FTP para recibir archivos, y en el form he puesto dos
ProgressBar
En la que indica el archivo transferido trabaja Ok (total, los leo de un StringList)
El "problema" lo tengo con la barra de descargas, no se actualiza o mejor dicho, parece que lo hace al acabar la descarga.
He mirado en el foro y las soluciones son parecidas a las que tengo (que por cierto las saqué de otro foro de Delphi en francés). Os pongo el código por si tuviese que hacer algo más
Código Delphi
[-]
procedure TForm_Ftp_Win.IdFTP_OnWorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer);
begin
ProgressBar_FTP.Max := AWorkCountMax;
ProgressBar_FTP.Position := 0 ;
end;
procedure TForm_Ftp_Win.IdFTP_OnWork(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer);
begin
Application.ProcessMessages;
ProgressBar_FTP.Position := AWorkCount;
ProgressBar_FTP.Refresh;
end;
procedure TForm_Ftp_Win.IdFTP_OnWorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
ProgressBar_FTP.Position := 0;
end;
Lo que tengo como comentario (* *) es el código original.
¿Podeis echarme una mano?
Gracias anticipadas
salvica