Read from XML

[Serge]

Has someone an sample for me how to read from an xml file using TXMLDocument
?

thnx

[Serge]

Warum crasht, das immer :) ?

function ReadXMLIni(_xmlfile : string) : boolean;
var
i : integer;
begin
try
xIniDoc.LoadFromFile(_xmlfile);
xIniDoc.Active := true;

xIniRoot := xIniDoc.DocumentElement; --> Access violation :(
xIniList := xIniRoot.ChildNodes;

for i := 0 to xIniList.Count-1 do
begin
writeln(xIniList.Nodes[i].NodeName+ ' = ' + xIniList.Nodes[i].text);
end;
except
on e: exception do jLog(0, e.Message);
end;
end;

[Ben Damm]

I have this problem as well. My platform is Windows 2003 and Delphi
7. The following snippet crashes:

procedure TForm1.Button1Click(Sender: TObject);
Var
tDoc:TXMLDocument;
begin
tDoc := TXMLDocument.Create(nil);
tDoc.LoadFromXML('<a/>');

tDoc.DocumentElement; // <-- EAccessViolation
end;

Any light that could be shed on this would be much appreciated!

Thanks,
-Ben

[Ben Damm]

Ok, I discovered the solution. The TXMLDocument declaration needs to
be an IXMLDocument declaration, like so:

Var
tDoc:IXMLDocument;
begin
tDoc := TXMLDocument.Create(....

bdamm-...@dammfine.com (Ben Damm) wrote in message news:<6448d1e6.03082...@posting.google.com>...

[Ben Damm]

Ok, I discovered the solution. The TXMLDocument declaration needs to
be an IXMLDocument declaration, like so:

Var
tDoc:IXMLDocument;
begin
tDoc := TXMLDocument.Create(....

bdamm-...@dammfine.com (Ben Damm) wrote in message news:<6448d1e6.03082...@posting.google.com>...