代码改变世界

Indy IdHttp get Gb2312乱码的解决

2011-07-04 14:43  李龙江  阅读(2413)  评论(0)  编辑  收藏  举报 
procedure TForm1.Button1Click(Sender: TObject);
var
  ss: TStringStream;
  url: string;
begin
  url := 'http://www.hao123.com';
  ss := TStringStream.Create('', TEncoding.GetEncoding(963));
  try
    IdHTTP1.Get(url, ss);
    Memo1.Text := ss.DataString;
  finally
    ss.Free;
  end;
end;