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;
使用方法
function LoadModule(var ErrMsg: string): boolean; var objClass: TMyObjectClass; GetClass: TGetMyClass; const LIB_FILENAME='pModule.dll'; FUNC_GETVOICECALL='GetMyObject'; begin Result := False; if not FileExists(LIB_FILENAME) then begin ErrMsg:='模块库文件不存在 '; exit; end; try FHandle := LoadLibrary(LIB_FILENAME); except on e: Exception do begin ErrMsg:='载入模块错误:' + e.Message; Exit; end; end; if FHandle <= 0 then Exit; Pointer(GetClass) := GetProcAddress(FHandle, FUNC_GETVOICECALL); if not Assigned(GetClass) then Exit; if not GetClass(objClass) then //调用dll函数，获得TMyObjClass（1） exit; FMyObj := objClass.Create; //根据类创建对象 （2） if Assigned(FMyObj) then Result := True; end;
上面的代码，在Delphi中，可以正确运行，可是，在Lazarus中呢，有问题：
在运行到（2）的时候，会出现“external sigsgev”的错误，跟踪调试，可以发现，运行完（1）的时候，
objClass的值是没有的，提示是“record<incomplete type>”，然后，在往下，就出错了。
具体原因还没有找到，估计是类型转换的问题吧。