IDHttp乱码解决

var
  ss : TStringStream;
begin
  ss := TStringStream.Create('', TEncoding.GetEncoding(65001));
  { 936指定gb2312的中文代码页，54936（gb18030）,更好些 utf8 对应 65001}
  try
    IdHTTP1.Get(CSURL, ss);
    IdHTTP1.Get(CSURL);
    Memo1.Text := ss.DataString;
  finally
    ss.Free;
  end;
end;