Dll中導出類--Delphi實戰之一

2019-11-18 18:45:02

字體：大中小

來源：轉載

供稿：網友

更新歷史：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