Kein Forschritt auf def Progressbar bei Indy FTP Upload

[hobivan]

Hi

Suchfunktion und Indy Hilfe inklusive aller Tutorials usw. haben mir nicht geholfen.

Hab mit Delphi 7 mit der Indy Komponenete eine FTP Upload programmiert. Nun wird der Fortschritt der Progressbar nicht angezeigt. Hab Antifreeze aufs Formular gezogen und auch versucht einen Refresh auf die Progressbar zu machen, hat alles nicht gebracht. Auch mehere Tests mit Application.ProcessMessages haben nichts bewirkt, ich bin sprachlos ...

Hier der Code, bin sehr dankbar für Lösungsansätze !

Delphi-Quellcode:

unit Unit1;



procedure TForm1.ftp_faxWorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer);
begin
  Application.ProcessMessages;
  ProgressBar1.Position := 0;
  ProgressBar1.Max := AWorkCountMax;
  showmessage('Start Upload, AWorkCountMax: ' + InttoStr(AWorkCountMax));
end;

procedure TForm1.ftp_faxWork(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer);
begin
  Application.ProcessMessages;
  Form1.ProgressBar1.Position := AWorkCount;
  showmessage('Work, AWorkCount: ' + InttoStr(AWorkCount));
end;

procedure TForm1.ftp_faxWorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
  ProgressBar1.Max := 100;
  ProgressBar1.Position := 0;
end;



  ftp_fax.Intercept := IdLogEvent1;


  ftp_fax.Host := ftp_fax_host;
  ftp_fax.Username := ftp_fax_username;
  ftp_fax.Password := ftp_fax_password;
  Application.ProcessMessages;
  ftp_fax.Connect(true,-1);
  ftp_fax.Put(fax_xip_filename,fax_xip_filename);
  ftp_fax.Disconnect;
  Form1.Refresh;

Danke