使用Indy 10中TIdHTTP的例子：

代碼usesIdHttp; . . . function HttpGet(const Url: string; var Html: string): Boolean; varHttpClient: TIdHTTP; beginResult := False;HttpClient := TIdHTTP.Create(nil);tryHtml := HttpClient.Get(Url);Result := True;excepton e: Exception dobeginend;end;HttpClient.Free; end;

Indy采用的是同步I/O的方式，而且在連接超時控制方面存在bug，因此TIdHttp.Get()有時會發生陷入死鎖無法返回的問題。

使用ICS中THttpCli的例子：

usesHttpProt; . . . function HttpGet(const Url: string; var Html: string): Boolean; varHttpClient: THttpCli;DataLen: Int64;FailMsg: string; beginResult := False;HttpClient := THttpCli.Create(nil);HttpClient.URL := Url;HttpClient.NoCache := True;HttpClient.RcvdStream := TMemoryStream.Create;trytryHttpClient.Get;DataLen := HttpClient.RcvdStream.Size;SetLength(Html, DataLen);HttpClient.RcvdStream.Position := 0;HttpClient.RcvdStream.Read(PChar(Html)^, DataLen);Result := True;excepton E: EHttpException dobeginFailMsg := Format('Failed : %d %s',[HttpClient.StatusCode, HttpClient.ReasonPhrase]);end elseraise;end;finallyHttpClient.RcvdStream.Free;HttpClient.RcvdStream := nil;HttpClient.Free;end; end;

ICS使用的是異步I/O，其TFtpClient組件有Timout屬性可以對連接超時進行控制，而THttpCli組件沒有。但可以采用在定時器中調用THttpCli.Abort()取消連接的方式控制超時，也可以顯式調用異步方法：

varHttpClient: THttpCli;DataLen: Int64;FailMsg: string;Tick: Cardinal;beginResult := False;HttpClient := THttpCli.Create(nil);HttpClient.URL := Url;HttpClient.NoCache := True;HttpClient.RcvdStream := TMemoryStream.Create;Tick := GetTickCount;trytryHttpClient.GetASync;while HttpClient.State <> httpReady do //檢測HTTP狀態beginif GetTickCount - Tick > 30*1000 then //此處設置了30S超時，可根據需要修改此數值beginHttpClient.Abort;Exit;end;Application.ProcessMessages;end;DataLen := HttpClient.RcvdStream.Size;SetLength(Html, DataLen);HttpClient.RcvdStream.Position := 0;HttpClient.RcvdStream.Read(PChar(Html)^, DataLen);Result := True;excepton E: EHttpException dobeginFailMsg := Format('Failed : %d %s',[HttpClient.StatusCode, HttpClient.ReasonPhrase]);end elseraise;end;finallyHttpClient.RcvdStream.Free;HttpClient.RcvdStream := nil;HttpClient.Free;end;end

?

轉載于:https://www.cnblogs.com/china1/p/3395033.html

總結

以上是生活随笔為你收集整理的Delphi使用Indy、ICS组件读取网页的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。