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

unit UnitDll;

interface

uses
StrUtils, SysUtils, Dialogs;

function DoBusinessWide(pvData: PWideChar): PWideChar; stdcall;

implementation

function DoBusinessWide(pvData: PWideChar): PWideChar; stdcall;
var
lvData: WideString;
begin
ShowMessage(pvData);
lvData := pvData;
ShowMessage(lvData);
lvData := lvData + FormatDateTime('YYYYMMDDHHMMSSZZZ',Now);
Result := PWideChar(lvData);
ShowMessage(Result);
end;

end.

package com.jna.demo;

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

public class JnaDemo {

public interface RtcPubLibrary extends Library{
RtcPubLibrary instance = (RtcPubLibrary) Native.loadLibrary("JavaDll", RtcPubLibrary.class);
public WString DoBusinessWide(char[] pvData);
}

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

}