我本地有一个txt的记事本里面有几十万个网站 我需要用异步获取网站返回的状态码 http.Status 网站状态码。 下面是我写的异步true 异步 那么delphi怎么回调 获取网站状态码。请具体代码顺便 备注说明 谢谢。
while do true
begin
Http:=CreateOLEObject('WinHttp.WinHttpRequest.5.1');
http.setTimeouts(10000,10000,10000,10000);
Http.Open('head',trim(abc),true);
Http.setRequestHeader('Content-Type','text/html');
Http.setRequestHeader('Accept-Language','zh-cn');
Http.setRequestHeader('Connection','Keep-Alive');
Http.setRequestHeader('Accept','*/*');
Http.setRequestHeader('User-Agent','Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Trident/4.0; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1))');
http.Option[4] := (13056);
Http.Option[6] := (true);
Http.Send();
end;