Brauche Hilfe bei XML-Datei

[verkouter]

Ein Messgerät auf Arbeit liefert nach einer Messung eine Zip-Datei, in der eine XML-Datei gespeichert wird.

Code:

<Pile>
<Event name="RecordStart" pos="0" date="2016-06-08T18:02:59" data=""/>
<Config name="NameDLG" value="Dialog 88"/>
<Config name="VersionDLG" value="4.9.08"/>
<Config name="Firm" value="Test"/>
<Config name="Proc" value="SMX"/>
<Config name="Rec" value="REC0"/>
<Config name="JobSite" value="Testbaustelle"/>
<Config name="Contract" value="B1-B3"/>
<Config name="Rig" value="M1"/>
<Config name="Name1" value="R44S11"/>
<Config name="Name2" value=""/>
<Config name="Restart" value="0"/>
<Env name="Inclination" value="-0.00119055328173877;-0.00225370213759822"/>
<Env name="MachineLocation" value="Right"/>
&#65279;<Descript>
<Trigger>
<AffectTrig>TNTMN0</AffectTrig>
<Function>D+-</Function>
<Value>10.000000</Value>
<ID Size="4">2147483755</ID>
<NbParam Size="4">18</NbParam>
<Measure SizeInfo="2" SizeValue="8"/>
<Affect>SNTRN0</Affect>
<Affect>SNTMN0</Affect>
<Affect>SDBNN0</Affect>
<Affect>SDSNA0</Affect>
<Affect>SRPNN0</Affect>
<Affect>STPPN0</Affect>
<Affect>STPTN0</Affect>
<Affect>SRBNR0</Affect>
<Affect>SRBNS0</Affect>
<Affect>SRSNN0</Affect>
<Affect>SGPNN0</Affect>
<Affect>SGVNR0</Affect>
<Affect>SGVNS0</Affect>
<Affect>SGSNN0</Affect>
<Affect>SIBXN0</Affect>
<Affect>SIBYN0</Affect>
<Affect>SRFNN0</Affect>
<Affect>SROGN0</Affect>
</Trigger>
<Trigger>
<AffectTrig>TDBMN0</AffectTrig>
<Function>D+-</Function>
<Value>0.04</Value>
<ID Size="4">2147483774</ID>
<NbParam Size="4">18</NbParam>
<Measure SizeInfo="2" SizeValue="8"/>
<Affect>SNTRN0</Affect>
<Affect>SNTMN0</Affect>
<Affect>SDBNN0</Affect>
<Affect>SDSNA0</Affect>
<Affect>SRPNN0</Affect>
<Affect>STPPN0</Affect>
<Affect>STPTN0</Affect>
<Affect>SRBNR0</Affect>
<Affect>SRBNS0</Affect>
<Affect>SRSNN0</Affect>
<Affect>SGPNN0</Affect>
<Affect>SGVNR0</Affect>
<Affect>SGVNS0</Affect>
<Affect>SGSNN0</Affect>
<Affect>SIBXN0</Affect>
<Affect>SIBYN0</Affect>
<Affect>SRFNN0</Affect>
<Affect>SROGN0</Affect>
</Trigger>
</Descript>
<Event name="SetVal" pos="376" date="2016-06-08T18:02:59" data="SGVNR0:0
SGVNS0:0
SRBNR0:0
SRBNS0:0
"/>
<Event name="PhaseStart" pos="752" date="2016-06-08T18:02:59" data="0"/>
<Event name="MeasureDStart" pos="1128" date="2016-06-08T18:03:04" data=""/>
<Event name="MeasureDStop" pos="48692" date="2016-06-08T18:06:38" data=""/>
<Event name="PhaseStop" pos="49068" date="2016-06-08T18:06:38" data="0"/>
<Event name="RecordStop" pos="49444" date="2016-06-08T18:06:39" data=""/>
<Config name="ID" value="00364_R44S11_2016-06-08T18+02+58"/>
</Pile>

Wenn man sich am Messgerät vertippt hat, kann man den Namen der Messung nicht mehr ändern, auch das Auswerteprogramm am PC bietet keine Umbennenen-Funktion.

Ich wollte ein Programm schreiben, in dem man die Messdaten in Edits einliest, ändern kann und dann wieder als XML speichert. Nur leider habe ich keine Ahnung von XML. Alle Versuche haben nicht funktioniert.
Wichtig wäre der Eintrag
<Config name="Name1" value="R44S11"/>

[hoika]

Hallo,
wie wäre es, einfach ne TStringList zu nehmen ?


Heiko

[verkouter]

Nein, ich muss mit den XML Knoten arbeiten, weil bei einem 2. Messgerät der Aufbau, der XML anders aufgebaut ist(andere Version), der Knoten aber gleich heißt.

[vagtler]

Wie sehen denn Deine Versuche aus? Oder möchtest Du eine fertige Lösung? Dann wäre "Jobs" vielleicht die richtige Kategorie.

[BUG]

Zitat:

Zitat von vagtler (Beitrag 1339963)

Oder möchtest Du eine fertige Lösung? Dann wäre "Jobs" vielleicht die richtige Kategorie.

Das wirkt vielleicht doch etwas schroff auf jemand, der nur auf der Suche nach einem XML-Tutorial ist.

Es ist bei XML meist eine gute Idee, nicht per Hand darin rumzufummeln. Wenn du mit MSXML Probleme hast, findest du im Forum auch noch andere Alternativen.

[verkouter]

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
 var
  xmlDoc : IXMLDocument;
begin
if opendialog1.Execute then
begin
  xmlDoc := newXMLDocument;
  xmlDoc.LoadFromFile(opendialog1.FileName);
  xmlDoc.Active := true;
  edit1.Text:=xmlDoc.DocumentElement.ChildNodes.FindNode('Config').ChildNodes['Name1'].Attributes['value'];
end;
end;

Bekomme immer eine Fehlermeldung "Variante des Typs(Null) konnte nicht in Typ (Olestr) konvertiert werden.

[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

Delphi-Quellcode:

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

Delphi-Quellcode:

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

Delphi-Quellcode:

if doc.DocumentElement.HasChildNodes then begin

aus und überspringt den nachfolgenden Part. Ich schaffe es also nicht, überhaupt an die untergeordneten Knoten von

Delphi-Quellcode:

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

Delphi-Quellcode:

orbs

herankomme. Ich denke zwar, dass das dann das gleiche Verfahren sein wird, aber bevor ich hier nochmal gegen die Wand renne ... :roll:

[p80286]

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

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.

[Aviator]

Zitat:

Zitat von DeddyH (Beitrag 1340538)

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.

Hallo DeddyH,
nein es bleibt bei einer CardDefinition. Habe natürlich auch in der Zeit ein bisschen weiter probiert und bin mit ein paar anderen Thread hier und bei SO schon ein kleines Stück weiter gekommen. Folgender Code funktioniert bei mir zumindest teilweise:

Delphi-Quellcode:

procedure TCardReader.CreateBFCardInfo(const AXmlList: TStringList; const ABFCardInfoList: TBFCardInfoList);
var
  i, j: Integer;
  ci: TBFCardInfo;
  doc: IXmlDocument;
  BaseNode, CurrentNode: 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 for specific card
      doc.Active := True;  // Activate Document and check it

      BaseNode := doc.DocumentElement;

      if Assigned(BaseNode) then begin
        CurrentNode := BaseNode.ChildNodes['name'];
        if Assigned(CurrentNode) then begin
          if CurrentNode.HasAttribute('name') then
            ci.Name := CurrentNode.Attributes['name']
          else
            ci.Name := '"Error while getting Name"';
        end;

        CurrentNode := BaseNode.ChildNodes['orbs'];
        ci.Orbs := GetOrbs(ExtractFileName(AXmlList[i]), CurrentNode);

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

Delphi-Quellcode:

function TCardReader.GetOrbs(const CurrentFile: string; const XmlNode: IXMLNode): TOrbs;
var
  OrbCount, Sum: Integer;
begin
  if Assigned(XmlNode) then begin
    if (XmlNode.HasAttribute('count')) then
      if TryStrToInt(XmlNode.Attributes['count'], OrbCount) then begin
        if (XmlNode.HasAttribute('fire')) then
          Result.Fire := StrToIntDef(XmlNode.Attributes['fire'], 0);
        if (XmlNode.HasAttribute('frost')) then
          Result.Frost := StrToIntDef(XmlNode.Attributes['frost'], 0);
        if (XmlNode.HasAttribute('nature')) then
          Result.Nature := StrToIntDef(XmlNode.Attributes['nature'], 0);
        if (XmlNode.HasAttribute('shadow')) then
          Result.Shadow := StrToIntDef(XmlNode.Attributes['shadow'], 0);

        // Build sum of all orbs an check against count attribute
        // If the sum is not the same as the count attribute raise an error which will be logged
        // and visible to the user to correct the error
        Sum := Result.Fire + Result.Frost + Result.Nature + Result.Shadow;
        //

        (*****************************)
        //if (OrbCount <> Sum) then
          // Log Error
        (*****************************)

      end;
  end;
end;

Falls an meiner XML-Struktur noch etwas falsch sein sollte, dann kann ich das gerne korrigieren. Das soll auf keinen Fall das Problem sein. :)
Ich versuche jetzt gerade, ob ich über diese Methode auch an die anderen Knoten dran komme. Ich werde dann auch gleich Rückmeldung geben sobald ich ein Ergebnis habe.

[Aviator]

Also ich habe es jetzt dann doch so hinbekommen. Siehe den Code oben. Um an die direkten Unterknoten von CardInformation zu kommen, habe ich dann mit

Delphi-Quellcode:

BaseNode.ChildNodes['energy'].NodeValue

gearbeitet. Das funktioniert soweit problemlos.