Brauche Hilfe bei XML-Datei

[DeddyH]

Hier einmal eine Langversion:

Delphi-Quellcode:

uses XMLDoc, XMLIntf;

procedure TForm1.Button1Click(Sender: TObject);
var
  Doc: IXMLDocument;
  Node: IXMLNode;
  Name1: string;
begin
  Name1 := '';
  Doc := TXMLDocument.Create(nil);
  Doc.LoadFromFile(...); //Dateiname hier einsetzen
  Doc.Active := true;
  Node := Doc.DocumentElement.ChildNodes.FindNode('Config');
  while Assigned(Node) do
    begin
      if Node.HasAttribute('name') then
        if Node.Attributes['name'] = 'Name1' then
          if Node.HasAttribute('value') then
            begin
              Name1 := Node.Attributes['value'];
              break;
            end;
      Node := Node.NextSibling;
    end;
  ShowMessage(Name1);
end;

[verkouter]

Danke, hat funktioniert.
Da wäre ich nie daraufgekommen.
Also ist "name) und "value" ein Attribut von "Config" ???

[DeddyH]

Richtig.

[himitsu]

Wenn Einem xmlDoc.DocumentElement.ChildNodes.FindNode('Config').ChildNodes['Name1'].Attributes['value'] zu umständlich ist, dann kann er/sie auch gern mit XPath arbeiten.
https://de.wikipedia.org/wiki/XPath
MS-XMLDOC kann das.

Da kann man auch ohne Schleifen und externe Bedingungen direkt im "String" Vieles besser einschränken,
so ala xmlDoc.DocumentElement.Nodes['Config[@name=Name1]\attribute::value'] , also im ROOT das "Config" mit dem Attribut "name", dessen Wert "Name1" ist, und davon da Attribut "value" auslesen/bearbeiten.

[Aviator]

Hallo zusammen,

ich hänge mich mal an dieses Thema mit dran, da ich auch gerade ein Problem damit habe, XML-Dateien auszulesen. Habe bisher nur mit INI-Files gearbeitet, wollte jetzt aber mal ein Projekt mit XML-Dateien aufbauen. Und zwar geht es um folgende XML-Datei:

XML-Code:

<?xml version="1.0"?>
<CardInformation>
   <name></name>
   <orbs count="x">
      <fire>x</fire>
      <frost>x</frost>
      <nature>x</nature>
      <shadow>x</shadow>
   </orbs>
   <affinity></affinity>
   <energy></energy>
   <type kind=""></type>
   <charges></charges>
   <rarity></rarity>
   <edition></edition>
   <weapontype></weapontype>
   <size></size>
   <attack></attack>
   <defense></defense>
   <special>
      <special1></special1>   
   </special>
   <picture></picture>
</CardInformation>

Meine Frage ist jetzt, wie ich an die Einzelnen Knoten dran komme. Ich brauche alle Informationen wie z.B. name, orbs, affinity usw. Diese sollen in einem Object gespeichert werden. Folgenden Code habe ich dazu geschrieben (angelehnt an den Code von DeddyH):

Delphi-Quellcode:

procedure TCardReader.CreateBFCardInfo(const AXmlList: TStringList; const ABFCardInfoList: TBFCardInfoList);
var
  i, j: Integer;
  ci: TBFCardInfo;
  doc: IXmlDocument;
  Node: IXMLNode;
begin
  CoInitialize(nil);
  try
    doc := TXMLDocument.Create(nil);
    for i := 0 to AXmlList.Count - 1 do begin
      ci := TBFCardInfo.Create;

      doc.LoadFromFile(AXmlList[i]);  // Load XmlDocument
      doc.Active := True;  // Activate Document and check it

      if doc.DocumentElement.HasChildNodes then begin
        for j := 0 to doc.DocumentElement.ChildNodes.Count - 1 do begin
        end;
        Node := doc.DocumentElement.ChildNodes.FindNode('CardInformation');
        if Assigned(Node) then begin
          ci.Name := Node.ChildNodes.FindNode('name').NodeValue;
          ci.Orbs := Node.ChildNodes.FindNode('orbs').NodeValue;

          ABFCardInfoList.Add(ci);
        end;
      end;
    end;
  finally
    CoUninitialize;
  end;
end;

Allerdings steigt er schon in der Zeile if doc.DocumentElement.HasChildNodes then begin aus und überspringt den nachfolgenden Part. Ich schaffe es also nicht, überhaupt an die untergeordneten Knoten von CardInformation ranzukommen. Wo liegt mein Fehler? Ich hoffe mir kann da jemand bei helfen. Vielleicht kann auch jemand noch ein Beispiel machen, wie ich an die Subknoten von orbs herankomme. Ich denke zwar, dass das dann das gleiche Verfahren sein wird, aber bevor ich hier nochmal gegen die Wand renne ...

[p80286]

ggf. könnte Dir ein Blick in himxml weiter helfen. Bisher hatte ich den Eindruck, der Autor weiß was er tut.

Gruß
K-H

[DeddyH]

Kann es denn mehrere CardInformations innerhalb einer XML-Datei geben? Wenn ja, stimmt AFAIK die Struktur nicht, es müsste dann noch ein umschließendes Tag geben, aber das kann man im RFC bestimmt genauer nachlesen.