本文整理自网络,侵删。
uses IdHTTP;
const Url = 'http://del.cnblogs.com';
procedure TForm1.Button1Click(Sender: TObject);var stream: TStringStream; idHttpObj: TIdHTTP;begin stream := TStringStream.Create('', TEncoding.UTF8); //
idHttpObj := TIdHTTP.Create(nil); idHttpObj.Get(Url, stream); idHttpObj.Free;
Memo1.Text := stream.DataString; stream.Free;end;
相关阅读 >>
Delphi decodeutf8str解决系统自带utf8解码缺陷
Delphi的idhttp报iohandler value is not valid错误的原因
更多相关阅读请进入《Delphi》频道 >>