THTTPThread = class(TThread) private HTTPComponent: TidHTTP; procedure OnHTTPProgress(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Int64); published procedure execute(); end; implementation procedure THTTPThread.execute; begin Self.HTTPComponent := TidHTTP.Create(nil); with HTTPComponent do begin OnWork := Self.OnHTTPProgress; Get('http://www.google.com'); end; end; procedure THTTPThread.OnHTTPProgress(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Int64); begin if Self.Terminated then Abort; end;
Indy http client中断一个长时间的下载
猜你喜欢
转载自teclick.iteye.com/blog/2370100
今日推荐
周排行