如何實作繼承一個COM介面(Delphi)

//酷小毅的Delphi試鍊場

//作者: 酷小毅

//2002/03/24 於永和

如何實作繼承一個介面

(1).為何談介面的實作繼承

相信現在大家都有清楚的物件導向觀念，在物件導向中我們可以透過繼承來達到讓所封裝的類別資料有高度的Reuse特性，在COM當中則強調將介面與實作分開，這現在已可說是現在物件導向的先驅了，我們知道傳統物件導向對於繼承對SuperClass所產生的相依性不會出現在COM的世界中，而且COM對於封裝做的非常的徹底，COM的Client可說都是以介面在操作，今天筆者將介紹如何在Delphi中實作繼承別人的介面，也許是其他的ActiveX DLL or ActiveX Exe檔案，實作繼承的目的在於繼承該介面原始的行為模式，公開的介面產生它就是一個以OLE Automation技術為基礎的OLE Server，如同MS Word and Excel等等，Automation技術指的實際上就是實作IDispatch的COM物件，實作IDispatch介面又稱為雙介面(Dual Interface)，目前你眼睛所看的見的Com Object 或ActiveX元件DLL, OCX等都屬於Dual Interface的物件了．

實作繼承使我們的OLE Server提供相同的介面給外界使用，那當然第一步要有原始介面囉，我們 先建立一個ActiveX Library, 接著建立一個COM Object，接著Delphi會先請你為這個CoClass取個名子，筆者取名InterfaceTest，接著我們就可在Delphi提供的TypeLibrary編輯器建立如下的Method...

image

整個COM Object會提供一個對外的Method，這個Method只是一個空的沒有任何程式碼的Method，因為我們將在ImplementClient的程式中去Implement它，這個空的COM Object Unit1程式碼如下所示 :

//Com Object程式碼如下

unit Unit1;

interface

uses
Windows, ActiveX, Classes, ComObj, PrjInterfaceTest_TLB, StdVcl;

type
TInterfaceTest = class(TTypedComObject, IInterfaceTest)
private
BtnCount: Integer;
protected
function CreateButton: HResult; stdcall;
function Get_Count: Integer; stdcall;
function Set_Count(Value: Integer): HResult; stdcall;
{Declare IInterfaceTest methods here}
end;

implementation

uses ComServ;

function TInterfaceTest.CreateButton: HResult;
begin
//提供給其他程式Implement用
end;

function TInterfaceTest.Get_Count: Integer;
begin
Result := BtnCount;
end;

function TInterfaceTest.Set_Count(Value: Integer): HResult;
begin
BtnCount := Value;
end;

initialization
TTypedComObjectFactory.Create(ComServer, TInterfaceTest, Class_InterfaceTest,
ciMultiInstance, tmApartment);
end.

(2).建立ImplementClient程式

現在我們建立一個空的Application，接著在建立一個Automation Object，這就是一個OLE Server／OLE Automation技術最少會提供一個CoClass服務其他程式，所以會再看到一個TypeLibrary的編輯器，現在我們就要在本身的CoClass中去Impement 剛才我們建立的InterfaceTest的介面，首先我們必須先從選單Project->Import TypeLibrary將InterfaceTest的TypeLibrary import進來，然後在TypeLibrary的PrjImpClient裡的Uses頁次也將InterfaceTest引用進來..如下圖:

圖(二)

image

然後在CoClass(CImpClient)裡的Implements頁次中將InterfaceTest介面Implement進來..如圖三

圖(三)

image

在現在這個CImpClient程式中主要是一個提供service的一個OLE Server，它本身繼承實作了COM Object中的CreateButton方法，然後在本身OLE Server中再真正的去實作CreateButton所要做的動作，其實整個程式的結構很簡單，完整程式碼如下 : （注意:當然Delphi所Import建立的TypeLibrary的TLB Object Pascal 宣告部分我就不列出了，筆者會提供完整範例程式下載）

//CImpClient OLE Server Unit1完整程式碼
unit Unit2;

interface

uses
ComObj, ActiveX, PrjImpClient_TLB, StdVcl, PrjInterfaceTest_TLB, Unit1, Buttons;

type
TCImpClient = class(TAutoObject, ICImplementClient, IInterfaceTest)
private
BtnCount: Integer;
protected
function CreateButton: HResult; stdcall; //實作IInterfaceTest介面的CreateButton方法
function Get_Count: Integer; stdcall;
function Set_Count(Param1: Integer): HResult; stdcall;
procedure Create1; safecall; //本身再提供一個介面方法來提供給外部呼叫
{ Protected declarations }
public
frm1: TForm1;

end;

implementation

uses ComServ;

procedure TCImpClient.Create1;
begin
CreateButton;
end;

//實作Create Button的行為
function TCImpClient.CreateButton: HResult;
begin
frm1 := TForm1.Create(nil);
frm1.BtnButton1 := TBitBtn.Create(nil);
frm1.BtnButton1.parent := Form1;
frm1.BtnButton1.Top := 30;
frm1.BtnButton1.Left := 10;
frm1.BtnButton1.Width := 200;
frm1.BtnButton1.Caption := '嗨!我是Imp Client建立的按鈕';
end;

function TCImpClient.Get_Count: Integer;
begin
Result := BtnCount;
end;

function TCImpClient.Set_Count(Param1: Integer): HResult;
begin
BtnCount := Param1;
end;

initialization
TAutoObjectFactory.Create(ComServer, TCImpClient, Class_CImpClient,
ciMultiInstance, tmApartment);
end.

(3).實作OLE Server的Client程式

現在我們要來玩一個很有趣的遊戲，同樣的建立一個一般的Application，不過不須為Automation Object，因為它只是單純的OLE Server的Client程式而以，不過我們必須Import CimpClient這個OLE Server的TypeLibrary，然後建立這個介面物件ICImplementClient再呼叫Createremote()方法，其實COM的這項技術已經是跨行程的呼叫了，這個就程式碼非常簡單..

//OLE Server Client完整程式碼

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, PrjImpClient_TLB,
StdCtrls, Buttons;

type
TForm1 = class(TForm)
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
New_CImp: ICImplementClient;
begin
New_CImp := CoCImpClient.CreateRemote('gelis'); //建立遠端物件
New_CImp.Create1; //呼叫OLE Server CImpClient 的Create Button方法
end;

end.

有趣的地方來的，當我們將實作介面的CImpClient和一般的client 同時Run起來後，當我們按下Client畫面的按鈕後，你會看見CImpClient的畫面上會自動建立出一個按鈕，所以透過這項技術client可以呼叫OLE Server來幫忙做一些事情，如呼叫MS Word來幫忙我們產生報表(Word本身就是一個OLE Server)，關於呼叫Word製作報表的相關技術可參考筆者的如何取得Word Automation所提供的服務．

圖(四)

image

圖(五).叫CImpClient OLE Server建立Button的情形

image

範例程式碼下載

(1).PrjInterfaceTest 提供實作繼承的基礎介面

(2).ImplementClient 實作的Client

(3).呼叫ImplementClient建立按鈕的Client.(一般執行檔)

留言

張貼留言

這個網誌中的熱門文章

軟體工程師 - 成長的 10 個階段

圖片
軟體工程師 - 成長的 10 個階段 前言 先前，我在 Study4 小聚 #6 分享的一場關於軟體工程師 & 架構設計的養成之路，在該議程中，我分享了軟體工程師的 10 個階段（你的階段如有雷同、應該是...純屬巧合。XDDD） 哪 10 個階段？ 我將軟體工程師的成長依序分為 10 個成長階段，因為隨著技能的提升，你該擴充的 不會只是只有軟體開發技術，溝通與協作能力尤其重要 ，也像是『康威定律』中所提到的， 你的軟件的設計 & 或系統設計本質上反映了企業的組織機構。系統各個模塊間的介面的設計，也反映了企業各個部門之間的信息流動和合作方式，這些技能再進行軟體架構設計時也息息相關 ，團隊在進行模組設計時需要頻繁的溝通，這些、都是是否能將軟體做好的關鍵因素。 如 Logo 圖片，我依序說明每個階段的成長歷程。 1). 初始開發階段、熟悉 Programming/Developer 階段（PM/PO/SD 給規格後加以實作出來），並能夠藉由 模仿 來學習。這是剛進入軟體產業的學習階段。 2). 此階段代表已懂得透過重構來讓程式碼有基本的可維護性 、已能熟用 DRY (Don't Repeat Yourself)，進入這個階段代表已經有基本的程式語言的基礎， 應付 Programming/Developer 日常 工作 上的需求基本上沒什麼太大的問題。 3). 這裡的專案收尾代表對於專案開發已經有某些程度的認知、掌握度。我所提的掌握度在於了解『技術債』的產生緣由 與 危害，在 Programming/Devloper 層面懂得透過 S.O.L.I.D./Design Patterns 解決問題 並 開始能夠 自我學習 + 自我成長 。 4). 我這裡用『紀錄』 代表能運用所學 + 將使用者需求運用 〔邏輯思考〕 與 〔抽象化〕 轉化為程式碼 + 並能 自我成長 將經驗保存下來。我認為這是跨越只是（寫程式／實作）進入另一個門檻的重要經驗與歷練。 這個階段花費的時間會較長一點，時間長短取決於個人歷練、經歷、學習的環境與工作內容。 5). 此階段含括上面所有技能，並能夠與〔團隊〕和〔客戶〕 溝通 與 協作 、並產生出〔產品〕。而所謂的協作代表，不只自身技術所長能應付本身開發工作工作所需，亦能帶領團隊解決軟體專案的大小事務、也能夠替...
閱讀完整內容

常見的程式碼壞味道（Code Smell or Bad Smell）

圖片
常見的程式碼壞味道（Code Smell or Bad Smell） 圖片取自：https://www.slideshare.net/ElMahdiBenzekri/art-of-refactoring-code-smells-and-microservices-antipatterns 前言 究竟重複的程式碼要不要共用它？傳統的軟體開發上，重複的程式碼幾乎被視為罪惡的來源，但是它真的有多可怕？ 常見的 Code Smells The Dispensable （一些可有可無的） Lazy Class (冗員類別） 如果一個類很少使用它會增加代碼庫的複雜性，從而阻礙開發。這樣的類可能是不必要的，它的功能可以成為另一個類的一部分。 Data Class (只有資料的類別） 一個類別只有包含『資料』未包含Methods，也就是說並未包含行為，不具行為模式的類別代表該『實例』容易被【其他類別所操控】。 Duplicate Code (重複的程式碼) 如描述，這也是上次有分享在我的 FB 社團 軟體開發之路［德國資深架構師給新手的建議］ 中有產生非常熱烈討論，這在社團朋友提醒下想起 Refactor 重構一書裡曾提過 rule of three 法則， 這個法則的定義是這樣的，有時部分程式碼重複其實是允許的（不是說重複一定是是被允許的）而是在某些 Context 情境下，該程式碼有一段時間不會衍伸別的功能 或 需求一段時間不會異動、且如要將它 DRY 會產生的『複雜度』或『花費時間』遠高於預估的時間 或 不值得在目前這個專案的節骨眼上花費這個時間來做這件事，加上它 DRY 產生的複雜度偶後產生的維護成本【遠高於】不 DRY 的情況下的維護本，那麼，在這個時候，這個異動頻率【極低】的程式碼就不需要花費這個時間來 DRY 了！！ 因為重點在於，重構是需要『成本』的。(迷之音：DRY 是種抽象化阿~😎) 這讓我想起之前，大約在 2016 年左右，在 101 的樓上某金融業客戶，曾經做過一個專案，這個專案就是因為客戶 DMZ 環境的因素，我讓內網的 Webside 與 DMZ 的網站保留了部分重複的程式碼，因為這段程式碼終年不需要異動，我也懶得花這個時間，而我居然也忘了這記件事情了.. 哈哈 Orz 不過原歸正傳，我個人還是認為，其實適當...
閱讀完整內容

什麼是 gRPC ？

圖片
圖片取自： https://grpc.io/docs/guides/ gRPC 是什麼？能吃嗎？ 在安裝了 .NET Core 3.0 之後，眼尖的朋友應該會發現，在新增 ASP.NET Core 網頁類型專案裡，會看見一個 gRPC Service 類型的專案，其實它也不是什麼很新的東西，早在十多年前 Google 就使用這樣的 RPC 協定進行一些大量的可靠性微服務的存取，聽到這，難道現有的 Web API 不可靠嗎？其實不是的，它主要用在移動設備等提供高效簡單且跨平台的通訊與熱插拔的驗證機制。 gRPC 的運作原理 gRPC 顧名思義，是種基於 RPC 的通訊協定，不同於 Web API 走的傳統 HTTP 基礎協定，它有點像是 Socket ，但應該說是基於 Socket， 或精確地來說它是基於 HTTP/2 的協定 ，gRPC 是種協議緩衝協定，它必須事先定義 IDL (Interface Definition Language) 描述檔，看到 IDL 對於一些熟悉 COM／DCOM 的朋友一定非常的熟悉，對！沒錯！就是類似的東西！但，這邊的 IDL 是用一種副檔名為 .proto 檔案來是先定義在分散式環境中，要傳輸的序列化結構資訊，當然它也可以跟 JSON 一起使用。 也就是說，要使用 gRPC 您必須先定義 .proto 協議，然後透過 Compile 的支援，編譯成特定語言框架。而很高興的是，C# 也支援了，然而其實根據官方的資料顯示，C# 應該在 .NET Core 2.1 開始就支援了，只是到了 .NET Core 3.0 才有樣版的支援。 而使用 gRPC 的協議緩衝區的服務可以做到 Stub 的機制，也就是說，它就像是許多 RPC 一樣，Client 在呼叫 Server 端時，其實是對 Stub 進行叫用，Stub 在這就像個緩衝區一般，但更細部的說，應該是一個遠程服務的替身，這應該又讓許多熟悉 COM／RPC 通訊的朋友覺得熟悉了起來，是的！沒有錯。 在 .NET Core 3.0 裡使用 gRPC 目前支援 .proto 擴展為 gRPC 協議緩衝區的編譯器只有 .NET Core 了 ， 根據 Github 上的說明 .NET Framework 4.5+ 以上或 Mono 4+ 以上也可支援，而 gRPC 也完全的跨平台。要在 ....
閱讀完整內容