Delphi調用Android的.so檔案

標籤：

原地址：http://zhidao.baidu.com/link?url=fzqefMM44ljXA5BnAbkX44SapCUteyzlXFvGLKvukBivm9AB-w39P_h7eX1ty-GQX8j3A03AZBPat6yMqjeY4Sc5jlaayMRVOigzCElm_Ky

so本質就是個動態連結程式庫
用gcc編譯就能產生了

Delphi  XE裡

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檔案存放目錄有關係

另外值得注意的事傳遞的字串  xe中是雙位元組的。

Delphi調用Android的.so檔案（轉）