¿Son necesarios los GUID para usar interfaces en Delphi?

Question

La documentación oficial dice que son opcionales. Sé que la interoperabilidad COM requiere un identificador único para cada interfaz, pero cada ejemplo de interfaz que veo tiene un GUID ya sea que se use con COM o no. ¿Hay algún beneficio para incluir un GUID si no se va a usar con COM?

Answer 1

me he dado cuenta de que algunos métodos tales como Supports (para determinar si una clase se ajusta a una interfaz específica) requieren que se defina un GUID antes de poder utilizar ellos.

This page lo confirma con la siguiente información:

Nota: La unidad SysUtils proporciona una función de sobrecargado llamado Soporta que devuelve verdadero o falso cuando la clase tipos e instancias soportan una interfaz particular representado por a GUID. La función Soportes se utiliza en a la manera de Delphi es y como operadores . La diferencia significativa es que la función soportes pueden tomar como el operando de la derecha ya sea un GUID o un tipo de interfaz asociado con un GUID, mientras que es y como tomar el nombre de un tipo. Para obtener más información acerca de es y como, consulte las referencias de clase.

He aquí algunos interesting information about interfaces, que establece:

¿Por qué una interfaz necesitan ser único de identificación? La respuesta es simple: porque las clases Delphi pueden implementar múltiples interfaces. Cuando se ejecuta una aplicación , debe haber un mecanismo que obtenga el puntero en una interfaz adecuada de una implementación . La única forma de encontrar si un objeto implementa una interfaz y obtener un puntero a la implementación de esa interfaz es a través de los GUID.

Énfasis añadido en las dos citas.

La lectura de este artículo completo también hace que se dé cuenta de que QueryInterface (que requiere un GUID) se utiliza detrás de escena por razones tales como el recuento de referencias.

Answer 2

Solo si necesita que su interfaz sea compatible with COM.

Por desgracia, que también incluye el uso de is, as operadores y QueryInterface, Supports funciones - la falta de lo cual es bastante limitante. Entonces, si bien no es estrictamente obligatorio, probablemente sea más fácil usar un GUID. De lo contrario, lo que queda es único uso más bien simplista:

type 
    ITest = interface 
    procedure Test; 
    end; 

    ITest2 = interface(ITest) 
    procedure Test2; 
    end; 

    TTest = class(TInterfacedObject, ITest, ITest2) 
    public 
    procedure Test; 
    procedure Test2; 
    end; 

procedure TTest.Test; 
begin 
    Writeln('Test'); 
end; 

procedure TTest.Test2; 
begin 
    Writeln('Test2'); 
end; 

procedure DoTest(const Test: ITest); 
begin 
    Test.Test; 
end; 

procedure DoTest2(const Test: ITest2); 
begin 
    Test.Test; 
    Test.Test2; 
end; 

procedure Main; 
var 
    Test: ITest; 
    Test2: ITest2; 
begin 
    Test := TTest.Create; 
    DoTest(Test); 
    Test := nil; 

    Test2 := TTest.Create; 
    DoTest(Test2); 
    DoTest2(Test2); 
end;