Zitat von
Dark-L0rd:
Hi...
Der Source für die Statusbar war so schon richtig...:
Delphi-Quellcode:
procedure Tbg3.IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
ProgressBar1.Max := AWorkCountMax;
end;
procedure Tbg3.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
ProgressBar1.Position := AWorkCount;
end;
procedure Tbg3.IdFTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
ProgressBar1.Position := 0;
end;
Hast du denn auch bei deinem idFTP1 die Ereignisse OnWorkBegin, OnWork und OnWorkEnd verlinkt?
Und ist das idAntiFreeze auch Aktiv?
HI, Dark-Lord,
vielen Dank für Dein Tip. Ich habe über das Wochenende die Lösung meines Problems gefunden. Ich bekamm immer den Wert 0 für die AWorkCountMax zurück. Jetzt habe ich in den Demos zu
INDY die Lösung gefunden:
Delphi-Quellcode:
private
{ Private-Deklarationen }
BytesToTransfer: LongWord;
.
.
.
procedure TForm1.IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
begin
if AWorkCountMax > 0 then ProgressBar1.Max := AWorkCountMax
else ProgressBar1.Max := BytesToTransfer;
ProgressBar1.Position := 0;
label1.Caption := IntToStr(ProgressBar1.Max);
end;
Allen vielen Dank für Ihre Ratschläge.
