IdFTP AWorkCountMax = 0

[Pierre]

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