编程应用实例：Java通过JNI与Delphi交互

end;

//向java发送一个信息

function Java_com_wpd_JavaWindows_sendMessage(PEnv: PJNIEnv; Obj: JObject):JObject;stdcall;

var

JVM:TJNIEnv;

msg:JObject;

m:String;

begin

JVM := TJNIEnv.Create(PEnv);

文章来源于领测软件测试网 https://www.ltesting.net/