频道分类

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

作者:admin 来源: 日期:2020/3/10 23:50:38 人气: 标签:

 
你用的版本? 你应该关注下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

上一篇:delphi NTFS 磁盘文件搜索下一篇:没有资料