delphi 的winhttp怎么异步回调获取网站状态码?

我本地有一个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;

1个回答

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
立即提问
相关内容推荐