Linux 下使用gcc生成so(動态連結庫)檔案
//the file name is sum.c
#include
int sum(int a, int b)
{
return a + b;
}
OK.現在我們準備生成一個名為 libsum.so 的目标本地庫。使用 GCC 編譯器來編譯生成我們要的結果
gcc -Wall -fPIC -O2 -c -o libsum.o sum.c //生成.o
gcc -shared -Wl,-soname,libsum.so -o libsum.so libsum.o //這步才生成共享庫 .so 文
動态調用方法:
#include
#include
#include
int main(void)
{
void *handle;
int (*cosine)(int, int);
char *error;
handle = dlopen ("./libsum.so", RTLD_LAZY);
if (!handle)
{
fputs (dlerror(), stderr);
exit(1);
}
cosine = dlsym(handle, "sum");
if ((error = dlerror()) != NULL)
{
fputs(error, stderr);
exit(1);
}
printf ("%d\n", (*cosine)(4,5));
dlclose(handle);
return 0;
}
在Lazarus中的調用方法
1、動态調用
procedure TFPFormTest.Button7Click(Sender: TObject);
type
Tgetip = function (AIP: PChar): Integer; cdecl;
var
ip: string;
h: Pointer;
getip: Tgetip;
begin
h := dlopen('./libVAProxy.so', RTLD_LAZY);
try
if h = nil then begin
Memo1.Lines.Add(StrPas(dlerror()));
Exit;
end;
getip := dlsym(h, 'getlocalip');
if dlerror() <> nil then begin
Memo1.Lines.Add(StrPas(dlerror()));
Exit;
end;
SetLength(ip, 20);
getip(PChar(ip));
Memo1.Lines.Add(ip);
finally
dlclose(h);
end;
end;