[JNA系列]Java调用Delphi编写的Dll之实例Delphi使用PAnsiChar

Delphi代码

 unit UnitDll;

 interface

 uses
   StrUtils, SysUtils, Dialogs;

 function DoBusinessAnsi(pvData: PAnsiChar): PAnsiChar; stdcall;

 implementation

 function DoBusinessAnsi(pvData: PAnsiChar): PAnsiChar; stdcall;
 var
   lvData: AnsiString;
 begin
   ShowMessage(pvData);
   lvData := pvData;
   ShowMessage(lvData);
   lvData := lvData + FormatDateTime('YYYYMMDDHHMMSSZZZ',Now);
   Result := PAnsiChar(lvData);
   ShowMessage(Result);
 end;

 end.

Java调用代码

 package com.jna.demo;

 import com.sun.jna.Library;
 import com.sun.jna.Native;

 public class JnaDemo {

     public interface RtcPubLibrary extends Library{
         RtcPubLibrary instance = (RtcPubLibrary) Native.loadLibrary("JavaDll", RtcPubLibrary.class);
         public String DoBusinessAnsi(String pvData);
     }

     public static void main(String[] args) {
         System.setProperty("jna.encoding", "GBK");
         StringBuilder sBuilder = new StringBuilder();
         sBuilder.append("123测试");
         String pvData2 = sBuilder.toString();
         System.out.println("String-->" + RtcPubLibrary.instance.DoBusinessAnsi(pvData2));
     }

 }

正常返回结果：String-->123测试20160825160443394