更新歷史：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
更多文章
[文終]