[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