XML crash bei wiederholtem Laden

[TurboMagic]

Hallo,

kleines böses Problem in 11.2. Der nachfolgende Code wird einmal erolgreich aufgerufen
und die XML Datei geladen. Später wird dieser Code erneut aufgerufen aber es crasht mit
einer Schutzverletzung. Dabei ist es unerheblich ob die selbe Datei nochmal geladen werden
soll oder eine andere. Wo crasht es? Irgendwo nach dem .Active Aufruf.

Delphi-Quellcode:

procedure TProjectSettings.LoadFromXML(const FileName: string);
var
  LDocument: IXMLDocument;
  LUnitTestFiles, LSourceFiles, LOutput, LMisc, LNode: IXMLNode;
  SourceFileName : string;
  IsSelected      : Boolean;
begin
  Assert(FileName <> '', 'No file name for the XML file specified');

  FFileName         := FileName;

  LDocument         := TXMLDocument.Create(FFileName);
  LDocument.Options := [doNodeAutoIndent];
  LDocument.Active  := true;

Der gesamte Code ist im Master Branch dieses Projektes zu finden:
https://github.com/MHumm/delphi-code...ge-wizard-plus

Grüße
TurboMagic

[Klaus01]

.. hast Du kein coInitialize(nil) aufgerufen?

Das benötigt meines Wissens IXmlDocument und Co.
Grüße
Klaus

[himitsu]

Wenn man die VCL (TForm) nutzt, dann wurde das CoInitialize für den Hauptthred bereits erledigt.

[peterbelow]

Zitat von TurboMagic:

Hallo,

kleines böses Problem in 11.2. Der nachfolgende Code wird einmal erolgreich aufgerufen
und die XML Datei geladen. Später wird dieser Code erneut aufgerufen aber es crasht mit
einer Schutzverletzung. Dabei ist es unerheblich ob die selbe Datei nochmal geladen werden
soll oder eine andere. Wo crasht es? Irgendwo nach dem .Active Aufruf.

Delphi-Quellcode:

procedure TProjectSettings.LoadFromXML(const FileName: string);
var
  LDocument: IXMLDocument;
  LUnitTestFiles, LSourceFiles, LOutput, LMisc, LNode: IXMLNode;
  SourceFileName : string;
  IsSelected      : Boolean;
begin
  Assert(FileName <> '', 'No file name for the XML file specified');

  FFileName         := FileName;

  LDocument         := TXMLDocument.Create(FFileName);
  LDocument.Options := [doNodeAutoIndent];
  LDocument.Active  := true;

Der gesamte Code ist im Master Branch dieses Projektes zu finden:
https://github.com/MHumm/delphi-code...ge-wizard-plus

Grüße
TurboMagic

Stell sicher, daß all diese IXMLNode-Referenzen auf nil gesetzt werden, bevor LDocument selbst auf nil gesetzt wird bzw. out of scope geht.

[TurboMagic]

Hallo,

habe die jetzt am Ende der Methode auf NIL gesetzt, wird dadurch aber nicht besser.
Gefühlt eher schlechter.

Grüße
TurboMagic

[TurboMagic]

Hallo,

ok, ich glaube ich weiß jetzt warum das passiert.
Muss die Nutzung der Klasse komplett auf Interface umstellen.
SOnst wird's irgendwo zu früh frei gegeben.

Grüße
TurboMagic

[taveuni]

Ich sehe keinen Fehler in obigem Code. Das wird hier so tausendfach benutzt. Wo tritt den die Schutzverletzung genau auf?
Ausserdem IXMLDocument ist schon ein Interface?

[TurboMagic]

Naja, an manchen Stellen im Programm wurde eine Interface Referenz benutzt und an anderen noch eine Objektreferenz.
Das verursacht jedoch Probleme mit der Referenzzählung bzw. das wird dann zu früh freigegeben.

Das ist jetzt gelöst, habe jetzt aber an einer anderen Stelle ein Problem.
Das ist dann aber ein Fall für später...

[TurboMagic]

Problem gelöst. Man sollte keine Interface Referenzen in einer TObjectList<T> speichern. Eine TList<Interfacereferenztyp> tut's jetzt.