TDownloadURL如何放到線程中? |
尚未結案
|
5269231
一般會員 ![]() ![]() 發表:1 回覆:0 積分:0 註冊:2008-07-06 發送簡訊給我 |
用TDownloadURL從網站下載文件到本地,進度條顯示,但是界面會停止響應,有人說 TDownloadURL來下載(需要放到一个thread里以防止界面停止响应 我是新手,不知道在程式怎么放! with TDownloadURL.Create(self) do try URL:=aStream.DataString; FileName := getcurrentdir '\download.exe'; OnDownloadProgress := URL_OnDownloadProgress; memo1.lines.Add('开始下载...'); ExecuteTarget(nil) ; finally Free; end; 5269231@qq.com function tformmain.DownloadFile(SourceFile, DestFile: string): Boolean; var hasError: boolean; begin hasError:=false; with TDownloadURL.Create(self) do try URL:=SourceFile; FileName := DestFile; OnDownloadProgress := URL_OnDownloadProgress; ExecuteTarget(nil) ; except on e: Exception do begin // FormMain.SetStatusInfo(e.Message); Free; hasError:=true; end; end; Result := not hasError; end; procedure tformmain.URL_OnDownloadProgress; begin Application.ProcessMessages; end; 編輯記錄
5269231 重新編輯於 2008-07-06 05:10:35, 註解 無‧
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |