标签：classes free tostring cli jvm utf8 ted width jni
JNI 不是什麼新技術，英文全稱是：Java Native Interface，JAVA本地化代碼接口。本地化代碼是指直接編譯成的與機器相關的二進制代碼，而不是Java字節碼之類的中間代碼。對於 JNI 的來龍去脈，不作介紹了，在 java.sun.com 有介紹，另外 BAIDU/GOOGLE 搜索，也有大把的。這裏僅僅做一個入門級的介紹和實現。
JAVA發佈的是C/C++的接口文檔，DELPHI想調用，首先要轉換成DELPHI的接口文檔。很幸運，已經有人完成此項工作了，請看網站：http://delphi-jedi.org/ ，在網站中下載 JNI-JEDI.zip ，解出來後，將pas文件放在我們要創建的工程的源文件一塊就可以了。
好，下面準備進入主題。
一、先介紹 JAVA 調用 DELPHI 的過程
1、創建一個 JavaCallDelphi.java，文件的內容：
public class JavaCallDelphi {
static {
System.loadLibrary("JavaCallDelphi");
}
public native void sayHello(String s);
public native String echo(String s);
public native void showForm(String s);
public static void main(String[] args) {
JavaCallDelphi jc = new JavaCallDelphi();
System.out.println("java say: echo() returned:"+jc.echo("華夏上下午千年") );
jc.sayHello("橙子");
jc.showForm("華夏上下午千年");
}
}
為了簡單，這裏就不創建“包”了。我們將這個 class 保存成無 BOM 的 UTF-8 格式文件。再用下面這個命令行進行編譯：
javac -encoding utf-8 JavaCallDelphi.java
這個 class 現在是不能執行的，因為還沒有 JavaCallDelphi.dll 。
2、創建 Delphi 的庫工程
先提一下JAVA的類和方法的命名和DELPHI中的函數的命名的規律。
在DELPHI中的函數，以Java開頭，用下劃線將Java類的包名、類名和方法名連起來。本例中沒有包名，忽略了。同時，在Win32平台上，此過程的調用方式只能聲明為 stdcall。
例如，Delphi中的方法：
procedure Java_JavaCallDelphi_sayHello(PEnv: PJNIEnv; Obj: JObject; S: jstring); stdcall;
方法中的參數，前兩個是固定的，有什麼用請看後面的 DELPHI 的代碼，不深入講解；後面的參數就是 JAVA 和 DELPHI 之間傳送的參數。JAVA 的數據類型轉換到 DELPHI 的數據類型，在 jni.pas 中有定義。
JavaCallDelphi.dpr 的代碼：
library JavaCallDelphi;
uses windows, SysUtils, Classes, jni, Forms, StdCtrls;
procedure Java_JavaCallDelphi_sayHello(PEnv: PJNIEnv; Obj: JObject; S: jstring); stdcall;
var JVM: TJNIEnv;
begin
JVM:= TJNIEnv.Create(PEnv);
Writeln(‘Delphi say:‘+JVM.UnicodeJStringToString(s)+‘,您好！看到效果了吧。‘);
JVM.Free;
end;
function Java_JavaCallDelphi_echo(PEnv: PJNIEnv; Obj: JObject; arg: JString): JString; stdcall;
var tmpStr, s1: String; JVM: TJNIEnv;
begin
JVM:= TJNIEnv.Create(PEnv);
Write(‘Delphi say:jvm Version :‘);
Write(jvm.MajorVersion); Write(‘.‘);
Write(jvm.MinorVersion);
Writeln(‘‘);
s1:=JVM.UnicodeJStringToString(arg);
tmpStr := ‘傳入的參數是: "‘ + s1 + ‘"。‘;
Writeln(‘Delphi say: parameter is:‘+s1);
Writeln(‘Delphi say: return string:‘+tmpStr);
result := JVM.StringToJString( PChar(UTF8Encode(tmpstr)) );
JVM.Free;
end;
procedure Java_JavaCallDelphi_showForm(PEnv: PJNIEnv; Obj: JObject; arg: JString);stdcall;
var f:TForm; edit: TEdit; tmpStr: String; jvm:TJniEnv;
begin
jvm:=TJniEnv.Create(PEnv);
tmpStr := JVM.UnicodeJStringToString(arg);
f:=TForm.Create(nil);
f.SetBounds(100, 100, 400, 200 );
Edit := TEdit.Create(f);
Edit.Parent := f;
Edit.Show();
Edit.Left := 0;
Edit.Top := 0;
Edit.Width := 390;
edit.Text := ‘Java傳過來的參數是:‘+tmpstr;
f.ShowModal();
freeAndNil(f);
freeAndNil(jvm);
end;
exports
Java_JavaCallDelphi_sayHello, //為函數做引出聲明,這樣才能被調用
Java_JavaCallDelphi_echo,
Java_JavaCallDelphi_showForm
;
begin
end.
準備做命令行編譯，別忘記jni.pas和jni_md.inc放在一塊，編譯命令：
dcc32 /B JavaCallDelphi.dpr
3、執行、測試
將這幾個命令行的編譯做成一個批處理文件：
@ECHO OFF
rem java的執行的參數. 根據實際的環境,修改參數中的編碼名稱/語言名稱/地區名稱
rem 編碼名稱/語言名稱/地區名稱, 要和操作系統相對應,否則會出現亂碼.
SET PA=-Dclient.encoding.override=big5 -Dfile.encoding=big5 -Duser.language=zh -Duser.region=TW
rem jre所在的路徑,像 JAVA_HOME 一樣指向安裝的目錄
SET JRE_HOME=C:sdk/jdk1.5.0_15jre
SET PATH=%PATH%;C:/Program Files/borland/Delphi7/Bin
SET PATH=%PATH%;%JRE_HOME%/bin/client
REM 編譯delphi的工程
dcc32 /B JavaCallDelphi.dpr
rem java 的編譯命令行
javac -encoding big5 JavaCallDelphi.java
echo.
rem 執行demo
java %PA% JavaCallDelphi
————————————————
版权声明：本文为CSDN博主「cangwu_lee」的原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/cangwu_lee/java/article/details/2211517
转：Java JNI 和 Delphi 相互調用（1）-JAVA調用DELPHI
标签：classes free tostring cli jvm utf8 ted width jni
原文地址：https://www.cnblogs.com/timba1322/p/12678515.html
