Difference between revisions of "shared object static load/de"

From Free Pascal wiki
Jump to navigationJump to search
m
m
Line 14: Line 14:
  
  
// Die Funktion der DLL
+
// Das Unterprogramm im Shared Object
 
function funStringZurueck(strUebergabe: PChar): PChar;
 
function funStringZurueck(strUebergabe: PChar): PChar;
 
begin
 
begin
Line 21: Line 21:
  
  
// Exportierte Funktion(en)
+
// Exportiertes Unterprogramm(e)
 
exports
 
exports
 
   funStringZurueck;
 
   funStringZurueck;

Revision as of 09:15, 6 June 2013

Template:so static load

Dieser Artikel beschäftigt sich mit der Linux(Ubuntu)-Programmierung.
Das Tutorial, zeigt wie eine Programmbibliothek mit der Dateinamenserweiterung .so (Shared Object) statisch geladen wird.

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.



Damit das Shared Objekt vom Betriebssystem (Linux) gefunden werden kann, muss es in einem der folgenden Pfade zu finden sein.
Ist das Shared Object in keinem dieser Pfade zu finden, dann müssen Sie das Shared Objekt in einen dieser Pfade kopieren.

  • Pfad der Umgebungsvariable LD_LIBRARY_PATH
  • /lib
  • /usr/lib
  • /etc/ld.so.conf


Beim Datenaustausch zwischen dem Unterprogrammen des Shared Object und dem rufenden Programm empfiehlt sich die Verwendung des Datentyps PChar.

Einbinden und verwenden der Shared Object-Funktion im eigenen Programm:

  
  ...
  
  interface
  
  ...
  
  {
  Nennt die zuverwendende Funktion und das Shared Object in der die Funktion zu finden ist.
  (In diesem Beispiel heisst das Shared Object libsotest.so und ist natürlich durch den Namen
   Ihres Shared Objects zu ersetzen.)
  (In diesem Beispiel heisst das Unterprogramm des Shared Object funStringZurueck und ist
   natürlich durch den Namen des Unterprograms im Shared Objects zu ersetzen.)
  }
  function funStringZurueck(strUebergabe: PChar): PChar; stdcall; external 'libsotest.so';
  
  ...
  
function funWertZurueck: string;
begin
  // Übernimmt den Rückgabewert des Unterprograms aus dem Shared Object
  Result := funStringZurueck('hallo welt');
end;

  ...



--Olaf 07:07, 6 June 2013 (UTC)