使用 idHTTP 获取 UTF-8 编码的中文网页

转载于 2019-01-19 10:39:00 发布 · 368 阅读

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/railgunman/p/10290716.html

本文介绍了一种使用Delphi中的IdHTTP组件发起GET请求的方法。通过创建TStringStream和TIdHTTP对象，可以轻松地从指定URL获取数据并显示在Memo组件中。示例代码展示了如何初始化和使用这些对象来完成网络请求。

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;