Hallo,
ich weiß, das Thema gabs schon oft, aber ich finde den Fehler einfach nicht. Ich möchte den
Downloadfortschritt in einer Progressbar anzeigen lassen (Upload funktioniert). Hier mein Text:
Delphi-Quellcode:
procedure TForm1.ToolButton8Click(Sender: TObject);
var
name : string;
begin
if Listbox3.ItemIndex > - 1 then
begin
SaveDialog1.FileName := Listbox3.Items.Strings[Listbox3.ItemIndex];
if savedialog1.execute then
begin
name := IdFTP.DirectoryListing.Items[Listbox3.ItemIndex].FileName;
BytesToTransfer:= IdFTP.Size(name);
IdFTP.Get(name, SaveDialog1.FileName, true);
end;
end;
end;
und
Delphi-Quellcode:
procedure TForm1.IdFTPWork(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
ProgressBar1.Position := AWorkCount;
Application.ProcessMessages;
end;
procedure TForm1.IdFTPWorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
BytesToTransfer := 0;
ProgressBar1.Position := 0;
end;
procedure TForm1.IdFTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
begin
if AWorkCountMax > 0 then
ProgressBar1.Max := AWorkCountMax
else
ProgressBar1.Max := BytesToTransfer;
end;
Viele Grüße...