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