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