Indy 10 - Progressbar arbeitet nicht mehr mit OnWork

[hsbc]

Hallo Luckie,

hier die 3 Routinen:

Delphi-Quellcode:

procedure TF_Test.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  Application.ProcessMessages;
  ProgressBar.Position := AWorkCount;
  ProgressBar.Update;
end;


procedure TF_Test.IdFTP1WorkBegin(Sender: TObject;
  AWorkMode: TWorkMode; const AWorkCountMax: Integer);
begin
  ProgressBar.Max := BytesZuSenden;
end;


procedure TF_Test.IdFTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
  ProgressBar.Position := 0;
  ProgressBar.Update;
end;

Wie gesagt: Download wird super angezeigt, beim Upload findat das Ereignis WorkBegin überhaupt nicht statt.

Selbstverständlich sind alle 3 Routinen in OI zugewiesen.

mfg
Herbert