更新歷史：No.1

更新時間：2001-11-01 20:09

更新人員：Musicwind®

更新備注：初稿完成。

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

摘要：

本文討論的是如何在Dll中導出類――基于某個特定的抽象類的許多子類。這種技術運用了多態的思想，使得我們得到類似于插件的效果。

預期讀者：

了解多態的概念；了解元類的概念。

技術難度：

6/10。

從Dll中導出類，想必大家首先想到的是使用bpl包。這種方式有一個不好，那就是使用者必須清楚這個包中含有那些類，也就是說必須知道類的名字――這在一定意義上是個限制，試想一種情況，使用者定義了一個底層的抽象類(abstract class)，然后在此基礎上定義了許多應用類(concrete class)，那么，對于使用者來說，他希望在不知道具體有哪些類的情況下能使用這些類――這么說似乎有些玄，但實際情況確實如此，因為定義抽象類的時候并不能預料到以后會有多少個具體類――那么這樣的需求，要靠什么樣的技術來實現呢？

       其實實現的技術的難度并不大――作者在此將自己實踐的經驗獻給大家，算作拋磚引玉，希望能看到其他更好的方法！

       以下先介紹該方法涉及的一些基礎知識，然后用一個例子來說明具體的實現。

一、基本概念

       元類(meta class)，也叫類引用類型(class-reference type)，可以看成是一種類的類型，以該類型聲明的變量的值代表一個類。比如：

       type

         TClass = Class of TObject；

這樣就聲明了一個元類的類型。然后可以有這樣的變量聲明：

Var

  AClass: TClass;

那么，就可以有這樣的用法：

AClass := TObject;

或者：

AClass := TButton;

或者：

AClass := TForm;

等等。

因為TClass是一個TObject類型的元類，而TButton，TForm等都是自TObject派生而來，因而TButton和TForm這樣的值對于AClass都是可接受的。

然后，我們就可以運用多態的思想，靈活運用AClass這個類變量了。而這一點也正是下文具體實現的基礎知識。

二、具體實現

       第一步，建立一個抽象類：

       我們使用這樣一個簡單的聲明，該抽象類只提供了一種抽象方法，但并不影響我們描述問題：

TMyBaseForm = Class(TForm)

      PRotected

function GetTitle: pchar; virtual; abstract;

      end;

       MyBaseFormClass = Class of TMyBaseForm;

       暫不探討這么一個抽象類提供了多少可供實用的方法和接口，因為我們要討論的是一種技術上的可行性。假設作者定義此接口的初衷只是希望獲得任意多變化的Title，而具體GetTitle的返回值是什么需要靠子類來實現。并且，作者還希望子類的代碼放在Dll中實現，與主程序分離――這樣的方式很有些插件的味道，或許還能實現Plug&Play的某些特性――是不是挺吸引人啊？那么，下一不應該怎么做呢？

       首先主程序和Dll程序應當將上述聲明的單元包含進來，然后，主程序負責實現一個驅動――動態加載Dll，動態加載類；而Dll負責實現子類。

       先說Dll吧，Dll應當做什么工作？

第二步，Dll中導出子類：

我們設計了以下兩個導出函數：

1．  function GetClassCount: integer; stdcall;

告訴調用者，本Dll中共有幾個子類；

2．function GetClassTypeByIndex(const iIndex: integer;

  var ClassType: MyBaseFormClass): WordBool; stdcall;

以索引方式獲得具體的子類。注意，此處的ClassType的類型是MyBaseFormClass，這表明，它的值將是一個確定的自TMyBaseForm繼承而來的類。

以下是它們可能的一種實現：

function GetClassCount: integer;

begin

  result := 3; //表明本Dll中導出了3個類

end;

function GetClassTypeByIndex(const iIndex: integer;

  var ClassType: MyBaseFormClass): WordBool;

begin

  result := True;

  case iIndex of

    0: ClassType := TFrmTest1;

       1: ClassType := TFrmTest2;

       2: ClassType := TFrmTest3;

    else

      result := False;

  end;

end;

       當然，在該單元的Use列表中應當將TFrmTest1、TFrmTest2以及TFrmTest3所在的單元包含進來。而TFrmTest1的實現可以象這樣：

       TFrmTest1 = Class(TMyBaseForm)

       protected

function GetTitle: PChar; override;

end;

function TFrmTest1.GetTitle: Pchar;

begin

  result := ‘Hello from TFrmTest1’；

end;

       末了，別忘了將GetClassCount和GetClassByIndex加到Exports列表中。然后，Build該Dll工程的時候，請將Project option-package 中的”使用運行包use runtime package”打勾。至于具體的原因后面講。

至此，Dll方面的工作告一段落。

       第三步，主程序驅動引擎的實現：

       這一步相對來說容易些――無非是動態加載Dll，然后調用GetClassCount函數，接著調用GetClassByIndex。關鍵的代碼：

       Var AClass: TMyBaseClass;

       AForm: TMyBaseForm;

I, iCount: integer;

blResult: Boolean;

begin

  //略去加載動態庫的部分，假定FPGetClassProc指向GetClassCount函數，FPGetClassByIndexProc指向GetClassByIndex，則：

  iCount := FPGetClassProc;

  for I := 0 to iCount ?C 1 do

  begin

    AClass := FPGetClassByIndex(I, blResult);

       if blResult then

    begin

      AForm := AClass.Create(application);

      AForm.Caption := AForm.GetTitle;

      AForm.Show;

    end;

  end;

//…

end;

       注意一點，和Dll相似，創建輸出文件的時候，也需要選擇使用運行時間包。這是因為，如果不使用運行時間包，將導致相同的類在內存中有多個副本，因而對它們使用Is操作符的將返回False的結果。

Musicwind®@HangZhou.Zhejiang.China

2001-11-01

更多文章

[文終]