Delphi组件Clever Suite Internet是一款优秀的网络组件，唯一让我感觉不足的是ClHttp竟然使用了断言，当程序遇到问题的时候就会弹出一个对话框，并显示问题是出在了那个单元里。好了，言归正传，发一个Delphi2007下使用ClHttp的例程。



procedure TForm1.Button1Click(Sender: TObject);

var

  AStrm: TStringStream;

begin

  Memo1.Lines.Clear;

  AStrm := TStringStream.Create('');

  clHttp1.Get('http://www.baidu.com', AStrm);

  Memo1.Lines.Add(Utf8ToANSI(AStrm.DataString));

end;