Ich habe noch ein wenig Probleme mit der Handhabung von Interfaces. Der nachfolgende Quellcode stammt aus dem Beispiel von OmniXML. Hier wird ein XMLDoc (was ja ein Interface ist) erzeugt, eine Datei erstellt, gespeichert und Schluss. Freigeben muss man XMLDoc offensichtlich nicht.

Wer gibt XMLDoc, wann frei?

markieren

Delphi-Quellcode:

var
  XMLDoc: IXMLDocument;

begin
  XMLDoc := CreateXMLDoc;
  XMLDoc.DocumentElement := XMLDoc.CreateElement('root');
  XMLDoc.DocumentElement.SetAttribute('attr', 'value');
  XMLDoc.Save('document.xml');
end.

Hallo,

Interfaces benutzen intern eine Referenzzählung, um sich selbst zu verwalten und zu zerstören:

markieren

Delphi-Quellcode:

var
  XMLDoc: IXMLDocument;

begin
  XMLDoc := CreateXMLDoc; // 1 Referenz -> Zähler = 1
  XMLDoc.DocumentElement := XMLDoc.CreateElement('root');
  XMLDoc.DocumentElement.SetAttribute('attr', 'value');
  XMLDoc.Save('document.xml');
end. // Keine Referenz mehr -> Zähler = 0 -> Objekt wird zerstört

Gruß
xaromz

Was bedeutet "Keine Referenz mehr"?

Sprich: Wird das Objekt immer am Ende der Prozedur zerstört?

Ich benötige an anderer Stelle ebenfalls Zugriff auf das besagte XMLDoc und möchte daher etwas in dieser Art machen:

zusammenfalten · markieren

Delphi-Quellcode:

type
  TTest = class(TObject)
  private
    FXMLDoc: IXMLDocument;
  public
    procedure ErstelleRoot;
    procedure WeitereKnoten;
  end;

procedure TTest.ErstelleRoot;
begin
  FXMLDoc := CreateXMLDoc;
  FXMLDoc.DocumentElement := FXMLDoc.CreateElement('root');
end;

procedure TTest.WeitereKnoten;
  var
    WeitererKnoten: IXMLElement;
begin
  WeitererKnoten := FXMLDoc.CreateElement('Weiterer Knoten');
  FXMLDoc.DocumentElement.AppendChild(WeitererKnoten);
end;

Wann würde das Objekt in diesem Fall zerstört?

das Interface zählt praktisch mit, in wievielen Variablen ala "irgendwas: {InterfaceTyp}" es gespeichert ist und sobald es von keiner Variable mehr verwendet wird, zerstört es sich selber.

Delphi erhöht/erniedrigt diesen Zähler jedes mal, du z.B. ein Interface einer anderen Variable zuweißt ":=" oder wenn du Variablen gelöscht werden (z.B. am Ende einer Prozedur)



[add]

Zitat:

Was bedeutet "Keine Referenz mehr"?

wenn es keine Variable mehr gibt, vorin das Interface gepseichert wurde, bzw. wenn es aus den Variablen gelöscht wurde (XMLDoc := nil).

Zitat:

Wann würde das Objekt in diesem Fall zerstört?

wenn du die Instanz TTest freigibst und es sonst keiner Referenzen mehr gibt

Ah so ist das. Danke für die Info.

Wie ist es, wenn ich die Prozedur aus dem o.g. Beispiel mehrfach aufrufen muss? Sollte ich sinnvollerweise das Interface vorher auf nil setzen?

markieren

Delphi-Quellcode:

procedure TTest.ErstelleRoot;
begin
  FXMLDoc := nil; //Interface löschen
  FXMLDoc := CreateXMLDoc;
  FXMLDoc.DocumentElement := FXMLDoc.CreateElement('root');
end;

mußt du nicht, bei jedem Aufruf wird ja die interface-Variable neu initialisiert und am Ende freigegeben

Zitat von himitsu:

mußt du nicht, bei jedem Aufruf wird ja die interface-Variable neu initialisiert und am Ende freigegeben

Er Hat jetzt das Interface als Feld einer Klasse deklariert und nicht mehr als lokale Variable.
Dadurch ist natürlich FXMLDoc u.U. noch gültig. Man braucht es deswegen aber nicht explizit auf nil setzen. Das macht Delphi automatisch für dich.

wenn er ein neues Interface erstellt (CreateXMLDoc), dann wird das alte aus dieser Variable freigegeben und würde sich demnach auch löschen

Zitat von himitsu:

wenn er ein neues Interface erstellt (CreateXMLDoc), dann wird das alte aus dieser Variable freigegeben und würde sich demnach auch löschen

Nur wenn es keine anderen Referenzen gibt. Ich würde die Erzeugung z.B. in den Konstruktor verlegen, oder in eine Init-Methode, die vor der Verwendung des XMLDocuments aufgerufen werden muss.

Zitat von mjustin:

Nur wenn es keine anderen Referenzen gibt. Ich würde die Erzeugung z.B. in den Konstruktor verlegen, oder in eine Init-Methode, die vor der Verwendung des XMLDocuments aufgerufen werden muss.

wenn es noch andere Referenzen gäbe, dann sollte es natürlich auch nicht freigegeben werden.
Aber die Referenz in dieser Variable würde dennoch freigegeben.