INDY-FTP optimieren?

[Svenkan]

Asoo!
Jetzt versteh ich dich.
Klingt ja schonmal einfacher, als das mit den Threads.
Erzielt man mit dieser Methode denn auch vegleichbare Ergebnisse?

Habs jetzt mal so gemacht, funzt auch (danke ):

Delphi-Quellcode:

procedure TForm1.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
 BtFileUpload.Enabled:=False;
 try
   Application.ProcessMessages;
  finally
    BtFileUpload.Enabled:=True;
end;
end;

[SirThornberry]

wozu du hier Try-Finally nutzt und den Button kurzzeitig deaktivierst weißt aber auch nur du

[Svenkan]

Wie solln das sonst gehen?

[inherited]

Kommt drauf an was du machen möchtest. Wenn du, wie ich vermute, den Upload-Button während des uploads deaktivieren möchtest, dann packe ins OnWork nur Application.ProcessMessages und in OnWorkBegin und OnWorkEnd jeweils die Enabled-Änderungen für den Button

[Svenkan]

Jetzt brauch ich nur noch das mit dem Ladebalken. Momentan wird für jede Datei einzeln der Upload 'gebildet'. Allerdings möchte ich, dass es für den kompletten Upload gemacht wird.

Delphi-Quellcode:

procedure TForm1.IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
 BtFileUpload.Enabled:=False;
  ProgressBar1.Max := AWorkCountMax;
  ProgressBar1.Position := 0;
end;

procedure TForm1.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
   Application.ProcessMessages;
   
  //Aktualisieren der Fortschrittsanzeige:
  ProgressBar1.Position := AWorkCount;;
end;

procedure TForm1.IdFTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
    BtFileUpload.Enabled:=True;
end;