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:

zusammenfalten · markieren

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?

zusammenfalten · markieren

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:

zusammenfalten · markieren

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.

Kann ich das IntfClear vorziehen?

Kann ich das IntfClear vorziehen?

Forumregeln