Free von XML-Komponente führt zu EInvalidPointer exception

[Union]

Das passiert womöglich nicht beim Free, sondern hier:

Delphi-Quellcode:

procedure TXMLData.XMLToTree(var Tree: TTreeView; const FileName: String);
var
  Doc: IXMLDocument;
begin
  Doc := NewXMLDocument;
  Doc.LoadFromFile(FileName);
  Doc.Active; // Diese Zeile macht nichts. Es muß heißen Doc.Active := True
  IterateXMLNodes(Doc.DocumentElement, nil, Tree);
end;

[himitsu]

Da hier an vielen Stellen mit Interfaces gearbeitet wird, solltest du dringend auch die XML-Klasse nur via Interface verwenden!

[michele_tedesco]

Zitat von himitsu:

Da hier an vielen Stellen mit Interfaces gearbeitet wird, solltest du dringend auch die XML-Klasse nur via Interface verwenden!

Das ist mein nächster Schritt, jedoch will ich verstehen, wo der Fehler passiert, um diesen Fehler dann nicht mehr zu machen

[himitsu]

Zitat von datasportdev:

jedoch will ich verstehen, wo der Fehler passiert, um diesen Fehler dann nicht mehr zu machen

Wenn durch die Aufrufe der untergeordneten Interfaces die Referenzzählung in dem Interface-Objekt der XML-Klasse verändert werden, dann übernimmt die Referenzzählung die Kontrolle über das Objekt und ab dann darf Free nicht mehr aufgerufen werden.

Entweder die Freigabe eines Objektes geschieht manuell
oder die Freigabe geschieht ausschließlich über die automatische Referenzzählung. (also über Variablen des Interfacetyps, wobei es möglichst keine Objektreferenzen geben sollte)

[baumina]

Wenn das Create schon gar nicht funktioniert, gibt's auch nichts das man freigeben könnte. Deswegen sollte das Create außerhalb vom try stehen.

Delphi-Quellcode:

  
XMLData := TXMLData.Create;
try
  XMLData.XMLToTree(tvXML, odXMLFile.FileName);
finally
  XMLData.Free;
end;

[michele_tedesco]

gefunden

Ich habe beim Zuweisen von .Data eines TreeItem "Pointer(XMLAttribute)" geschrieben, weil ich mit Interfaces am spielen war.
Hatte nicht fertig aufgeräumt.

Der korrekte Aufruf ist natürlich TreeItem.Data := Object , nicht TreeItem.Data := Pointer(Object)

[michele_tedesco]

Zitat von Union:

Das passiert womöglich nicht beim Free, sondern hier:

Delphi-Quellcode:

procedure TXMLData.XMLToTree(var Tree: TTreeView; const FileName: String);
var
  Doc: IXMLDocument;
begin
  Doc := NewXMLDocument;
  Doc.LoadFromFile(FileName);
  Doc.Active; // Diese Zeile macht nichts. Es muß heißen Doc.Active := True
  IterateXMLNodes(Doc.DocumentElement, nil, Tree);
end;

Danke für dein Feedback , aber das hat das Problem nicht gelöst