解決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);

 

修改後的所有代碼詳見附件：網絡太卡無法複製剛發佈的下載地址，請到我上傳的資源去找