能力值：
( LV2，RANK：10 )
|
-
-
2 楼
使用异步处理。有一现成的单元你可以学习一下。
AniIndicator1.Visible := True;
Run(THttpAsyncTaskBitmap.Create('http://www.google.com/images/nav_logo129.png'),
// Finish
procedure (ATask: IAsyncTask)
begin
Image1.Bitmap := (ATask as IHttpBitmapResponse).Bitmap;
AniIndicator1.Visible := False;
end
);
下载地址：https://github.com/dkstar88/AsyncTask
|
|
|
|
