Hi!
Benutzt doch die NMFTP-Komponente aus dem Register FastNet.
da hast du schöne Ereignisse wie OnPacketRecvd und OnPacketSent und Eigenschaften wie BytesRecvd und BytesSent; damit kanst du super einen Vortschrittsbalken programmieren.
Ein kleines Beispiel mit einem Label:
(Es sollte kein großes Problem sein, dass für eine TStatusBar "umzuwurschteln"
)
Delphi-Quellcode:
procedure TForm1.NMFTP1PacketRecvd(Sender: TObject);
begin
Label1.Caption := IntToStr(NMFTP1.BytesRecvd) + ' Bytes von ' + IntToStr(NMFTP1.BytesTotal)
+ ' Bytes';
end;
Grüße, Dj_Base