DELPHI开发LINUX包

DELPHI开发LINUX包

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

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

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

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

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

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

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;

　

?

1 2 3 4 5 6 7 8 9 10 11

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