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 ... :lol:

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

[SirThornberry]

1.) werden deine ShowMessages aufgerufen?
2.) mach das "Form1." weg, denn spätestens wenn deine Instanzvariable nicht mehr Form1 heißt knallt es
3.) Ist die Datei sehr klein welche du hochlädst? Wenn nicht wird eventuell niemals das OnWork aufgerufen.
4.) Kommt bei deinem Server etwas an (also wird etwas hochgeladen)? Oder wird die Datei auch nicht hochgeladen?

[hobivan]

Zitat:

Zitat von SirThornberry

1.) werden deine ShowMessages aufgerufen?
2.) mach das "Form1." weg, denn spätestens wenn deine Instanzvariable nicht mehr Form1 heißt knallt es
3.) Ist die Datei sehr klein welche du hochlädst? Wenn nicht wird eventuell niemals das OnWork aufgerufen.
4.) Kommt bei deinem Server etwas an (also wird etwas hochgeladen)? Oder wird die Datei auch nicht hochgeladen?

Punkt 3 hat mein Problem soeben gelöst. Ich hatte sehr kleine CSV Dateien zum hochladen, so 2 - 5 KB, darum wurde das OnWork Ereignis gar nie ausgelöst. Nun wird es mehrmals ausgelöst und Balken schreitet voran.

Tausend Dank, der Ansatz war gut!
Gruss hobivan