himXML (gesprochen himix ML)

[himitsu]

Upps, dachte ich hätte schon geantwortet.

Die EAccessViolation konnte ich nicht nachvollziehen.
> himxml_164 und XE3
> heute Abend kann ich nochmal schnell XE und 10.1 testen

Wie sieht dein System denn aus?
> Versionen XML und Delphi

Hab den Test nochmal schnell zusammengeklöppelt

Delphi-Quellcode:

var XML: TXMLFile;
  Node:  TXMLNode;
  S:     String;
begin
  // EAccessViolation

  XML := TXMLFile.Create;
  try
    Node := XML.RootNode.AddNode('test');
    XML.RootNode.Nodes.Delete(Node);
    XML.SaveToFile('test.xml');
    //  <?xml version="1.0" encoding="UTF-8" standalone="yes" ?>
    //  <xml/>
  finally
    XML.Free;
  end;

  // Node "&amp;amp;" statt "&amp;"

  XML := TXMLFile.Create;
  try
    XML.RootNode.AddNode('test').Text := '&';
    XML.SaveToFile('test.xml');
    S := TFile.ReadAllText('test.xml');
    OutputDebugString(PChar(S));  //ShowMessage(S);
    //  <?xml version="1.0" encoding="UTF-8" standalone="yes" ?>
    //  <xml>
    //    <test>&amp;</test>
    //  </xml>
  finally
    XML.Free;
  end;

  XML := TXMLFile.Create;
  try
    XML.LoadFromFile('test.xml');
    S := '"' + XML.RootNode.Node['test'].Text + '"' + sLineBreak
      + '"' + XML.RootNode.Node['test'].Text_S + '"' + sLineBreak
      + '"' + XML.RootNode.Node['test'].Text_D + '"';
    OutputDebugString(PChar(S));  //ShowMessage(S);
    //  "&"
    //  "&"
    //  "&"
  finally
    XML.Free;
  end;

  XML := TXMLFile.Create;
  try
    XML.LoadFromFile('test.xml');
    XML.SaveToFile('test.xml');
  finally
    XML.Free;
  end;

  XML := TXMLFile.Create;
  try
    XML.LoadFromFile('test.xml');
    S := '"' + XML.RootNode.Node['test'].Text + '"' + sLineBreak
      + '"' + XML.RootNode.Node['test'].Text_S + '"' + sLineBreak
      + '"' + XML.RootNode.Node['test'].Text_D + '"';
    OutputDebugString(PChar(S));  //ShowMessage(S);
    //  "&"
    //  "&"
    //  "&"
  finally
    XML.Free;
  end;

  // Attribute "&amp;amp;" statt "&amp;"

  XML := TXMLFile.Create;
  try
    XML.RootNode.AddNode('test').Attributes.Add('attr', '&');
    XML.SaveToFile('test.xml');
    S := TFile.ReadAllText('test.xml');
    OutputDebugString(PChar(S));  //ShowMessage(S);
    //  <?xml version="1.0" encoding="UTF-8" standalone="yes" ?>
    //  <xml>
    //    <test attr="&amp;"/>
    //  </xml>
  finally
    XML.Free;
  end;

  XML := TXMLFile.Create;
  try
    XML.LoadFromFile('test.xml');
    S := '"' + XML.RootNode.Node['test'].Attribute['attr'] + '"';
    OutputDebugString(PChar(S));  //ShowMessage(S);
    //  "&"
  finally
    XML.Free;
  end;

  XML := TXMLFile.Create;
  try
    XML.LoadFromFile('test.xml');
    XML.SaveToFile('test.xml');
  finally
    XML.Free;
  end;

  XML := TXMLFile.Create;
  try
    XML.LoadFromFile('test.xml');
    S := '"' + XML.RootNode.Node['test'].Attribute['attr'] + '"';
    OutputDebugString(PChar(S));  //ShowMessage(S);
    //  "&"
  finally
    XML.Free;
  end;

  // DateTime

  XML := TXMLFile.Create;
  try
    XML.RootNode.AddNode('test').Text := Now;
    XML.RootNode.AddNode('test').Attributes.Add('attr', Now);
    XML.SaveToFile('test.xml');
    S := TFile.ReadAllText('test.xml');
    OutputDebugString(PChar(S));  //ShowMessage(S);
    //  <?xml version="1.0" encoding="UTF-8" standalone="yes" ?>
    //  <xml>
    //    <test>2018-02-19T10-05-51.276</test>
    //    <test attr="2018-02-19T10-05-51.598"/>
    //  </xml>
  finally
    XML.Free;
  end;

  XML := TXMLFile.Create;
  try
    XML.LoadFromFile('test.xml');

    S := '"' + DateTimeToStr(XML.RootNode.Node['test'].Text) + '"' + sLineBreak;
    //S := S + '"' + XML.RootNode.Node['test'].Text + '"' + sLineBreak;  // EVariantTypeCastError: Could not convert variant of type (UnicodeString) into type (Date)
    S := S + '"' + XML.RootNode.Node['test'].Text_S + '"' + sLineBreak + sLineBreak;

    S := S + '"' + DateTimeToStr(XML.RootNode.Node['test'].Attribute['attr']) + '"'+ sLineBreak;
    S := S + '"' + XML.RootNode.Node['test'].Attribute['attr'] + '"' + sLineBreak + sLineBreak;

    S := S + '"' + TXHelper.DateTimeToXML(Now, 3) + '"';
    OutputDebugString(PChar(S));  //ShowMessage(S);
    //  "19.02.2018 10:14:41"
    //  "2018-02-19T10-14-41.622"
    //
    //  "30.12.1899"
    //  ""
    //
    //  "2018-02-19T10-14-48"
  finally
    XML.Free;
  end;

So ging alles.

Diesmal auch das Datum probiert und ...

Zitat:

EVariantTypeCastError: Could not convert variant of type (UnicodeString) into type (Date)

Bug im XE3?
> Der Cast ist ja wohl andersrum, also Variant(DateTime) > String

Und bei den Attributen klappt das Auslesen nicht ... muß aber noch schauen warum.
Mir fiel grade ein warum es nicht ging.
> Attribut im zweiten Node, aber den ersten Node ausgelesen

Delphi-Quellcode:

  // richtig

  XML := TXMLFile.Create;
  try
    XML.LoadFromFile('test.xml');

    S := '"' + DateTimeToStr(XML.RootNode.Node['test'].Text) + '"' + sLineBreak;
    //S := S + '"' + XML.RootNode.Node['test'].Text + '"' + sLineBreak;  // EVariantTypeCastError: Could not convert variant of type (UnicodeString) into type (Date)
    S := S + '"' + XML.RootNode.Node['test'].Text_S + '"' + sLineBreak + sLineBreak;

    S := S + '"' + DateTimeToStr(XML.RootNode.Node['test'].Attribute['attr']) + '"'+ sLineBreak;
    S := S + '"' + XML.RootNode.Node['test'].Attribute['attr'] + '"' + sLineBreak + sLineBreak;

    S := S + '"' + DateTimeToStr(XML.RootNode.Nodes[1].Attribute['attr']) + '"'+ sLineBreak;
    //S := S + '"' + XML.RootNode.Nodes[1].Attribute['attr'] + '"' + sLineBreak + sLineBreak;  // EVariantTypeCastError: Could not convert variant of type (UnicodeString) into type (Date)
    S := S + sLineBreak;

    //S := S + '"' + DateTimeToStr((XML.RootNode.XPath['test[2]'] as TXMLNode).Attribute['attr']) + '"'+ sLineBreak;
    //S := S + '"' + (XML.RootNode.XPath['test[2]'] as TXMLNode).Attribute['attr'] + '"' + sLineBreak + sLineBreak;

    S := S + '"' + TXHelper.DateTimeToXML(Now, 3) + '"';
    OutputDebugString(PChar(S));  //ShowMessage(S);
    //  "19.02.2018 10:28:40"
    //  "2018-02-19T10-28-40.633"
    //
    //  "30.12.1899"
    //  ""
    //
    //  "19.02.2018 10:28:40"
    //
    //  "2018-02-19T10-28-45"
  finally
    XML.Free;
  end;

[Ghostwalker]

Moinmoin,

erstmal, super Lib, im Großen und Ganzen bin ich sehr zufrieden damit.

Bei meinem neusten Projekt bekomm ich aber ein Problem.

Schnippsel der Daten

Code:

<?xml version="1.0" encoding="UTF-8" standalone="yes" ?>
<Label1 Display="Label1" Kind="tkClass" Value="" Typename="Vcl.StdCtrls.TLabel" Parentname="" Qualified="Vcl.StdCtrls.TLabel">
  <Align Display="Align" Kind="tkEnumeration" Value="alBottom" Typename="TAlign" Parentname="TLabel" Qualified="Vcl.Controls.TAlign"/>
  <Alignment Display="Alignment" Kind="tkEnumeration" Value="taCenter" Typename="TAlignment" Parentname="TLabel" Qualified="System.Classes.TAlignment"/>
  <Anchors Display="Anchors" Kind="tkSet" Value="[akLeft,akRight,akBottom]" Typename="TAnchors" Parentname="TLabel" Qualified="System.UITypes.TAnchors">

Beim Zugriff auf die einzelnen Nodes (nach dem Laden) bekomme ich zwar den Node, aber nicht seine Attribute:

Delphi-Quellcode:

  xml := TXMLFile.Create(NIL,true);
  xml.LoadFromFile(filename);
  node := ftree.GetFirst();
  ndata := Ftree.GetNodeData(node);
  path := ndata^.Display;
  xnode := xml[path];
  if (xnode <> NIL) then
  begin
    :

Hab einen Haltepunkt beim if gesetzt, und mir xnode.Attributes.count anzeigen lassen....ist 0.
Ich hab das ganze nicht nur mit dem Rootnode sonder auch mit Subnodes auspropiert. Den Node bekomm ich,
die Attribute nicht.

Wo liegt das Problem ?

[himitsu]

"path" stimmt auch?
siehe xnode.NodeType , xnode.Name , xnode.FullPath

Standardmäßig ist xoNodeAutoCreate in den Options aktiv.

Entweder deaktivieren oder erst prüfen, vorm Zugreifen.
xml.Options := xml.Options - [xoNodeAutoCreate];

Delphi-Quellcode:

if xml.Nodes.Exists(path) then begin
  xnode := xml[path];

[Ghostwalker]

Ja path stimmt, ich bekomme ja auch den Knoten an und für sich. Nur eben mit einer leeren Attributliste.

Beispiel:

Delphi-Quellcode:

path := 'Label1';
xnode := xml[path]
if (xnode <> NIL) then
  writeln(IntToStr(xnode.attributes.count));

Ergibt 0

Delphi-Quellcode:

path := 'Label1\Anchors';
xnode := xml[path]
if (xnode <> NIL) then
  writeln(IntToStr(xnode.attributes.count));

Ergibt 0

Während

  writeln(IntToStr(xml.rootnode.attributes.count)); Ergibt 6

[himitsu]

Zitat:

ich bekomme ja auch den Knoten

Den Knoten, oder einen Knoten?
Wie gesagt, schalte mal die Option aus oder prüfe vorher.

Label1 ist dein Root-Node.
Da es immer nur einen Root-Node gibt, wird er quaso übersprungen, da er zu gefühlt 99,99% auch keine Attribute enthält.
xml[...] entspricht xml.RootNode.Nodes[...], also nur dem Inhalt des RootNodes.

Delphi-Quellcode:

path := 'Anchors';  // path := '../Label1/Anchors';
xnode := xml[path]
if (xnode <> NIL) then
  writeln(IntToStr(xnode.attributes.count));

Oder versuche mal xml.Nodes[...]

[Ghostwalker]

Ich bekomme DEN Knoten, da der Name übereinstimmt

Hab das ganze jetzt mal in ein extra Testprojekt verfrachtet.

Wenn ich die Option rausnehme, findet er garnix mehr.

Interresanterweise funktionierts mit .Nodes[].

Anbei ( auch für dich zum Testen) mal das Testprojekt.

Ich hatte eigentlich gedacht das XML[path] das gleiche ist wie xml.nodes[path]...scheinbar aber nicht.

[himitsu]

Zitat von Ghostwalker:

Ich hatte eigentlich gedacht das XML[path] das gleiche ist wie xml.nodes[path]...scheinbar aber nicht.

XML[path] Kurz für XML.Node[path] ist XML.RootNode.Node[path] bzw. ganz genau XML.RootNode.Nodes.Node[path]

Zitat:

Ich bekomme DEN Knoten, da der Name übereinstimmt

Selber falsch nachgedacht.
Der Name muß ja stimmen, da der "fehlende" Knoten ja mit diesem Namen angelegt wird, nach welchem gesucht wurde.

Delphi-Quellcode:

xml := TXMLFile.Create;
//xml.Options := xml.Options - [xoNodeAutoCreate];
if xml['blubb'] = nil then 
  ShowMessage('mähhh');
ShowMessage(xml.asXML);
xml.Free;

xml := TXMLFile.Create;
if xml['blubb'].Text = 'blubber' then 
  ;
xml['abc/def'].Text := 'xyz';
xml['abc/hij'].Attribute['uvw'] := 666;
ShowMessage(xml.asXML);
xml.Free;