ics组件 THttpCli 获取网页源码

这里提供两种方法，同样可以达到获取网页源码，其中被注释的代码是第2种方法。

procedure TForm1.btn1Click(Sender: TObject);
var
retStr:string;
DataLen:Int64;
ldata: TStringStream;
begin
ldata := TStringStream.Create('');
// htpcl1.RcvdStream := TMemoryStream.Create;
htpcl1.RcvdStream := ldata;
htpcl1.URL := 'http://www.360doc.com';
htpcl1.Get;
mmo1.Text := ldata.DataString;
// DataLen := htpcl1.RcvdStream.Size;
// SetLength(retStr,DataLen);
// htpcl1.RcvdStream.Position := 0;
// htpcl1.RcvdStream.Read(PChar(retStr)^,htpcl1.RcvdStream.Size);
// mmo1.Text := Utf8ToAnsi(retStr);
end;

 

提供参考文档：

http://www.360doc.com/content/12/0628/09/7662927_220904592.shtml

http://www.bubuko.com/infodetail-1284722.html

我用的是D7，ics组件是在这里下载的：http://www.2ccc.com/article.asp?articleid=322

 

安装方法要提及一下：

1.打开 D7 选择菜单 File -> Open -> 下载解压文件路径\ics\Delphi\Vc32\IcsDel70.dpk -> 点击 Complie -> 再点击 Install

2.点击 D7 菜单栏 Component -> 点击 Install Componet -> 在打开的窗体中点击 Browse 按钮 - > 下载解压文件路径\ics\Delphi\Vc32\httpprot.pas -> 打开 -> 一路OK