求助！delphi6 调用WEBSERVICE中文产生乱码的问题？

Question

webservice通过wsdl import 导入，该webservice是c#编译的
源码如下
procedure TForm1.Button1Click(Sender: TObject);
begin
  //(HTTPRIO1 as ServiceSoap).EastInvoiceInfoStat(edit1.Text);
  (HTTPRIO1 as Service1Soap).ConvertDataSet('1');
end;procedure TForm1.HTTPRIO1AfterExecute(const MethodName: String;
  SOAPResponse: TStream);
{begin
  SOAPResponse.Position := 0;
  Memo1.Lines.LoadFromStream(SOAPResponse);  SOAPResponse.Position := 0;   }
var
  XMLDoc: IXMLDocument;
begin
  SOAPResponse.Position := 0;
  Memo1.Lines.LoadFromStream(SOAPResponse);
end;已经把HTTPRIO1的UseUtf8InHeader的属性值设为true了
Memo1中中文显示成乱码

Answer 1

你在编写的时候设置HTTPRIO.HTTPWebNode.UserUTF8Header  := True

Answer 2

修改config.xml文件中的 Language 相关项
或直接指定 contenttype := 'text/html;charset=gb2132';

Answer 3

那就是你的Memo1.Font属性设置的字符集不是中文字符集,可能被设置成其它的字符集了,要修改Memo1的FONT属性