DELPHI开发LINUX包


本文整理自网络,侵删。

 DELPHI开发LINUX包

我们知道,有了包的存在,开发插件架构的程序,才成为可能 。

DELPHI在WINDOWS里面的包的扩展名是.bpl。

在LINUX里面的包的扩展名是.so。

怎样在LINUX里面加载.so的包?

不论加载WINDOWS的包,还是加载LINUX的包,都是使用LoadPackage()函数加载。


function LoadPackage(const Name: string; AValidatePackage: TValidatePackageProc): HMODULE;
{$IFDEF POSIX}
var
  DLErrorMsg: string;
  M: TMarshaller;
{$ENDIF POSIX}
begin
{$IFDEF MSWINDOWS}
  Result := SafeLoadLibrary(Name);
{$ENDIF MSWINDOWS}
{$IFDEF POSIX}
  Result := HMODULE(dlopen(M.AsAnsi(Name, CP_UTF8).ToPointer, PkgLoadingMode));
{$ENDIF POSIX}
  if Result = 0 then
  begin
{$IFDEF POSIX}
    DLErrorMsg := string(dlerror);
{$ENDIF POSIX}
    raise EPackageError.CreateResFmt(@sErrorLoadingPackage,
      [Name,
       {$IFDEF MSWINDOWS}SysErrorMessage(GetLastError){$ENDIF MSWINDOWS}
       {$IFDEF POSIX}DLErrorMsg{$ENDIF POSIX}]);
  end;
  try
    InitializePackage(Result, AValidatePackage);
  except
{$IFDEF MSWINDOWS}
    FreeLibrary(Result);
{$ENDIF MSWINDOWS}
{$IFDEF POSIX}
    dlclose(Result);
{$ENDIF POSIX}
    raise;
  end;
end;
 


procedure UnloadPackage(Module: HMODULE);
begin
  FinalizePackage(Module);
{$IFDEF MSWINDOWS}
  FreeLibrary(Module);
{$ENDIF MSWINDOWS}
{$IFDEF POSIX}
  dlclose(Module);
  InvalidateModuleCache;
{$ENDIF POSIX}

end;

 

来源:https://www.cnblogs.com/hnxxcxg/p/11290716.html

相关阅读 >>

Delphi 将string 转为 array of ansichar

Delphi ado连接数据库

Delphi 中的哈希表: thashedstringlist

Delphi 声明指令 调用左右

Delphi winapi: getmodulehandle - 获取一个模块(exe 或 dll)的句柄

Delphi application.restore; 简单用法

Delphi 实现php的urlencode编码效果

Delphi 在listview控件中绘底图

Delphi listboxadditems() 不重复添加edit1

Delphi 获取系统服务列表

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...