Knoten erstelung mit XMLDocumnet

[Leo675]

Hallo alle zusammen!
ich versuche mit Hilfe von XMLDokument eine XML-Datei zu entwerfen(BDS2006) und bei anlegen von zweitzem Knoten (Unterknoten von map_liste) kommt es immer wieder zu "Zugriffverletzung bei Adresse XXXXXXX in Modul XXXXXXX. Lesen von Adresse 000000000"

Hier ist der Code, den ich benutze:

Delphi-Quellcode:

uses
XMLDoc, xmlintf;

finction XML_erstellen(...): boolean;
var
var MyXML_DOC : TXMLDocument; 
map_liste, new_node:IXMLNode;

begin
result := false;
MyXML_DOC := TXMLDocument.Create(nil);
MyXML_DOC.Active:= True;
MyXML_DOC.Version := '1.0';
MyXML_DOC.StandAlone  := 'yes';
MyXML_DOC.Encoding  := 'UTF-8';

map_liste := MyXML_DOC.AddChild('map_liste');
//MyXML_DOC.SaveToFile(FileDIR+FormatDateTime('HHNNDDMMYY',Now)+FileName);
new_node  := map_liste.AddChild('adresse');

.
.
.
result := true;
MyXML_DOC.SaveToFile(FileDIR+FormatDateTime('HHNNDDMMYY',Now)+FileName);
MyXML_DOC.Active:= False;
MyXML_DOC.Free;
end;

das XML datei bei auskommentiertem SaveToFile entsteht in dem Form:

Code:

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<map_liste/>

Ich komme einfach nicht weiter! Es scheint mir so zu sein das mein Oberknoten nicht da ist! Kann mir jemand helfen?

[himitsu]

Was ist ...?

Denn so wie der Code da steht, funktioniert er einwandfrei.

Delphi-Quellcode:

var
  MyXML_DOC: TXMLDocument;
  map_liste, new_node: IXMLNode;
begin
  MyXML_DOC := TXMLDocument.Create(nil);
  MyXML_DOC.Active:= True;
  MyXML_DOC.Version := '1.0';
  MyXML_DOC.StandAlone := 'yes';
  MyXML_DOC.Encoding := 'UTF-8';
  map_liste := MyXML_DOC.AddChild('map_liste');
  new_node := map_liste.AddChild('adresse');

  MyXML_DOC.SaveToFile('C:\Users\Frank\Desktop\a.xml');
  MyXML_DOC.Free;

XML-Code:

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<map_liste><adresse/></map_liste>

[Leo675]

kommish, dann liegt fehler irgendwo bei BDS - vermute ich! Auf jeden Fall Danke!

[himitsu]

Das BDS hat damit nichts zu tun.

TXMLDokument ist ein billiger Wrapper für IXMLDocument und das ist die ActiveX-Schnittstelle zum MS XML.