Delphi调用Android的so文件

最新推荐文章于 2024-05-14 11:30:40 发布

YanJinrong

最新推荐文章于 2024-05-14 11:30:40 发布

阅读量318

点赞数

分类专栏： Delphi Android 文章标签： android java jvm

原文链接：https://zhidao.baidu.com/question/1860759219961110107.html

版权

Delphi 同时被 2 个专栏收录

118 篇文章 3 订阅

订阅专栏

Android

5 篇文章 0 订阅

订阅专栏

so本质就是个动态链接库,用gcc编译就能生成了,Delphi 里调用如下：

if not Tfile.Exists(TPath.GetDocumentsPath+'/libserial_port.so') then
  begin
    showmessage(TPath.GetDocumentsPath+'/libserial_port.so  not found');
  end;
  Handle1:=LoadLibrary(pchar(TPath.GetDocumentsPath+'/libserial_port.so'));//动态装入库
if Handle1<>0 then //找到库
begin
    fun1:=GetProcAddress(Handle1,'openport');
//搜索库函数Add，并返回函数指针
if Assigned(fun1) then
    begin
......

至于上面的GetDocumentsPath 或者别的目录也可以参看TPath的说明，和so文件存放目录有关系，另外值得注意的事传递的字符串Delphi中是双字节的。