本文整理自网络,侵删。
你用的版本? 你应该关注下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 xe 共享一个之前封装的多进程共享内存的memorystream
Delphi webbrowser的关于流载入流保存和流生成
Delphi getprocessisadmin()判断exe是否以管理员身份启动
Delphi processid, process handle, window handle 之间的互相转换
Delphi fdconnection1.gettablenames 查看所有表包含用户表和系统表
更多相关阅读请进入《Delphi》频道 >>