Dynlibs - не работает на FreeBSD ?

[STAKANOV]

Не могу понять, если линкуюсь с динамической библиотекой на этап компиляции то все ОК. А если пытаюсь загрузить ее с помощью функций dynlibs, то березултаттно

Вариант 1 (работает)

Код: Выделить всё

program PBS;
uses PBSShare, PBSLog, crt;
procedure ConnectionManagerMain;external 'ConnectionHandler';
begin
SysMessage('Загружаем менеджер соедеинений');
ConnectionManagerMain;
repeat
 delay(500);
until KeyPressed;
end.


Варинат 2 (не работает)

Код: Выделить всё

program PBS;
uses PBSShare, PBSLog, crt, dynlibs;
type
TProc=procedure;
PProc=^TProc;

var
CHLib:TlibHandle;
ConnectionManagerMain:TProc;
begin
SysMessage('Загружаем менеджер соедеинений');
CHLib:=LoadLibrary('libConnectionHandler.so');
if CHLib=NILHandle then
begin
 SysMessage('Не могу загрузить менеджер соединений');
 Halt(1);
end;
ConnectionManagerMain:=PProc(GetProcAddress(CHLib, 'ConnectionManagerMain'))^;
ConnectionManagerMain;
repeat
 delay(500);
until KeyPressed;
UnloadLibrary(CHLib);
end.


Функция LoadLibrary возвращает NIL. Смущяет меня тот факт, чтоесли указать какуюнибудь из не моих библиотека (например libxml2.so), то она загружается!!!!

Кратко сама библиотека:

Код: Выделить всё

{$SMARTLINK OFF}
library ConnectionHandler;
uses sockets, baseunix, crt, PBSLog, PBSShare;
... здесь всякие другие функции и тп
{------------------------------------------------------------}
procedure ConnectionManagerMain;
...
begin
...
end;

exports  ConnectionManagerMain;

end.



[Иван Шихалев]

Хорошо б каким-нибудь objdump'ом посмотреть, какое имя экспортируется. Могут быть заморочки, например, с регистром символов.

[STAKANOV]

Хорошо б каким-нибудь objdump'ом посмотреть, какое имя экспортируется. Могут быть заморочки, например, с регистром символов.

А при чем тут это? Не загружается функцией LoadLibrary библиотека, а что там дальше это по-моему уже другой вопрос.

[Иван Шихалев]

Код: Выделить всё

LoadLibrary('ConnectionHandler')

[STAKANOV]

Код: Выделить всё

LoadLibrary('ConnectionHandler')

Я с этого начал Повторюсь, почему-то не загружается именно написанная мною библиотека (например libxml2.so загружается). Собранную библиотеку я помещаю в /usr/local/lib и запускаю ldconfig -R.

Сейчас пробовал на простых примерах эффект - никакой

Вызывающий код(полностью):

Код: Выделить всё

{$smartlink off}
program tmylib;
uses dynlibs, crt;
type
TProc=procedure;
PProc=^TProc;

var
CHLib:TLibHandle;
MyFunc:TProc;

begin
CHLib:=LoadLibrary('mylib');
if CHLib=nil then
begin
 writeln('не загрузили');
 halt(1);
end;
MyFunc:=PProc(GetProcAddress(CHLib,'MyFunc'))^;
if @MyFunc<>nil then MyFunc;
repeat
 delay(500);
until KeyPressed;
UnloadLibrary(MyFunc);
end.


Библиотека(полностью):

Код: Выделить всё

{$smartlink off}
library MyLib;

procedure MyFunc;
begin
 Writeln('bbbb');
end;

exports MyFunc;

end.


И на всяки случай файл ~/.fpc.cfg

Код: Выделить всё

-Sgic
-CX
-Fu/usr/local/lib/fpc/2.0.0/units/$fpctarget
-Fu/usr/local/lib/fpc/2.0.0/units/$fpctarget/*
-Fu/usr/local/lib/fpc/2.0.0/units/$fpctarget/rtl
-Fu/usr/home/stakan/units/*
-Fu*
-Fl/usr/local/lib
-FD/usr/home/stakan/fpc/$fpctarget/bin
#-Xs
-XX
-l
-viwn
-Xf