最近要用XML-RPC机制实现delphi程序与Qt程序之间的通信,从开源网站http://sourceforge.net/projects/delphixml-rpc/
下载Delphi XML-RPC 后发现中文字符串会出现乱码,跟踪代码后发现XML-RPC默认的
字符编码是UTF-8,而且QT也都是用UTF-8编程,故把传输字符串改为UTF-8就行了。
修改方法:
一、单元XmlRpcTypes.pas
1、修改TRpcFunction类中的三个函数:GetRequestXML、GetResponseXML、GetErrorXML
通过Delphi内置函数UTF8Encode()把此三个函数的最后结果转成UTF-8编码:
Result := UTF8Encode(Result);
二、单元LibXmlParser.pas
1、修改函数TXmlParser.TranslateEncoding(const Source: string): string;
函数体内的AnsiToUtf8()函数有问题,改用UTF8Encode()就行了:
三、解决没有解析I4项BUG:
1、修改单元XmlRpcServer
搜索INT4 替换成I4
修改后的所有代码详见附件:网络太卡无法复制刚发布的下载地址,请到我上传的资源去找