Hallo,
mit ....
Code:
procedure TForm9.IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
begin
if AWorkCountMax > 0 then ProgressBar1.Max := AWorkCountMax
else ProgressBar1.Max := BytesToTransfer;
end;
umgehe ich dieses Problem mit dem AWorkCountMax = 0.
mit....
Code:
procedure TForm9.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer);
begin
ProgressBar1.Position := AWorkCount;
if Abbruch then IdFTP1.Abort;
end;
breche ich einen Transfervorgang ab, wenn ich den Boolean-Wert Abbruch auf true setze.
Gruß Pierre