XML zum Verzweifeln

[Stolle58]

Ich hab Delphi 10.4 Pro und habe ebenfalls diesen Wizard.
Nur ist er gegenüber früher, in der Kategorie Web und nicht in XML zu finden.

[MyRealName]

Ich habe jetzt im Endeffekt eine lauffähige rekursive Funktion, die den Namen des Unterlementes an den Parent-Namen (mit Punkt getrennt) anhängt. Das ganze wird

Code:

procedure IterateNode(ARoot: IXMLNode; ACurrentNodeName: String = '');
var
  lChild: IXMLNode;
  lNodeName: String;
begin
  lNodeName := IfThen(ACurrentNodeName <> '', ACurrentNodeName + '.', '');

  lChild := ARoot.ChildNodes.First;
  while Assigned(lChild) do
  begin
    if Not lChild.IsTextElement then
    begin
      if lChild.ChildNodes.Count > 0 then
      begin
        if DoIterate(lChild.NodeName) then
        begin
          CodeSite.EnterMethod(lChild.NodeName);
          IterateNode(lChild, lNodeName + lChild.NodeName);
          CodeSite.ExitMethod(lChild.NodeName);
        end;
      end;
    end else begin
      CodeSite.Send(csmLevel1, lNodeName + lChild.NodeName, VarToStr(lChild.NodeValue));

    end;
    lChild := lChild.NextSibling;
  end;
end;

Im Codesite wird das dann als Baum ausgegeben, leere Elemente werden unterdrückt. Dazu gibt es noch einen Aufruf von DoIterate, der Falsxe zurückliefert, wenn etwas nicht durchgegangen werden soll (ich muss einige Sachen gesondert behandeln).

Jedenfalls ist es eine lauffähige Lösung, damit der Thread auch einen Abschluss hat

[himitsu]

https://www.embarcadero.com/docs/rad...ure-matrix.pdf
XML Bindings nur in Enterprise/Architect.

[peterbelow]

Zitat von himitsu:

https://www.embarcadero.com/docs/rad...ure-matrix.pdf
XML Bindings nur in Enterprise/Architect.

Da geht es um was anderes, Tools um XML in datasets zu bekommen und zu exportieren. Der von mir angesprochene Wizard ist definitiv in der Pro-Version dabei, seit vielen Versionen.

[WiPhi]

Eine aufgepette Version des Databinding-Assistenten findet man auch hier:

https://github.com/MvRens/x2xmldatabinding

Diese unterstützt ein bisschen mehr als der Assistent in Delphi.

[MyRealName]

Ich habe das XML Databinding gefunden, das Problem war im Endeffekt, dass man dazu ein offenes Projekt haben muss.
Nun hat mir der Wizard 3 Funktionen in den erstellten Sourcecode mit reingegeben :

function GetORDER(Doc: IXMLDocument): IXMLORDERType;
function LoadORDER(const FileName: string): IXMLORDERType;
function NewORDER: IXMLORDERType;

(ORDER ist wohl der 1. Knoten...)

Nun die Frage... Sollte ich das Daten ändern wollen und das ganze wieder als XML speichern wollen, gibt es da auch eine Möglichkeit oder muss ich alles selbst machen und durch-iterieren ?

Edit: Kann man vllt den Start-Knoten "einfach" der Rootnode eines TXMLDocument zuweisen und los geht's ?

[peterbelow]

var
LOrder: IXMLOrderType;

LOrder.OwnerDocument.XML.Text sollte Dir den kompletten Inhalt des Baums als String liefern und den kannst Du dann in eine Datei schreiben. Dabei bitte das korrekte Encoding (normalerweise UTF-8) beachten.

[MyRealName]

Zitat von peterbelow:

var
LOrder: IXMLOrderType;

LOrder.OwnerDocument.XML.Text sollte Dir den kompletten Inhalt des Baums als String liefern und den kannst Du dann in eine Datei schreiben. Dabei bitte das korrekte Encoding (normalerweise UTF-8) beachten.

Danke, das geht, nutze allerdings

LOrder.OwnerDocument.SaveToFile...