Hallo,
die ProgressBar-Komponente findest du z.B. wenn du den Menüeintrag "Komponente | Palette konfigurieren..." aktivierst. Wähle die Gesamtansicht und sortiere die Liste der Komponenten nach Namen. Neben dem Namen der Komponente (TProgressBar) liest du dann die Palettenseite, auf der du die Komponente abholen kannst.
Die Fortschrittsanzeige ist einfach zu realisieren, wenn der
FTP-Server die Größe beim GET übermittelt:
Delphi-Quellcode:
procedure TDemoForm.FTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
begin
with ProgressBar do
begin
Max := AWorkCountMax;
Position := 0;
Visible := true;
end;
end;
procedure TDemoForm.FTPWork(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
with ProgressBar do
Position := AWorkCount;
end;
procedure TDemoForm.FTPWorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
with ProgressBar do
Visible := false;
ShowMessage('fettich');
end;
Wenn die Größe nicht übermittelt wird (AWorkCountMax = 0) dann musst du dir die Größe aus dem directory listing besorgen.
Grüße vom marabu