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

[Mavarik]

[OT]Autsch[/OT]

Ich nehme zwar kein FTP, sondern http... Aber die Funktionalität ist ja fast die selbe...

Delphi-Quellcode:

Procedure Foo;
var
  URL, Dateiname : String;
begin
  URL := 'Http://www.meinserver.de/Datei.png';
  Dateiname := 'C:\Hierhin\Datei.png';

  lThread := TAnonymousThread<boolean>.Create(
    function: boolean
    var 
      idhttp : TidHttp;
      FS     : TFileStream;
      DN     : String;
    begin
      DN := Dateiname;
      result := true;
      if not(fileExists(DN)) then
      begin
        FS := TFileStream.Create(DN,fmCreate);
        try
          idhttp := Tidhttp.Create;
          try
            idhttp.Get(URL,FS);
          finally
            idhttp.Free;
          end;
        finally
          FS.Free;
        end;  
      end;
    end,
    procedure(AResult: Boolean)
    begin
    end,
    procedure(AException: Exception)
    begin
      //Runs in main thread
      //ShowMessage(AException.Message);
    end);
end;

Mavarik