使用 idHTTP 获取 UTF-8 编码的中文网页 - 回复同学 "Delphi学习者" 的问题

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;

上面是indy10的，如果是D7的话，是没有TEncoding这个类的

全文：http://www.cnblogs.com/del/archive/2011/12/30/2307965.html

delphi通过Idhttp和php交互

http://www.cnblogs.com/delphiclub/p/4409333.html //参考stream := TStringStream.Create('', TEncoding.UTF8); //中文就不会乱码了

如果像我一样在D7下使用indy10可以调用utf8toansi函数转换一下 Memo1.Text := utf8toansi(stream.DataString);