Knoten einfügen in xmldocument?

[Grolle]

Hallo,

kann mir jemand sagen, warum das nicht klappt?

Delphi-Quellcode:

  xmlDoc := NewXMLDocument;
  xmlDoc.Version := '1.0';
  xmlDoc.Encoding := 'iso-8859-1';
  xmlDoc.Active:=true;
  root := xmlDoc.AddChild('navigation');
  root.SetAttributeNS('project','','Testprojekt');
  SetLength(tempdata,5);
  for i := 0 to helplist.Count-1 do
    begin
      tempData := explode(';',helplist.Strings[i]);
      node := xmlDoc.DocumentElement.AddChild('test'+inttostr(i));  // hier sollten eigentlich die Knoten eingefügt werden!
      node.Text := 'Test';                                          // geht auch nicht mit root.AddChild('test'+inttostr(i));
      for j := 0 to high(tempdata) do
        begin
        end;
    end;
  
  xmlDoc.SaveToFile('C:\1.xml');

Die Knoten werden aber nicht eingefügt ?!?

Viele Grüße ...

[marabu]

Hallo Stefan,

die Knoten werden zuverlässig eingefügt. Schaust du vielleicht an der falschen Stelle nach?

Füge einfach zur Kontrolle nach der Schleife noch eine Zeile ein:

Delphi-Quellcode:

 ShowMessage(xmlDoc.XML.Text);

Übrigens: Der Aufruf von NewXMLDocument() produziert ein Speicherleck.

Freundliche Grüße

[Grolle]

Zitat:

Zitat von marabu

die Knoten werden zuverlässig eingefügt. Schaust du vielleicht an der falschen Stelle nach?
Füge einfach zur Kontrolle nach der Schleife noch eine Zeile ein:

Delphi-Quellcode:

 ShowMessage(xmlDoc.XML.Text);

Das habe ich auch schon geprüft, aber im gespeicherten Dokument tauchen sie dann nicht auf!

Zitat:

Zitat von marabu

Übrigens: Der Aufruf von NewXMLDocument() produziert ein Speicherleck.

:gruebel:

Viele Grüße ...

[marabu]

Zitat:

Zitat von Grolle

... Das habe ich auch schon geprüft, aber im gespeicherten Dokument tauchen sie dann nicht auf! ...

Bei mir schon.

Info zum Speicherleck - in D7 ist NewXMLDocument folgendermaßen implementiert:

Delphi-Quellcode:

function LoadXMLData(const XMLData: DOMString): IXMLDocument; overload;
begin
  Result := TXMLDocument.Create(nil);
  Result.LoadFromXML(XMLData);
end;

Die Instanz von TXMLDocument wird nirgendwo gespeichert - und ohne Owner fühlt sich dann niemand für das Freigeben des Speichers zuständig.

[Grolle]

Zitat:

Zitat von marabu

Zitat:

Zitat von Grolle

... Das habe ich auch schon geprüft, aber im gespeicherten Dokument tauchen sie dann nicht auf! ...

Bei mir schon.

Habs jetzt nochmal getestet. Im gespeicherten Dokument steht immer nur der erste Knoten (navigation)?!?

Zitat:

Zitat von marabu

Info zum Speicherleck - in D7 ist NewXMLDocument folgendermaßen implementiert:

Delphi-Quellcode:

function LoadXMLData(const XMLData: DOMString): IXMLDocument; overload;
begin
  Result := TXMLDocument.Create(nil);
  Result.LoadFromXML(XMLData);
end;

Die Instanz von TXMLDocument wird nirgendwo gespeichert - und ohne Owner fühlt sich dann niemand für das Freigeben des Speichers zuständig.

Ahhh, danke für die Info!

// Edit: Ich glaube, ich habe den Fehler gefunden. Resultierte aus einer übergeordneten Schleife! Thanks!