Barra de progreso con TNMFTP

[pborges36]

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 (ftp://ftp.BytesTotal) y ftp.BytesSent (ftp://ftp.BytesSent) mas o menos asi:


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:


procedure TConfig.Timer1Timer(Sender: TObject);
begin
progresstot.Max:=ftp.BytesTotal;
progresstot.Position:=ftp.BytesRecvd;
end;



me da error porque ftp.BytesTotal=0 (ftp://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?

[AGAG4]

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.