DELPHI XML转JSON

delphi4年前 (2021)发布 admin

395 0 0

GITHUB:https://github.com/Ronald-TR/XML-To-JSON

官方demo: 
   var
      iVariable : IDataBindingXMLObject;
      sJSON : string;
    begin
        iVariable : NewDataBindingXMLObject;
        // do something in your XML Object 
        sJSON := xml_to_json(iVariable);
    end;

我的接收的数据是xml的字符串，来自微信支付的返回信息，写成了函数，将XML字符串转成xml,再调用 XML-To-JSON 的函数转成json格式字符串。

function xmlTojson(ss: string): string; //写成函数
var
  Xml: TXMLDocument;
  XmlNode: IXMLNode;
begin
  Xml := TXMLDocument.Create(Application);
  ss := '<?xml version=''1.0'' ?>' + ss;
  ss := StringReplace(ss, '<![CDATA[', '', [rfReplaceAll, rfIgnoreCase]);
  ss := StringReplace(ss, ']]>', '', [rfReplaceAll, rfIgnoreCase]);
  Xml.XML.Text := ss;
  Xml.Active := True;
  XmlNode := Xml.DocumentElement;
  result := xml_to_json(XmlNode);
  Xml.Free;
end;

我是觉得json再调用上会方便一些

# delphi