Indy IdHttp get Gb2312乱码的解决

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;