Kann ich das IntfClear vorziehen?

[Der schöne Günther]

Disclaimer: uses Xml.XmlIntf, Xml.XmlDoc, Winapi.ActiveX
Folgender Quellcode verursacht eine Zugriffsverletzung:

Delphi-Quellcode:

procedure myProc();
begin
   CoInitializeEx(nil, COINIT_APARTMENTTHREADED);
   try
      NewXMLDocument();
   finally
      CoUninitialize()
   end;
end;

Warum? Weil das "anonym" erzeugte XML-Dokument nicht nach dem CoUninitialize() freigegeben werden darf. Das geschieht aber weil der Compiler (für uns unsichtbar) nach dem "end;" der Methode noch Code einfügt um ein _Release auf dem anonymen IXMLDocument aufzurufen.

Was tun wir also? Wir nehmen uns eine Variable und geben es manuell frei:

Delphi-Quellcode:

procedure myProc2();
var
   xmlDoc: IXMLDocument;
begin
   CoInitializeEx(nil, COINIT_APARTMENTTHREADED);
   try
      xmlDoc := NewXMLDocument();
      xmlDoc := nil;
   finally
      CoUninitialize()
   end;
end;

Eigentlich könnten wir jetzt Feierabend machen. Doch wenn es sich so einfach lösen ließe, müsste folgendes ja auch gehen, oder?

Delphi-Quellcode:

procedure myProc3();
var
   xmlDoc:      IXMLDocument;
   xmlNode:   IXMLNode;
begin
   CoInitializeEx(nil, COINIT_APARTMENTTHREADED);
   try
      xmlDoc := LoadXMLData('<rootNode />');
      xmlNode := xmlDoc.DocumentElement.AddChild('someChildNode');
      xmlDoc := nil; xmlNode := nil;
   finally
      CoUninitialize()
   end;
end;

Leider haben wir hier unsere alte AV wieder zurück. Komisch, wir haben doch das IXMLDocument und die IXMLNode freigegeben. Leider nicht, denn anonym haben wir uns mit .DocumentElement wieder eine anonyme IXMLNode eingehandelt.

Man könnte nun entweder die Sache mit wachsamen Augen und einem Sack voller unnötiger Variablen bekämpfen oder man macht es folgenderweise:

Delphi-Quellcode:

procedure doXmlStuff();
var
   xmlDoc: IXMLDocument;
begin
   xmlDoc := LoadXMLData('<rootNode />');
   xmlDoc.DocumentElement.AddChild('someChildNode');
   xmlDoc := nil;
end;

procedure myProc();
begin
   CoInitializeEx(nil, COINIT_APARTMENTTHREADED);
   try
      doXMLStuff();
   finally
      CoUninitialize()
   end;
end;

Daher meine Frage: Kann ich das vermeiden? Kann ich das IntfClear am Ende einer Methode vorziehen? Dann bräuchte ich die Extramethode nicht.


Dies war ein kostenloser Probeartikel aus der Reihe Probleme welche die Welt bewegen.