程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 關於基於Delphi平台的接口編程入門

關於基於Delphi平台的接口編程入門

編輯：Delphi

為什麼使用接口？

舉個例子好了：有這樣一個賣票服務，電影院可以賣票，歌劇院可以賣票，客運站也可以賣票，那麼我們是否需要把電影院、、歌劇院和客運站都設計成一個類架構以提供賣票服務？要知道，連經理人都可以賣票，很顯然不適合把經理人也包括到賣票服務的繼承架構中，我們需要的只是一個共通的賣票服務。於是，賣票的服務是個接口，電影院、歌劇院什麼的只要都遵循這樣一個服務定義就能很好地相互交互和溝通（如果須要的話）。

如何在Delphi中使用接口

1、聲明接口

IMyInterface = interface(IInterface) //說明(1)
            [{63E072DF-B81E-4734-B3CB-3C23C7FDA8EA}] //說明(2)
            function GetName(const str: String): String; stdcall;
            function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall; //說明(3)
            function _AddRef: Integer; stdcall; //使接口引用數加1。
            function _Release: Integer; stdcall;//使接口引用數減1，當小於等於0時作釋放動作。
            end;

說明(1)：如果有繼續關系則在括號裡填父接口，否則省卻，如：IMyInterface = interface這樣就行。

說明(2)：此GUID可選，如果要實現具有COM特性的接口的話則需要加上，Delphi中對於有GUID的接口在運行時在VMT表的預定位置生成接口的信息，如接口方法的定義、方法參數定義能詳細信息。

說明(3)：接口必須實現這三個函數。

2、接口的實現

接口服務是由類來實現的。

TIntfClass = class(TObject, IMyInterface)

private

　FCounter: Integer;

　FRefCount: Integer;

public

　function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;

　...

end;

3、獲取接口

a. 使用類型轉換。如：

var aIntf: IMyInterface;

begin

　aObj := TIntfClass.Create;

try

　aIntf := (IMyInterface(aObj);

　...

b. 利用Delphi編譯器內建機制。如：aIntf := aObj。

c. 利用對象的QueryInterface方法。如OleCheck(aObj.QueryInterface(IID, aIntf)); 只能存取有GUID的COM接口。

d. 利用as操作符。

使用as操作符必須符合下面條件：

1.接口必須明確地指定是從IInterface接口繼承下來。

2.必須擁有GUID值

在Delphi7中接口的實現類還必須是從TInterfacedObject繼承下來才行，如：

TIntfClass = class(TInterfacedObject, IMyInterface)

4、接口和對象生命期

因為Delphi會自行檢查接口如果在使用後沒有釋放而在生成的程序裡加上釋放代碼，但也因這樣帶來了問題，如下面代碼：

var
            　i: Integer;
            　aObj: TIntfClass;
            　aIntf： IMyInterface;
            begin
            　aObj := TIntfclass.Create;
            　try
            　　aIntf := aObj;
            　　aIntf.GetName...
            　finally
            　　aIntf := nil;
            　　FreeAndNil(aObj);
            end;

上面的代碼執行的話會產生存取違規錯誤，是因為對接口置nil時已釋放接口，而FreeAndNil(aObj)會再釋放aIntf一次，而在對aIntf置

nil時已釋放了該對象。解決這個問題只要不讓接口干擾對象的生命期就可以了，在Release中只需減引用計數而不做釋放的動作。

function TIntfClass._Release: Integer;

begin

Result := InterlockedDecrement(FRefCount);

end;

5、接口的委托(Interface Delegation)

分為兩種：

1. 對象接口委托

2. 類對象委托。

3. 對象接口委托，假如已有下面接口定義：

IImplInterface = interface(IInterface)
            function ConvertToUSD(const iNTD: Integer): Double;
            function ConvertToRMB(const iNTD: Integer): Double;
            end;
            接著有一個類實現了該接口：
            TImplClass = class(TObject, IImplInterface)
            private
            　FRefCount: Integer;
            public
            　function ConvertToUSD(const iNTD: Integer): Double;
            　...
            end;
            implementation
            function TImplClass.QueryInterface(const IID: TGUID; out Obj): HResult;
            begin
            if GetInterface(IID, Obj) then
            　Result := 0
            else
            　Result := E_NOINTERFACE;
            end;
            function TImplClass._Release: Integer;
            begin
            　Result := InterlockedDecrement(FRefCount);
            if Result = 0 then
            　Destroy;
            end;
            ... ...

現在有另外一個類TIntfServiceClass要實現IImplInterface接口，不用重新定義，只須使用上面的TImplClass就可以：

TIntfServiceClass = class(TObject, IImplInterface)
            private
            　FImplService: IImplInterface;
            　//FSrvObj: TImplClass; //如果是用類對象委托的話
            public
            　Constructor Create; overload;
            　Destructor Destroy; override;
            　Constructor Create(aClass: TClass); overload;
            　property MyService: IImplInterface read FImplService implements IImplInterface;
            　// property MyService: TImplClass read FSrvObj implements IImplInterface; //如果是用對象委托的話。
            end;
            實現如下：
            constructor TIntfServiceClass.Create;
            begin
            　FImplService := TImplClass.Create;
            end;
            constructor TIntfServiceclass.Create(aClass: TClass);