AsyncTaskNoExe.zip

  • toulouse
    了解作者
  • Delphi
    开发工具
  • 80KB
    文件大小
  • zip
    文件格式
  • 0
    收藏次数
  • 10 积分
    下载积分
  • 1
    下载次数
  • 2021-03-22 10:15
    上传日期
AYNCALLS FOR DELPHI PROGRAMS
AsyncTaskNoExe.zip
  • AsyncTask
  • demo
  • AsynctaskDemoForm.fmx
    4KB
  • AsyncTaskDemo.dproj.local
    1.6KB
  • AsyncTaskDemo.res
    291.6KB
  • AsyncTask.HTTP.pas
    3.8KB
  • AsyncTaskDemo.dproj
    10.8KB
  • AsynctaskDemoForm.pas
    2.1KB
  • AsyncTaskDemo.dpr
    300B
  • AsyncTask.pas
    10.5KB
  • README.md
    974B
内容介绍
AsyncTask ========= Easy to use Asynchronous Task creation library Features ======== * Create threading task with single function call * Utilises anoymous procedure * Ready to use AsyncHTTPTask, AsyncHTTPTaskBitmap Demo Codes ======= This code, sleeps for 5 seconds, and shows message box. Run(TAsyncTask, // Execute procedure (ATask: IAsyncTask) begin Sleep(5*1000); end, // Finish procedure (ATask: IAsyncTask) begin ShowMessage('Finished'); end ); This code downloads google's logo png file, and displays in TImage component 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 );
评论
    相关推荐