知识大全 Dll 中导出类 --Delphi 实战[1]

Posted 2022-07-14 类型

篇首语：读书忌死读，死读钻牛角。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Dll 中导出类 --Delphi 实战[1]相关的知识，希望对你有一定的参考价值。

Dll 中导出类 --Delphi 实战[1] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　从 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;

cha138/Article/program/Delphi/201311/24861