Como Converter XML para JSON no ACBr?

[SG Sistemas]

Olá, pessoal!

Estou trabalhando com os componentes do ACBr e preciso converter um XML para JSON. Gostaria de saber se o ACBr possui algum método nativo para essa conversão ou se algum dos componentes já oferece suporte para exportação direta para JSON.

Alguém já precisou fazer isso e pode compartilhar uma solução? Caso não exista um método direto, qual seria a melhor abordagem para essa conversão usando Delphi?

Agradeço qualquer ajuda!

[Juliomar Marchetti]

Versão do delphi?
 

[SG Sistemas]

Delphi 12.2

[Juliomar Marchetti]

De XML para JSON não tem

existe o TACBrJSON que tu serializa objetos e deserializa

[SG Sistemas]

Muito obrigado.

Em 03/03/2025 at 15:59, Juliomar Marchetti disse:

De XML para JSON não tem

existe o TACBrJSON que tu serializa objetos e deserializa

 

[Alexandre de Paula]

Tópico movido para a área do ACBr Pro, para que o SLA de respostas seja considerado

[Alexandre de Paula]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.

[Juliomar Marchetti]

15 horas atrás, SG Sistemas disse:

Muito obrigado.

 

não testei mas olha algo que poderia usar

uses
  System.SysUtils, System.Classes, Xml.XMLDoc, Xml.XMLIntf, System.JSON;

function XMLToJSON(const XML: string): string;
var
  XMLDoc: IXMLDocument;
  RootNode: IXMLNode;
  JSONObject: TJSONObject;

  procedure ParseXMLNode(Node: IXMLNode; ParentJSON: TJSONObject);
  var
    ChildNode: IXMLNode;
    ChildJSON: TJSONObject;
    JSONArray: TJSONArray;
    I: Integer;
  begin
    for I := 0 to Node.ChildNodes.Count - 1 do
    begin
      ChildNode := Node.ChildNodes[I];
      if ChildNode.ChildNodes.Count > 0 then
      begin
        ChildJSON := TJSONObject.Create;
        ParentJSON.AddPair(ChildNode.NodeName, ChildJSON);
        ParseXMLNode(ChildNode, ChildJSON);
      end
      else
        ParentJSON.AddPair(ChildNode.NodeName, ChildNode.Text);
    end;
  end;

begin
  XMLDoc := TXMLDocument.Create(nil);
  XMLDoc.LoadFromXML(XML);
  RootNode := XMLDoc.DocumentElement;
  JSONObject := TJSONObject.Create;
  try
    ParseXMLNode(RootNode, JSONObject);
    Result := JSONObject.ToString;
  finally
    JSONObject.Free;
  end;
end;

procedure Test;
var
  XML, JSON: string;
begin
  XML := '<root><item><name>Item 1</name><value>10</value></item><item><name>Item 2</name><value>20</value></item></root>';
  JSON := XMLToJSON(XML);
  WriteLn(JSON);
end;

begin
  Test;
end.