Wie gibt man CoSWbemLocator wieder frei?

[Jackie1983]

Servus,

in einer Funktion werden ein paar Objekte erstellt.

Delphi-Quellcode:

var
  Locator:  ISWbemLocator;
  Services: ISWbemServices;
  SObject:  ISWbemObject;
  ObjSet:   ISWbemObjectSet;
  SProp:    ISWbemProperty;
  SPropSet: ISWbemPropertySet;
begin
    Locator := CoSWbemLocator.Create;
    Services := Locator.ConnectServer...
    ObjSet := Services.ExecQuery...
    Enum :=  (ObjSet._NewEnum) as IEnumVariant;
...

wie kann ich die Variablen wieder freigeben?
Versucht habe ich schon

Delphi-Quellcode:

  CoSWbemLocator(Locator).Free; // <- fehler
  Locator._Release; // <- fehler

gruß

[Bernhard Geyer]

Einfach mit
Locator := nil bzw. wird automatisch von Delphi gemacht wenn die gültigkeit der Inteface-Zeigers verlassen wird. Nennt sich automatische Referenzzählung von Delphi.

Nur bei schlecht programmierten Komponenten (wie den Internet Explorer) ist es des öfteren nötig _Release direkt auf zu rufen um die Fehler der Komponenten bezüglich Speicherfreigabe zu beheben.