Rzucanie obiektu do typu interfejsu bez TInterfacedObject jako klasy bazowej
Potrzebuję interfejsu implementacji klasy bez liczenia referencji. Zrobiłem co następuje:
IMyInterface = interface(IInterface)
['{B84904DF-9E8A-46E0-98E4-498BF03C2819}']
procedure InterfaceMethod;
end;
TMyClass = class(TObject, IMyInterface)
protected
function _AddRef: Integer;stdcall;
function _Release: Integer;stdcall;
function QueryInterface(const IID: TGUID; out Obj): HResult;stdcall;
public
procedure InterfaceMethod;
end;
procedure TMyClass.InterfaceMethod;
begin
ShowMessage('The Method');
end;
function TMyClass.QueryInterface(const IID: TGUID; out Obj): HResult;
begin
if GetInterface(IID, Obj) then
Result := 0
else
Result := E_NOINTERFACE;
end;
function TMyClass._AddRef: Integer;
begin
Result := -1;
end;
function TMyClass._Release: Integer;
begin
Result := -1;
end;
Brak zliczania referencji działa dobrze. Ale moją troską jest to, że nie mogę rzucićTMyClass
doIMyInterface
za pomocąas
operator:
var
MyI: IMyInterface;
begin
MyI := TMyClass.Create as IMyInterface;
Jestem dana
[Błąd DCC] Operator E2015 nie dotyczy tego typu argumentu
Problem znika, gdyTMyClass
wywodzi sie zTInterfacedObject
- tj. mogę wykonać takie rzutowanie bez błędu kompilatora. Oczywiście nie chcę używać TInterfacedObject jako klasy bazowej, ponieważ sprawi to, że moje odniesienie do klasy zostanie zliczone. Dlaczego takie odlewanie jest niedozwolone i jak można je obejść?