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

[xujie]

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中中文显示成乱码

[paranoia190]

帮顶

[yzty]

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

[Bluce4587]

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

[xujie]

谢谢楼上两位，但结果还是不对。

[Bluce4587]

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

[roczhao]

没有办法了吗？