Hallo Leute,
ich weiß einfach nicht mehr weiter!
Ich habe ein Programm geschrieben, dass mir Dateien auf einen FTP überträgt. Meine Dateien stehen in einem Memo-Feld und nach und nach wird alles hochgeladen. Das funktioniert auch einwandfrei, aber wenn noch 23 Files in der Liste sind bekomme ich folgende Fehlermeldung:
Es ist auch egal wie viele Dateien in der Queue sind. Immer wenn noch 23 übrig sind kommt die Meldung. Wenn weniger als 23 in der Queue sind funktioniert alles einwandfrei.
Woran könnte das liegen? Hat vielleicht die Illuminate was damit zu tun?
Greetz
Edit: Ach ja...hier noch der Quelltext:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
| FTP1.Connect;
mmLogBackup.Lines.Add('Verbindung hergestellt');
for i := mmFiles.Lines.Count -1 downto 0 do
begin
DateiName[i] := ExtractFileName(mmFiles.Lines[i]);
FTP1.Put(mmFiles.Lines[i], DateiName[i]);
mmLogBackup.Lines.Add('Datei ' + DateiName[i] + ' hochgeladen');
mmFiles.Lines.Delete(i);
end;
FTP1.Disconnect;
mmLogBackup.Lines.Add('Verbindung getrennt');
mmLogBackup.Lines.Add('-------------------'); |
Danke für die schnelle Antwort! Ich war gerade am Editieren! 