In WorkEnd von IdFTP Upload starten... GEHT NICHT!!!

[hedie]

Hallo

Ich Starte über einen Button einen FTP Upload und möchte nach dem Fertigstellen von diesem automatisch einen Weiteren starten...

Dazu habe ich folgenden Code:

FileListBox1 = Warteschlange der hochzuladenden Dateien
ListBox2 = Bereits hochgeladene Dateien
sortitems = Löscht bereits hochgeladene Dateien aus der Warteschlange

Delphi-Quellcode:

procedure TForm1.IdFTP1WorkEnd(ASender: TObject; AWorkMode: TWorkMode);
begin
  ListBox2.Items.Add(FileListBox1.Items.Strings[0]);
  sortitems(FileListBox1.Directory);
  ListBox2.Items.SaveToFile(extractfilepath(paramstr(0))+'database.db');
  if(FileListBox1.Items.Count > 0) then begin
    if(idftp1.connected = false) then idFtp1.Connect;
      idFtp1.ChangeDir(Edit6.Text);
      idFtp1.Put(FileListBox1.Directory+'\'+FileListBox1.Items.Strings[0]);
  end;
end;

Code des Start Button:

Delphi-Quellcode:

if(idftp1.connected = false) then idFtp1.Connect;
      idFtp1.ChangeDir(Edit6.Text);
      idFtp1.Put(FileListBox1.Directory+'\'+FileListBox1.Items.Strings[0]);

Wenn ich nun Starte wird die Erste datei welche durch den Button ausgelöst wurde hochgeladen doch danach hängt sich
das Programm auf....

Wenn ich jedoch die Automation im WorkEnd entferne und manuell jedesmal den Button klicke klappt es einwandfrei....
Deshalb hab ich mal einfach Button5.Click eingefügt doch auch damit hängt sich das Programm auf....

Ich weiss echt nicht weshalb und hoffe ihr könnt mir helfen....

Danke Schonmal

[Luckie]

Warum so kompliziert? Arbeite die Liste einfach in einer Schleife ab:

Delphi-Quellcode:

for i := 0 to FileListBox1.Count - 1 do
  idFtp1.Put(FileListBox1.Directory+'\'+FileListBox1.Items.Strings[i]);

[hedie]

Hmmm ja aber das problem ist ja nicht das abarbeiten der liste selbst

sondern das automatische starten eines neuen uploads nach dem fertigstellen des letzten....

Das problem ist ja das er nach WorkEnd (fertigstellen des uploads) keinen neuen starten kann...
Weshalb das nicht geht ist ja nun hier die frage :)

[Luckie]

Da brauchst du doch auch keinen neuen Starten, das passiert doch automatisch beim Abarbeiten der Liste.

[hedie]

achsoo

also wenn ich

Delphi-Quellcode:

idFtp1.Put(FileListBox1.Directory+'\'+FileListBox1.Items.Strings[i]);

mache dan wartet er an dieser stelle bis der Upload beendet ist?

[jfheins]

Ja, denn die Indys blockieren. (So nennt man diuese Eigenschaft - es wird nicht anderes mehr gemacht bis es fertig ist)