Guten Morgen.
Ich wollte folgendes realisieren - mit folgendem Code (Beispiel) lade ich eine Datei auf meinen FTP-Server:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
| procedure TForm1.Button1Click(Sender: TObject);
begin
FTP1.Connect;
FTP1.Put('C:\irgendeinedatei.avi','irgendeinedatei.avi',false);
FTP1.Disconnect;
end;
procedure TForm1.FTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
AWorkCountMax: Integer);
begin
Application.ProcessMessages;
ProgressBar1.Position:=0;
ProgressBar1.Max:=AWorkCountMax;
end;
procedure TForm1.FTP1Work(ASender: TObject; AWorkMode: TWorkMode;
AWorkCount: Integer);
begin
Application.ProcessMessages;
ProgressBar1.Position:=AWorkCount;
end;
procedure TForm1.FTP1WorkEnd(ASender: TObject; AWorkMode: TWorkMode);
begin
ProgressBar1.Max := 100;
end; |
Nun hätte ich gerne während des Uploads angezeigt, wieviel von der Datei schon hochgeladen wurde - wenn möglich in KB. Eine Idee hätte ich schon, die Größe der auf dem Server existierenden Datei dauernd mit der auf meinem PC zu vergleichen während des Uploads. Aber wie realisiere ich das? Scheinbar haben zu wenige es, hier und in anderen Delphi-Foren, bisher versucht - denn jede Suche blieb bislang erfolglos
Danke und Grüße,
hitmiccs
