Uso di Generics per creare un oggetto interfacciato

Question

Ho scritto una funzione che accetta un tipo di classe (T) e un tipo di interfaccia (I) e restituisce un'interfaccia (I) all'oggetto (T). Ecco il codice.

interface 

function CreateObjectInterface<T: Class, constructor; I: IInterface>(
    out AObject: TObject): I; 

...

implementation 

function TORM.CreateObjectInterface<T, I>(out AObject: TObject): I; 
begin 
    AObject := T.Create; 

    if not Supports(AObject, GetTypeData(TypeInfo(I))^.Guid, Result) then 
    begin 
    AObject.Free; 
    AObject := nil; 

    raise EORMUnsupportedInterface.CreateFmt(
     'Object class "%s" does not support interface "%s"', 
     [AObject.ClassName, GUIDToString(GetTypeData(TypeInfo(I))^.GUID)] 
    ); 
    end; 
end; 

La funzione funziona come previsto, senza perdite di memoria o altri indesiderabili.

Ci sono altri modi per ottenere lo stesso risultato?

Answer 1

C'è un bug in questo codice. I supporti distruggeranno l'istanza dell'oggetto se supporta IUnknown ma non l'interfaccia richiesta.

semplice dimostrazione:

type 
    IFoo = interface 
    ['{32D3BE83-61A0-4227-BA48-2376C29F5F54}'] 
    end; 

var 
    o: TObject; 
    i: IFoo; 
begin 
    i := TORM.CreateObjectInterface<TInterfacedObject, IFoo>(o); // <- boom, invalid pointer 
end. 

Meglio mettere IInterface o IUnknown come ulteriore vincolo per T.

Oppure assicurati di non distruggere un'istanza già distrutta.

A meno che non si desidera supportare dinamica QueryInterface implementazioni (in cui la classe non implementa l'interfaccia, ma QueryInterface restituisce) vorrei andare con un Supports chiamata sulla classe:

function TORM.CreateObjectInterface<T, I>(out AObject: TObject): I; 
begin 
    if not Supports(TClass(T), GetTypeData(TypeInfo(I))^.Guid) then 
    raise EORMUnsupportedInterface.CreateFmt(
     'Object class "%s" does not support interface "%s"', 
     [AObject.ClassName, GUIDToString(GetTypeData(TypeInfo(I))^.GUID)] 
    ); 

    AObject := T.Create; 
    Supports(AObject, GetTypeData(TypeInfo(I))^.Guid, Result); 
end;