FTP-Übertragung "sanft" beenden

[FordPerfekt]

Hallo,

Schreibe schon länger ein kleines Programm, welches Bilder per FTP hochläd.
Dazu habe ich diese Schleife:

Delphi-Quellcode:

procedure upl;
var
i:integer;
begin
abort:=false;
if connection_state = true then
  begin
    for I := 0 to Listbox1.items.Count - 1 do
    begin
    if abort=true then
     begin
     idftp1.Abort;
     logform.Memo1.Lines.Add(timetostr(now)+': Canceled upload by user');
     end
     else
     begin
     //bilder werden nacheinander durchgegangen und dann hochgeladen... Logfile wird mit daten gefüttert
     idftp1.Put(listbox1.Items[i],ExtractFileName(listbox1.Items[i]),false);
     logform.Memo1.Lines.Add(timetostr(now)+': Added URL:'+ remoteurl+ExtractFileName(listbox1.Items[i]));
      end;
    end;
  end;
end;

Wenn ich nun nen Button drücke und somit abort=true habe kommt diese Meldung:

Zitat:

Im Project blablabla ist eine Exception der Klasse EIdReplyRFCError mit der Meldung 'Timeout (No new data for 900 seconds)' aufgetreten.

Wie kann ich das lösen, dass er das hochladen abbricht?


mfg
Ford