Delphi For Android 开发笔记-附：如何Delphi中同时实现Windows、Android版的GetModuleFileName函数

在Windows中开发DLL时，经常会需要获取当前DLL所在目录以便读取同目录下的其他文件，而目前Delphi在开发android时，其实没多大必要获取，因为整个工程只有一个so文件，而这个so文件也可以通过引用System.IOUtils，再使用TPath.GetLibraryPath()即可。

不过有时候我们确实需要用到类似Windows中GetModuleFileName和GetModuleHandle等函数， 这些我们应该如何在android中去实现呢？

1.linux中的进程管理/proc/[PID]/XXXX

在linux中乃至各种遵循posix的unix类系统，均可以在/proc/路径下面得到系统各种进程的相关信息，因此下面的代码在MacOS和iOS中其实是可以通用的，因为Posix标准就是为了可移植而定义的，对于开发人员来说，用一套代码走遍所有系统是非常高兴的事，而进程各个模块的信息则在maps文件中。

2.实现android版的GetModuleFileName

下面各种版本的实现代码：

2.1 FreePascal 代码

 //可支持android和linux
 uses
   {$IFDEF FPC}
   {$IFDEF UNIX}
   //BaseUnix, Unix,
   dl;
   {$ENDIF}
   {$ENDIF} 
 9 type  
10   HMODULE = Cardinal; 
 {$IFDEF FPC}
 {$IFDEF UNIX}
 function GetModuleFileName(hLib: HMODULE):string;
 var
   dlinfo: dl_info;
   IsLib: Boolean;
 begin
      if hLib= then
     hLib := HMODULE(@GetModuleFileName);

   dladdr(Pointer(hLib), @dlinfo);
   Result:=string(dlinfo.dli_fname);
 end;
 {$ENDIF}
 {$ENDIF}

2.2 delphi XE7 代码

 //支持android, MacOS没测试，可能会有问题但原理是正确的
 uses
   {$IFDEF POSIX}
   Posix.Base,
   Posix.Dlfcn,
   {$ENDIF}
   Classes, SysUtils;

 type
   HMODULE = Cardinal;

 {$IFNDEF FPC}
 {$IFDEF ANDROID}
 //Posix.Dlfcn中android版本的dladdr只返回模块名称，不返回全路径
 //因此需要自己实现dladdr
 threadvar
   _ModuleName: MarshaledAString;

 function dladdr(Lib: pointer; info: Pdl_info): Longint; cdecl;
 var
   F: Text;
   s, ss, curnode: string;
   a1, a2, curbase: UIntPtr;
   //i: longint;
   p, pp: PByte;
   M: TMarshaller;
 begin
   Result:=;
   _ModuleName:='';
   if info = nil then
     exit;
   curbase:=;
   curnode:='';
   Assign(F, '/proc/self/maps');
   Reset(F);
   if IoResult <>  then
     exit;
   while not Eof(F) do
     begin
       // Read the address range info
       ReadLn(F, ss);
       p:=PByte(M.AsAnsi(ss, CP_UTF8).ToPointer);
       // Starting address
       pp:=p;
       while not (p^ in [Byte(Ord('-')), Byte(Ord(#))]) do
         Inc(p);
       p^ := Byte(Ord(#));

       s := UTF8ToString(MarshaledAString(pp));
       a1 := StrToIntDef('$'+s, );
         if a1 >  then
         begin
           // Ending address
           Inc(p);
           pp:=p;
           while p^ > Byte(Ord(' ')) do
             Inc(p);
           p^ := Byte(Ord(#));

           s := UTF8ToString(MarshaledAString(pp));
           a2 := StrToIntDef('$'+s, );

             if a2 >  then
             begin
               while p^ <= Byte(Ord(' ')) do Inc(p);  // Whitespace
               while p^ > Byte(Ord(' ')) do Inc(p);   // Skip perms
               while p^ <= Byte(Ord(' ')) do Inc(p);  // Whitespace
               while p^ > Byte(Ord(' ')) do Inc(p);   // Skip offset
               while p^ <= Byte(Ord(' ')) do Inc(p);  // Whitespace
               while p^ > Byte(Ord(' ')) do Inc(p);   // Skip dev
               while p^ <= Byte(Ord(' ')) do Inc(p);  // Whitespace
               // inode
               pp:=p;
               while p^ > Byte(Ord(' ')) do
                 Inc(p);
               p^ := Byte(Ord(#));

               s := UTF8ToString(MarshaledAString(pp));

                 if s <> '' then
                 begin
                     if s <> curnode then
                     begin
                       curnode:=s;
                       curbase:=a1;
                     end;

                     if (UIntPtr(Lib) >= a1) and (UIntPtr(Lib) < a2) then
                     begin
                       while p^ <= Byte(Ord(' ')) do Inc(p);  // Whitespace
                       // File name
                         if p^ = Byte(Ord('/')) then
                         begin
                           _ModuleName:=MarshaledAString(p);
                           info^.dli_fname:=MarshaledAString(_ModuleName);
                           info^.dli_fbase:=pointer(curbase);
                           info^.dli_sname:=nil;
                           info^.dli_saddr:=nil;
                           Result:=;
                         end;
                       break;
                     end;
                 end;
             end;
         end;
     end;
   Close(F);
 end;
 {$ELSE}
 function dladdr(Lib: pointer; info: Pdl_info): Longint; cdecl;
 begin
   Result := Posix.Dlfcn.dladdr(UIntPtr(Lib), info^);
 end;
 {$ENDIF}
 {$ENDIF}

 {$IFDEF POSIX}
 function GetModuleFileName(hLib: HMODULE):string;
 var
   dlinfo: dl_info;
   IsLib: Boolean;
 begin
    if hLib= then
       hLib := HMODULE(@GetModuleFileName);

     dladdr(pointer(hLib), @dlinfo);
     Result := UTF8ToString(dlinfo.dli_fname);
 end;
 {$ENDIF}

3. 实现android版的GetModuleHandle

有了上面的dladdr实现，其实GetModuleHandle只是由原来通过地址信息获得路径名，逆处理为由路径名获取地址信息，而首地址即使so加载到内存后的句柄。