Barra de progreso con TNMFTP
 

Hola, tengo una consulta. Tengo hecha una barra de progreso para cuando subo archivos a un ftp, usando un timer verifico las propiedades ftp.BytesTotal y ftp.BytesSent mas o menos asi:

Código Delphi [-]
procedure TConfig.Timer1Timer(Sender: TObject);
begin
      progresstot.Max:=ftp.BytesTotal;
      progresstot.Position:=ftp.BytesSent;
end;

La cuestion es cuando quiero hace lo mismo para cuando traigo archivos desde el ftp. Hice lo siguiente:

Código Delphi [-]
procedure TConfig.Timer1Timer(Sender: TObject);
begin
      progresstot.Max:=ftp.BytesTotal;
      progresstot.Position:=ftp.BytesRecvd;
end;

me da error porque ftp.BytesTotal=0 y no se puede mostrar la barra de progreso. La pregunta es: habra otra forma de saber el tamaño del archivo que estoy bajando?

Prueba esto
 

Yo uso el demo Cliente FTP que viene con delphi para los Indys, alli tiene otra forma mucho mejor de detectar los bytes con el componente idFTP, checa el evento OnWork del DEMO....

Saludos.