Hmmm. Also ich weiss nicht. Vermutlich mache ich es falsch
Habe mir das Beispiel einmal heruntergeladen und versucht es zu übernehmen. (Alles was ich nicht verstanden habe, habe ich einfach weggelassen
)
http://www.delphipraxis.net/1253064-post7.html
Aber ich glaube das so wie ich das gemacht habe, läuft alles genau "gleich ab". Nur das der Code oben in einer Procedure steht.
Delphi-Quellcode:
procedure geeTest(Source: string; dest: string);
begin
try
form2.idftp1.get(source, dest, true);
sleep(400);
application.ProcessMessages;
except
end;
end;
Delphi-Quellcode:
for i4 := 0 to filelistFINAL.Count-1 do begin
if stop=false then begin
progressbar1.value:=i4+1;
try
geetest(filelistFINAL[i4],gethomepath+'/Temp/'+filelistFINAL[i4]);
except
end;
end;
end;