TXMLDocument unterschiede D7/D2006 (Problemchen)

[himitsu]

Kurzfassung:
> D2006 doppelte Nodes beim Speichern
> D7 Probleme beim Einlesen

Wißt ihr, ich bin gestern/heute Nacht fast verrückt geworden
Da will man mal was Neues probieren und dann sowas.

Hab beim weiteren Rumprobieren, aber nachdem ich schon fast fertig war folgendes zu verfassen, vermutlich rausbekommen wo der Fehler liegt.

> der "blöde" Debugger ist Schuld

laß ich's Programm normal durchlaufen geht's, aber im Einzelschritt kommt Mißt raus


[add]
Hab's jetzt im D7 nochmals versucht und hier geht dieses (es wird richtig geschrieben),
nur ... (siehe unten)
[/add]

Zitat:

durch den ganzen Hype hab ich auch mal versucht eine INI auf XML umzustellen
und das Einlesen geht eigentlich,

Delphi-Quellcode:

XML := TXMLDocument.Create(XMLParent);
Try
  XML.LoadFromFile(S);

  XMLNode := XML.DocumentElement.ChildNodes['Project'];
  Temp.ProjectFile          := XMLNode.ChildNodes['File'].Text;
  Temp.ProjectName          := XMLNode.ChildNodes['Name'].Text;
  Temp.ProjectVersion       := XMLNode.ChildNodes['Version'].Text;
  Temp.ProjectSourceDir     := XMLNode.ChildNodes['SourceDir'].Text;
  Temp.ProjectVersionSource := XMLNode.ChildNodes['VersionSource'].Text;
  Temp.ProjectDescription   := XMLNode.ChildNodes['Description'].Text;
  Temp.ProjectLicense       := XMLNode.ChildNodes['License'].Text;

aber beim Speichern will es nicht so richtig

Delphi-Quellcode:

XML := TXMLDocument.Create(XMLParent);
Try
  XML.Active     := True;
  XML.Version    := '1.0';
  XML.StandAlone := 'yes';
  XML.AddChild('xml');

  XMLNode := XML.DocumentElement.AddChild('Project');
  XMLNode.AddChild('File').Text          := Data.ProjectFile;
  XMLNode.AddChild('Name').Text          := Data.ProjectName;
  XMLNode.AddChild('Version').Text       := Data.ProjectVersion;
  XMLNode.AddChild('SourceDir').Text     := Data.ProjectSourceDir;
  XMLNode.AddChild('VersionSource').Text := Data.ProjectVersionSource;
  XMLNode.AddChild('Description').Text   := Data.ProjectDescription;
  XMLNode.AddChild('License').Text       := Data.ProjectLicense;

LoadFromXML da ich (ohne) nichts anderes fand, womit/wie man eine XML-Datei erstellt


manchmal geht es und dann wieder nicht o.O
also ohne etwas am Code zu ändern ... einfach nur mehrmals das Testprogramm laufen lassen.

die XML sieht erstmal so aus

XML-Code:

<?xml version="1.0" standalone="yes"?>
<xml>
   <Project>
      <File>111</File>
      <Name>222</Name>
      <Version>333</Version>
      <SourceDir>444</SourceDir>
      <VersionSource>555</VersionSource>
      <Description>666</Description>
      <License>777</License>
   </Project>
</xml>

nach'm Speichern sieht es dann so aus

XML-Code:

<?xml version="1.0" standalone="yes"?>
<xml>
   <Project><File>111</File><Name>222</Name><Version>333</Version><SourceDir>444</SourceDir><VersionSource>555</VersionSource><Description>666</Description><License>777</License></Project></xml>

ok, das mit den Zeilenumbrüchen ist nicht schön, aber zumindestens der Inhalt stimmt.

nur kommt zu über 80% Folgendes raus
(Zeilenumbrüche per Hand eingefügt)
und wie man sieht, da ist irgendwie was zuviel drin

XML-Code:

<?xml version="1.0" standalone="yes"?>
<xml>
   <Project>
      <File></File>
      <File>111</File>
      <File></File>
      <Name>222</Name>
      <File></File>
      <Version>333</Version>
      <File></File>
      <SourceDir>444</SourceDir>
      <File></File>
      <VersionSource>555</VersionSource>
      <File></File>
      <Description>666</Description>
      <File></File>
      <License>777</License>
      <File></File>
      <File></File>
      <File></File>
      <File></File>
      <File></File>
      <File></File>
   </Project>
</xml>

2006er Delphi
und als XMLParent hab ich TComponent.Create(nil) mißbraucht, da ich in der Unit kein Fenster oder Dergleichen zur Verfügung hab, aber das dürft doch nicht stören?

[add]
... nur geht dafür hier wiederum das Einlesen nicht ganz.
die 2. Ebene wird noch ausgelesen, aber die 3. (in der Schleife) bricht mit einer Exception ab
(nur in D7 ... in D2006 ging dieses noch)

Delphi-Quellcode:

XMLNode := XML.DocumentElement.AddChild('Project');
XMLNode.AddChild('File').Text := {0F}Data.ProjectFile;
XMLNode.AddChild('Name').Text := {01}Data.ProjectName;
...


XML.DocumentElement.AddChild('Packets');
For i := 0 to High(Data.Packets) do Begin
  XMLNode := XML.DocumentElement.ChildNodes['Packets'].AddChild('Packet');
  XMLNode.AddChild('ID').NodeValue := Data.Packets[i].PacketID;
  XMLNode.AddChild('Name').Text    := Data.Packets[i].PacketName;
  ...

XML.SaveToFile(S);

Delphi-Quellcode:

XML.LoadFromFile(S);

XMLNode := XML.DocumentElement.ChildNodes['Project'];
Temp.ProjectFile := XMLNode.ChildNodes['File'].Text;
Temp.ProjectName := XMLNode.ChildNodes['Name'].Text;
...

i2 := XML.DocumentElement.ChildNodes['Packets'].ChildNodes.Count;
SetLength(Data.Packets, i2);
For i := 0 to i2 - 1 do Begin
  XMLNode := XML.DocumentElement.ChildNodes['Packets'].ChildNodes[i];
  Temp.Packets[i].PacketID   := XMLNode.ChildNodes['ID'].NodeValue; // <<< hier
  Temp.Packets[i].PacketName := XMLNode.ChildNodes['Name'].Text;
  ...

Zitat:

Zugriffsverletzung bei Adresse 0048F96D in Modul 'MyInstaller.exe'. Schreiben von Adresse 00000000.

PacketID(Byte) + .NodeValue scheint aber nicht Schuld zu sein,
denn PacketName(WideStrinf) + .Text geht auch nicht (PacketID... auskommentiert)
und der Node existiert auch in der XML.



Und ja, ich wälze mich (immernoch) durch alle möglichen XML-Tutorials,
aber prinzipiell sollte es doch gehn?