解决Delphi XML-RPC 中文乱码、结构/数组等没有解析I4项BUG

 最近要用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);

         function TRpcFunction.GetRequestXML: string; var Strings: TStrings; begin Strings := TStringList.Create; try Strings.Add('<?xml version="1.0"'); Strings.Add(' ?>' + #13#10); Strings.Add('<methodCall>' + #13#10); Strings.Add(' <methodName>' + FObjectMethod + '</methodName>' + #13#10); GetBodyXML(Strings); Strings.Add('</methodCall>' + #13#10); Result := Strings.Text; if ( FEncoding = '' ) or ( UpperCase(FEncoding) = 'UTF-8' ) then begin Result := UTF8Encode(Result); end; finally Strings.Free; end; end; function TRpcFunction.GetResponseXML: string; var Strings: TStrings; begin {if we have a error condition return the error instead} if FErrorCode > 0 then begin Result := GetErrorXML; Exit; end; Strings := TStringList.Create; try Strings.Add('<?xml version="1.0"'); Strings.Add(' ?>' + #13#10); Strings.Add('<methodResponse>' + #13#10); GetBodyXML(Strings); Strings.Add('</methodResponse>' + #13#10); Result := Strings.Text; if ( FEncoding = '' ) or ( UpperCase(FEncoding) = 'UTF-8' ) then begin Result := UTF8Encode(Result); end; finally Strings.Free; end; end; function TRpcFunction.GetErrorXML: string; var Strings: TStrings; begin Strings := TStringList.Create; try Strings.Add('<?xml version="1.0"'); Strings.Add(' ?>' + #13#10); Strings.Add('<methodResponse>' + #13#10); Strings.Add(' <fault>' + #13#10); Strings.Add(' <value>' + #13#10); Strings.Add(' <struct>' + #13#10); Strings.Add(' <member>' + #13#10); Strings.Add(' <name>faultCode</name>' + #13#10); Strings.Add(' <value><int>' + IntToStr(FErrorCode) + '</int></value>' + #13#10); Strings.Add(' </member>' + #13#10); Strings.Add(' <member>' + #13#10); Strings.Add(' <name>faultString</name>' + #13#10); Strings.Add(' <value><string>' + FErrorMsg + '</string></value>' + #13#10); Strings.Add(' </member>' + #13#10); Strings.Add(' </struct>' + #13#10); Strings.Add(' </value>' + #13#10); Strings.Add(' </fault>' + #13#10); Strings.Add(' </methodResponse>' + #13#10); Result := Strings.Text; if ( FEncoding = '' ) or ( UpperCase(FEncoding) = 'UTF-8' ) then begin Result := UTF8Encode(Result); end; finally Strings.Free; end;

二、单元LibXmlParser.pas

     1、修改函数TXmlParser.TranslateEncoding(const Source: string): string;
         函数体内的AnsiToUtf8()函数有问题，改用UTF8Encode()就行了：

         function TXmlParser.TranslateEncoding(const Source: string): string; begin if CurEncoding = 'UTF-8' then Result := UTF8Decode(Source) else Result := Source; end;

 

三、解决没有解析I4项BUG：

    1、修改单元XmlRpcServer
        搜索INT4 替换成I4

        if (FLastTag = 'I4') then TRpcStruct(FStack.Peek).LoadRawData(dtInteger, FName, Data);

 

修改后的所有代码详见附件：网络太卡无法复制刚发布的下载地址，请到我上传的资源去找