是否需要在Delphi中使用GUID？

Question

官方文檔稱它們是可選的。我知道COM interop需要每個接口的唯一標識符，但是我看到的每個接口示例都有一個GUID，不管它是否與COM一起使用？如果不包含GUID，是否有任何好處？

Answer 1

我注意到一些方法，如Supports（確定一個類遵循特定的接口）要求你定義一個GUID纔可以使用他們。

注：：

This page以下信息證實了這一點的SysUtils單元中提供了一個 重載函數調用支持 返回真或假時類 類型和實例支持表示的 特定接口一個 GUID。支持功能用於 德爾福的方式是和 運營商。的顯著差異 是，支架函數可以採取 作爲右操作數任一個GUID或 與 GUID相關聯的接口的類型，而是並作爲取的名字的類型 。有關 is和as的更多信息，請參見Class References。

這裏的一些interesting information about interfaces，其中規定：

爲什麼一個接口必須 唯一識別的？答案是 簡單：因爲Delphi類可以實現 多個接口。當一個 應用程序正在運行時，必須有一個 是一個機制，它將從 實現中獲取指針 到適當的接口。 如果對象實現了 接口並獲得指向 的指針，則通過GUID可以找到 。 的實現是 。

強調添加在兩個引號中。

閱讀這篇文章也讓你意識到QueryInterface（它需要一個GUID）在幕後出於諸如引用計數的原因而被使用。

Answer 2

只有當你需要你的接口是compatible with COM。

不幸的是，這還包括使用is,as運營商和QueryInterface,Supports職能 - 缺乏是相當有限的。所以，雖然沒有嚴格要求，但使用GUID可能更容易。否則，你只剩相當簡單的用法：

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;