Problem beim Auslesen einer XML Datei

[Headbucket]

Zitat von Der schöne Günther:

Ich glaube er hat keinen, seine Frage ist eher

• Wie kann ich mit der NativeXML-Library eine XML wieder einlesen

Delphi-Quellcode:

var
  XMLDoc: TNativeXML;
begin
  XMLDoc := TNativeXML.Create(Nil);
  XMLDoc.LoadFromFile(FileName);

Zitat von Der schöne Günther:

oder

• Wie kann ich den Inhalt eines XML-Dokuments in einem TVirtualTreeview darstellen

Die Prozedur ist ja in seiner Verlinkung schon vorgegeben und muss wahrscheinlich nur minimal angepasst werden

Zitat von Der schöne Günther:

Wobei ich das Problem auch nicht ganz verstehe: Ist es nicht egal, welche XML-Library du nimmst? Du kannst doch einfach die Standardlib (bis XE6 war es noch MS-XML) nehmen und den verlinkten Code kopieren?

Das verstehe ich auch nicht.
Bei mir benötigt eine 5,6 MB große Datei beim Öffnen mit NativeXML 1700 ms. Wenn ich MSXML verwende sind es knapp 600 ms. Am schnellsten ist bei mir OXml aber das spielt ja hier keine Rolle

Grüße
Headbucket

Ergänzung:
NativeXML scheint einen Vorteil beim Lesen kleiner Dateien zu bringen. Wenn ich 1000 5 KB große Dateien einlese, bringt NativeXML einen Geschwindigkeitsvorteil von 60 ms... . Beim Schreiben ists dann wieder langsamer... .

[Der schöne Günther]

Cool, gut zu wissen.

[Wishmaster]

Hey

entschuldigung dass ich mich nicht deutlich gemacht hatte!

ich benutze die NativeXML-Library schon seit einiger zeit,
dennoch ist es für mich das erste mal das ich die Library in einem loop verwende.
in dem demo code hat er eine funktion die in der NativeXML so nicht existiert oder wird anders benutzt!?
und zwar vor dem loop wird die funktionNode.ChildNodes.First; aufgerufen.

anyways das ist mein versuch den code anzupassen.
Ps. wie schon gesagt wenn jemand eine bessere lösung hat....

Delphi-Quellcode:

function TMain_Form.Load_File(FileName : String) : Boolean;
var
  pNode : PVirtualNode;
  Data : PNodeData;
  XML  : TNativeXml;
  iNode : TXmlNode;

procedure ProcessNode(pNode : PVirtualNode; iNode : TXmlNode);
var cNode : TXmlNode;
begin
  if iNode = nil then
   exit;

  with iNode do
   begin
    Data:= VT.GetNodeData(pNode);
    pNode:= VT.AddChild(pNode);
    // Data^.Title:= iNode
   end;

 (* Original cNode := Node.ChildNodes.First; *)

   cNode:= iNode.; // <------------------- problem?
  while cNode <> nil do
   begin
    ProcessNode(pNode, cNode);
    cNode:= cNode.NextSibling(cNode)
   end;
end;

begin
  VT.Clear;

 try
   XML:= TNativeXml.CreateName('password manager');
   XML.LoadFromFile(Filename);
 except
   on E: Exception do
    begin
     if (Assigned(XML)) then
      FreeAndNil(XML);
      Exit;
    end;
 end;


 try

   (* Original iNode := XMLDoc.DocumentElement.ChildNodes.First; *)

   iNode:= XML.RootNodes.FindFirst;
  while iNode<>nil do
   begin
    ProcessNode(nil, iNode);
    iNode:= iNode.NextSibling(iNode);
   end;

   if (Assigned(XML)) then
   FreeAndNil(XML);
   Result:= True;
 except on E: Exception do
  begin
   if (Assigned(XML)) then
    FreeAndNil(XML);
  end;
 end;
end;

[Dejan Vu]

Wie wäre es, wenn Du das nimmst, was (fast) alle anderen verwenden, also einen Standard? Nur mal so nebenbei. Dann würden nämlich die Beispiele im Netz auch funktionieren.

So, und bei deiner Library ist ein PDF dabei, und Beispiele. Irgendwo wird da wohl stehen, wie man durch eine Node-Collection iteriert.