Die Objekte, welche intern erstellt werden, können direkt über den Klassenbezeichner und dessen Constructor erstellt werden. Delphi handelt das
COM Interface automatisch. Anschließend wird intern eine Referenz auf das Interface gesetzt und eine nach aussen gegeben. RefCount = 2...
Bsp:
Code:
type
TIntfClass = class(TComObject);
private
FMyRefToAnotherIntf: IAnotherIntf;
...
protected
function Get_AnotherIntf: IAnotherIntf; stdcall;
...
end;
...
function TCOMServer.Get_AnotherIntf: IAnotherIntf;
begin
FMyRefToAnotherIntf := TAnotherIntf.Create(...);
Result := FMyRefToAnotherIntf;
end;