AD商业广告自由选择
AD商业广告自由选择

Dll中导出类--Delphi实战

正文概述 开源人   2024-10-29 19:01:36  
从Dll中导出类,想必大家首先想到的是使用bpl包。这种方式有一个不好,那就是使用者必须清楚这个包中含有那些类,也就是说必须知道类的名字——这在一定意义上是个限制,试想一种情况,使用者定义了一个底层的抽象类(abstract class),然后在此基础上定义了许多应用类(concrete class),那么,对于使用者来说,他希望在不知道具体有哪些类的情况下能使用这些类——这么说似乎有些玄,但实际情况确实如此,因为定义抽象类的时候并不能预料到以后会有多少个具体类——那么这样的需求,要靠什么样的技术来实现呢?

  其实实现的技术的难度并不大——作者在此将自己实践的经验献给大家,算作抛砖引玉,希望能看到其他更好的方法!g4B1234FCOM专注游戏工具及源码例子分享

  以下先介绍该方法涉及的一些基础知识,然后用一个例子来说明具体的实现。g4B1234FCOM专注游戏工具及源码例子分享

一、基本概念g4B1234FCOM专注游戏工具及源码例子分享

  元类(meta class),也叫类引用类型(class-reference type),可以看成是一种类的类型,以该类型声明的变量的值代表一个类。比如: typeg4B1234FCOM专注游戏工具及源码例子分享

TClass = Class of TObject;g4B1234FCOM专注游戏工具及源码例子分享

  这样就声明了一个元类的类型。然后可以有这样的变量声明:g4B1234FCOM专注游戏工具及源码例子分享

Varg4B1234FCOM专注游戏工具及源码例子分享

AClass: TClass;g4B1234FCOM专注游戏工具及源码例子分享

  那么,就可以有这样的用法:g4B1234FCOM专注游戏工具及源码例子分享

AClass := TObject;g4B1234FCOM专注游戏工具及源码例子分享

  或者:g4B1234FCOM专注游戏工具及源码例子分享

AClass := TButton;g4B1234FCOM专注游戏工具及源码例子分享

  或者:g4B1234FCOM专注游戏工具及源码例子分享

AClass := TForm;g4B1234FCOM专注游戏工具及源码例子分享

  等等。g4B1234FCOM专注游戏工具及源码例子分享

  因为TClass是一个TObject类型的元类,而TButton,TForm等都是自TObject派生而来,因而TButton和TForm这样的值对于AClass都是可接受的。g4B1234FCOM专注游戏工具及源码例子分享

  然后,我们就可以运用多态的思想,灵活运用AClass这个类变量了。而这一点也正是下文具体实现的基础知识。g4B1234FCOM专注游戏工具及源码例子分享

二、具体实现g4B1234FCOM专注游戏工具及源码例子分享

  第一步,建立一个抽象类:g4B1234FCOM专注游戏工具及源码例子分享

  我们使用这样一个简单的声明,该抽象类只提供了一种抽象方法,但并不影响我们描述问题:g4B1234FCOM专注游戏工具及源码例子分享

TMyBaseForm = Class(TForm)g4B1234FCOM专注游戏工具及源码例子分享

protectedg4B1234FCOM专注游戏工具及源码例子分享

function GetTitle: pchar; virtual; abstract;g4B1234FCOM专注游戏工具及源码例子分享

end;g4B1234FCOM专注游戏工具及源码例子分享

MyBaseFormClass = Class of TMyBaseForm;g4B1234FCOM专注游戏工具及源码例子分享

  暂不探讨这么一个抽象类提供了多少可供实用的方法和接口,因为我们要讨论的是一种技术上的可行性。假设作者定义此接口的初衷只是希望获得任意多变化的Title,而具体GetTitle的返回值是什么需要靠子类来实现。并且,作者还希望子类的代码放在Dll中实现,与主程序分离——这样的方式很有些插件的味道,或许还能实现Plug&Play的某些特性——是不是挺吸引人啊?那么,下一不应该怎么做呢?g4B1234FCOM专注游戏工具及源码例子分享

  首先主程序和Dll程序应当将上述声明的单元包含进来,然后,主程序负责实现一个驱动——动态加载Dll,动态加载类;而Dll负责实现子类。g4B1234FCOM专注游戏工具及源码例子分享

  先说Dll吧,Dll应当做什么工作?g4B1234FCOM专注游戏工具及源码例子分享

  第二步,Dll中导出子类:g4B1234FCOM专注游戏工具及源码例子分享

  我们设计了以下两个导出函数:g4B1234FCOM专注游戏工具及源码例子分享

1. function GetClassCount: integer; stdcall;g4B1234FCOM专注游戏工具及源码例子分享

  告诉调用者,本Dll中共有几个子类;g4B1234FCOM专注游戏工具及源码例子分享

2.function GetClassTypeByIndex(const iIndex: integer;g4B1234FCOM专注游戏工具及源码例子分享

var ClassType: MyBaseFormClass): WordBool; stdcall;g4B1234FCOM专注游戏工具及源码例子分享

  以索引方式获得具体的子类。注意,此处的ClassType的类型是MyBaseFormClass,这表明,它的值将是一个确定的自TMyBaseForm继承而来的类。g4B1234FCOM专注游戏工具及源码例子分享

以下是它们可能的一种实现:g4B1234FCOM专注游戏工具及源码例子分享

function GetClassCount: integer;g4B1234FCOM专注游戏工具及源码例子分享

beging4B1234FCOM专注游戏工具及源码例子分享

result := 3; //表明本Dll中导出了3个类g4B1234FCOM专注游戏工具及源码例子分享

end;g4B1234FCOM专注游戏工具及源码例子分享

function GetClassTypeByIndex(const iIndex: integer;g4B1234FCOM专注游戏工具及源码例子分享

var ClassType: MyBaseFormClass): WordBool;g4B1234FCOM专注游戏工具及源码例子分享

beging4B1234FCOM专注游戏工具及源码例子分享

result := True;g4B1234FCOM专注游戏工具及源码例子分享

case iIndex ofg4B1234FCOM专注游戏工具及源码例子分享

0: ClassType := TFrmTest1;g4B1234FCOM专注游戏工具及源码例子分享

1: ClassType := TFrmTest2;g4B1234FCOM专注游戏工具及源码例子分享

2: ClassType := TFrmTest3;g4B1234FCOM专注游戏工具及源码例子分享

elseg4B1234FCOM专注游戏工具及源码例子分享

result := False;g4B1234FCOM专注游戏工具及源码例子分享

end;g4B1234FCOM专注游戏工具及源码例子分享

end;g4B1234FCOM专注游戏工具及源码例子分享

  当然,在该单元的Use列表中应当将TFrmTest1、TFrmTest2以及TFrmTest3所在的单元包含进来。而TFrmTest1的实现可以象这样:g4B1234FCOM专注游戏工具及源码例子分享

TFrmTest1 = Class(TMyBaseForm)g4B1234FCOM专注游戏工具及源码例子分享

protectedg4B1234FCOM专注游戏工具及源码例子分享

function GetTitle: PChar; override;g4B1234FCOM专注游戏工具及源码例子分享

end;g4B1234FCOM专注游戏工具及源码例子分享

function TFrmTest1.GetTitle: Pchar;g4B1234FCOM专注游戏工具及源码例子分享

beging4B1234FCOM专注游戏工具及源码例子分享

result := ‘Hello from TFrmTest1’;g4B1234FCOM专注游戏工具及源码例子分享

end;g4B1234FCOM专注游戏工具及源码例子分享

  末了,别忘了将GetClassCount和GetClassByIndex加到Exports列表中。然后,Build该Dll工程的时候,请将Project option-package 中的”使用运行包use runtime package”打勾。至于具体的原因后面讲。g4B1234FCOM专注游戏工具及源码例子分享

  至此,Dll方面的工作告一段落。g4B1234FCOM专注游戏工具及源码例子分享

  第三步,主程序驱动引擎的实现:g4B1234FCOM专注游戏工具及源码例子分享

  这一步相对来说容易些——无非是动态加载Dll,然后调用GetClassCount函数,接着调用GetClassByIndex。关键的代码:g4B1234FCOM专注游戏工具及源码例子分享

Var AClass: TMyBaseClass;g4B1234FCOM专注游戏工具及源码例子分享

AForm: TMyBaseForm;g4B1234FCOM专注游戏工具及源码例子分享

I, iCount: integer;g4B1234FCOM专注游戏工具及源码例子分享

blResult: Boolean;g4B1234FCOM专注游戏工具及源码例子分享

beging4B1234FCOM专注游戏工具及源码例子分享

  //略去加载动态库的部分,假定FPGetClassProc指向GetClassCount函数,FPGetClassByIndexProc指向GetClassByIndex,则:g4B1234FCOM专注游戏工具及源码例子分享

iCount := FPGetClassProc;g4B1234FCOM专注游戏工具及源码例子分享

for I := 0 to iCount – 1 dog4B1234FCOM专注游戏工具及源码例子分享

beging4B1234FCOM专注游戏工具及源码例子分享

AClass := FPGetClassByIndex(I, blResult);g4B1234FCOM专注游戏工具及源码例子分享

if blResult theng4B1234FCOM专注游戏工具及源码例子分享

beging4B1234FCOM专注游戏工具及源码例子分享

AForm := AClass.Create(Application);g4B1234FCOM专注游戏工具及源码例子分享

AForm.Caption := AForm.GetTitle;g4B1234FCOM专注游戏工具及源码例子分享

AForm.Show;g4B1234FCOM专注游戏工具及源码例子分享

end;g4B1234FCOM专注游戏工具及源码例子分享

end;g4B1234FCOM专注游戏工具及源码例子分享

//…g4B1234FCOM专注游戏工具及源码例子分享

end;g4B1234FCOM专注游戏工具及源码例子分享



声明:本文系互联网搜索而收集整理,不以盈利性为目的,文字、图文资料源于互联网且共享于互联网。
如有侵权,请联系 yao4fvip#qq.com (#改@) 删除。