lazarus 使用Delphi的dll导出类的问题

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; 

使用方法

继续阅读