Delphi的DLL导出类的方法,无外乎就是利用TClass的特性,就是,定义要导出类的Class类,即比如说,要导出的类是TMyObject,那么就定义
TMyObjectClass=class of TMyObject
在导出函数里面,使用TMyObjectClass变量,可以在参数里面使用var或者直接返回。
类似于
function GetMyObject(var MyClass:TMyObjectClass):Boolean;stdcall;
或者
function GetMyObject:TMyObjectClass;stdcall;
在Lazarus里面,声明函数为
type TGetMyClass = function(var MyClass:TMyObjectClass):Boolean ; stdcall;
使用方法