shared object dynamically load/de

library sotest;

{$mode objfpc}{$H+}

uses
  SysUtils;

// Das Unterprogramm im Shared Object
function funStringZurueck(strUebergabe: PChar): PChar;
begin
  funStringZurueck := PChar(UpperCase(strUebergabe));
end;

// Exportiertes Unterprogramm(e)
exports
  funStringZurueck;

begin
end.

  ...
uses
  dynlibs, SysUtils, ...;

  ...

function funDllEinbinden: string;
type
  //Definition des aufzurufenden Unterprogramms wie Sie im einzubindenden Shared Object definiert ist
  TfunStringZurueck = function(strUebergabe: PChar): PChar;

var
  hndLib: TLibHandle = 0;
  funStringZurueck: TfunStringZurueck;

begin

  Result := '';

  // Ermittelt den Handle der Library
  hndLib := LoadLibrary(PChar('libsotest.so'));

  // Prüft, ob das Laden des Shared Object erfolgreich war
  if hndLib <> NilHandle then
  begin
    // Weisst der Variablen funStringZurueck die Adresse des Unterprogrammaufrufs
    // 'funStringZurueck' aus dem Shared Object libsotest.so zu.
    Pointer(funStringZurueck) := GetProcedureAddress(hndLib, 'funStringZurueck');
    // Prüft, ob eine gültige Adresse zurück gegeben wurde
    if @funStringZurueck <> nil then
      Result := funStringZurueck('hello world')
  end;

  // Freigabe des Arbeistspeichers
  funStringZurueck := nil;
  FreeLibrary(hndLib);

end;

  ...