Einlesen von XML - ungültige Zeigeroperation

[JohannesK]

Hallo,

ich habe ein merkwürdiges Problem beim Einlesen einer selbst generierten XML-Datei (soll als eine Art strukturierte ini dienen).

Delphi-Quellcode:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dateutils, XMLIntf, XMLDoc, strutils, StdCtrls, ComCtrls;


function GetIniDaten:boolean;
var XmlDat : TXMLDocument;
    i,j, kn, knl, t, lc : integer;
    Nodelist, subnodelist : IXMLNodelist;
begin
  // laden der abgespeicherten XML-Konfiguration
  try
  result := true;

  if not fileexists('datei.xml') then
    begin
      result := false;
      exit;
    end;

  XmlDat := TXMLDocument.Create('datei.xml');
  XmlDat.loadfromfile('datei.xml');
  XmlDat.active := true;
  nodelist := xmldat.ChildNodes[0].ChildNodes;

  for j := 0 to nodelist.count-1 do
    begin
      // hier folgt der (funktionierende) Code, auch wenn auskommentiert tritt der Fehler auf

   end;
   xmldat.active := false;
   xmldat.free;

  except
  //  result := false;
  end;
end;

Der Fehler tritt erst am Ende der Funktion auf: Invalid Pointer
Wird die for-Schleife auch auskommentiert, kommt der Fehler nicht, ebensowenig wenn kein Verweis auf die Childnodes erfolgt.
Was hab' ich übersehen?

Version ist 2010 Professional

[himitsu]

Delphi-Quellcode:

XmlDat := TXMLDocument.Create('datei.xml');

Ließt schon die Datei aus ... also nochmal ist garnicht nötig

Delphi-Quellcode:

XmlDat.loadfromfile('datei.xml');
XmlDat.active := true;

NodeList und SubnodeList enthalten womöglich noch referenzen auf Objekte/Interfaces des XML-Dokuments, welches du beim XmlDat.Free eventuell schon gelöscht hast.

Laß mal Probehalber das XmlDat.Free weg
oder stell gleich alles auf Interfaces um. (siehe nachfolgender Code)

Außerdem ist es nicht ratsam einfach so Exceptions unbehandelt zu unterdrücken.

Und bezüglich des Dateinamens ... Was die relativen Pfadangaben betrifft, darüber wurde schon sehr oft im Forum diskutiert.

Delphi-Quellcode:

function GetIniDaten(const Filename: String): boolean;
var XmlDat : IXMLDocument;
    NodeList, SubnodeList : IXMLNodelist;
    i,j, kn, knl, t, lc : integer;
begin
  // laden der abgespeicherten XML-Konfiguration
  if not FileExists(Filename) then
    begin
      result := false;
      exit;
    end;
  XmlDat := TXMLDocument.Create(filename);
  nodelist := xmldat.DocumentElement.ChildNodes;
  for j := 0 to nodelist.count-1 do
    begin
      // hier folgt der (funktionierende) Code, auch wenn auskommentiert tritt der Fehler auf

   end;
  result := true;
end;

[JohannesK]

Danke für die schnelle Hilfe, funktioniert (war jetzt nur wegen Netzwerkproblem 2 h abgehängt)

Die Exceptions sollen natürlich nicht unbehandelt bleiben, nur zwecks Übersichtlichkeit nicht gepostet. :wink:

Pfad zur Datei - besser so? Die Datei soll eh immer im gleichen Verzeichnis stehen wie das Programm.

Delphi-Quellcode:

function GetIniDaten(const Filename: String):boolean;
  var XmlDat : TXMLDocument;
      Nodelist, subnodelist : IXMLNodelist;
      f : string;
begin
  // laden der abgespeicherten XML-Konfiguration
  try
  result := true;
  f := ExtractFilePath(ParamStr(0)) + filename;
  if not fileexists(f) then
    begin
      result := false;
      exit;
    end;

Tatsächlich hat xmldat.free auch noch eine Exception verursacht.