Delphi 10.2.3 und XML

[franktron]

Ich möchte eine XML Datein lesen

Code:

<?xml version="1.0"?>
<config>
    <db>
        <username>dfdff</username>
        <password>dfdfd</password>
        <server>1.1.1.1.</server>
        <db>dfdfdffdf</db>
        <dbport>3306</dbport>
        <povider>MySQL</povider>
    </db>
   <port>35353</port>
     <httpport>88</httpport>
</config>

Hier ist mein Code

Delphi-Quellcode:

var
  LDocument: IXMLDocument;
  LNodeElement  : IXMLNode;
begin
  LDocument := TXMLDocument.Create(nil);
  if FileExists(FConfigFile) then
  Begin
    LDocument.LoadFromFile(FConfigFile);
    LNodeElement:=LDocument.DocumentElement.ChildNodes['db'];
    if LDocument<>Nil then
    Begin
      FDB.UserName:=LDocument.DocumentElement.ChildNodes['db'].ChildNodes.Nodes['username'].NodeValue;
      FDB.UserName:=LNodeElement.ChildNodes.FindNode('username').Text;
      FDB.Password:=LNodeElement.ChildNodes.FindNode('password').Text;
      FDB.Server:=LNodeElement.ChildNodes.FindNode('server').Text;
      FDB.DB:=LNodeElement.ChildNodes.FindNode('db').Text;
      FDB.Port:=StrToIntDef(LNodeElement.ChildNodes.FindNode('port').Text,3306);
      FDB.Provider:=LNodeElement.ChildNodes.FindNode('provider').Text;
    End;
    LNodeElement:=LDocument.ChildNodes.FindNode('config');
    if LDocument<>Nil then
    Begin
      FPort:=StrToIntDef(LNodeElement.ChildNodes.FindNode('port').Text,88);
    End;
  End;

Vorher habe ich noch
DefaultDOMVendor:=sOmniXmlVendor;

Jetzt zu meine Problem ich bekomme immer Exceptions egal was ich versuche.

Habe ich da irgendwo ein Gedanken Fehler

[mber]

versuch mal:

LDocument.Active := True;

direkt nach dem Document.Loadfromfile....

[franktron]

Danke das war es