Form reagiert nicht während idftp1.get trotz application.processmessages

[gee21]

Hallo

Meine Android App lädt Daten von einem FTP Server herunter.

Delphi-Quellcode:

for i4 := 0 to filelistFINAL.Count-1 do begin

  if stop=false then begin

      progressbar1.value:=i4+1;

      try
      form2.idftp1.Get(filelistFINAL[i4], gethomepath+'/Temp/'+filelistFINAL[i4],true);
      except
      end;

  end;
end;

Auf FORM1 möchte ich nun dem Nutzer mit einem Button die Möglichkeit geben diese Download's abzubrechen.

Leider ist aber Form1 während des Downloads komplett eingefroren, so das mein "Abbruch Code" gar nicht ausgeführt werden kann.

Deshalb habe ich gedacht ich könnte zB in idftp on work application.processmessages einfügen um die form1 ansprechbar zu halten. Leider bringt es kein Effekt / Form1 reagiert einfach nicht.

Habe dann zum testen diverse stellen mit application.processmessages versucht aber egal wo ich es hinn pflanze, form1 reagiert einafch nicht. (Versucht habe ich es zB in einem Timer, idftp OnWork, on Workbegin/end, in der Schlaufe des idftp.get Downloads)

Weiss jemand wie ich form1 ansprechbar lassen kann?

[nuclearping]

Zieh dir mal eine TIdAntiFreeze-Komponente auf die Form.

[gee21]

diese komponente gibt's eben für Android Anwendungen leider nicht.

[nuclearping]

Schau mal hier: http://www.delphipraxis.net/1253064-post7.html

[gee21]

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;

[RWarnecke]

Ich habe in einer meiner Apps den Aufruf von TIdHTTP in einen Thread ausgelagert. Damit funktioniert die Anzeige mit dem TAniIndicator hervorragend.