您的位置:首页 > 编程语言 > Delphi

Delphi使用Indy、ICS组件读取网页

2010-08-25 12:50 369 查看
使用Indy 10中TIdHTTP的例子:

代码var
HttpClient: THttpCli;
DataLen: Int64;
FailMsg: string;
Tick: Cardinal;
begin
.
.
.
Tick := GetTickCount;
try
try
HttpClient.GetASync;
while HttpClient.State <> httpReady do
begin
if GetTickCount - Tick > 30*1000 then
begin
HttpClient.Abort;
Exit;
end;
Application.ProcessMessages;
end;
.
.
.
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: