FMX手机app，如何下载网站图片而不卡界面

你用的版本? 你应该关注下delphi 更新说明
第一方法： 可以用线程。
第二方法： TNetHTTPClient 已经支持异步

 

TThread.CreateAnonymousThread(
    procedure
    var
      Http: TIdHttp;
      MemoryStream TMemoryStream;
    begin
      MemoryStream := TMemoryStream.Create;
      Http := TIdHttp.Create(nil);
      try
        try
          Http.Get(TIdURI.URLEncode(Value), MemoryStream);
          if MemoryStream.Size > 0 then
          begin
          TThread.Synchronize(nil,
          procedure
          begin
          MemoryStream.Position := 0;
          显示图片
          end);
          end;
        except

        end;
      finally
        Http.DisposeOf;
        Http := nil;
        MemoryStream.DisposeOf;
        MemoryStream := nil;
      end;
    end).Start;

 

http://bbs.2ccc.com/topic.asp?topicid=514436