用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;

編輯記錄