Gelis 技術隨筆-部落格

//酷小毅的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... 整個COM Object會提供一個對外的Method，這個Method只是一個空的沒有任何程式碼的Method，因為我們將在ImplementClient的程式中去Implement它，這個空的COM Object Unit1程式碼如下所示 : //Com Object程式碼如下 unit Unit1; interface uses Windows, ActiveX, Classes, ComObj, PrjInterfaceTest_TLB, StdVcl;