delphi java jni 互通_转：Java JNI 和 Delphi 相互調用（2）-Delphi調用Java

前幾天寫了  Java JNI 和 Delphi 相互調用(1)-JAVA調用DELPHI ，有朋友要求儘快寫“Delphi調用Java”，現在有空，就寫下去。

DELPHI 調用 JAVA 的方法，作為入門也不算複雜，只是創建JVM的環境麻煩一些。進行的順序是：

a.建立 JVM 環境

b.創建 JAVA 環境實例

c.找到 class

d.找到方法

e.調用方法

f.結束

如何得到 DELPHI 的 JNI 定義，請看前一篇中的說明。直接進入主題。

二、介紹 DELPHI 調用 JAVA 的方法

1、創建一個 DelphiCallJava.java，文件的內容：

public class DelphiCallJava {

public static String dTest(String args){

if(args==null){

return "您沒有輸入參數.";

}else {

return "您輸入的參數是:"+args;

}

}

}

這個類太簡單了，沒什麼可說的。將這個 class 保存成無 BOM 的 UTF-8 格式文件。同樣，從簡單起見，也是沒有創建包的。再用下面這個命令行進行編譯：

javac -encoding utf-8 DelphiCallJava.java

2、創建 Delphi 的EXE工程

JAVA 的數據類型轉換到 DELPHI 的數據類型，請看 jni.pas 中的定義。

DelphiCallJava.dpr 的代碼：

program DelphiCallJava;

{$APPTYPE CONSOLE}

uses Windows, SysUtils, Variants, Classes, jni;

const Handle=0;

const strParam=‘傳給java的參數‘;

label lexit;

var    jvm: Jni.PJavaVM;

tenv: Jni.TJNIEnv;

cid: Jni.JClass;

mid: Jni.JMethodID;

tmp: Jni.JString;

vm_args: Jni.JavaVMInitArgs;                       //建立 JVM 的參數

options: array[0..2] of Jni.JavaVMOption;

env: Jni.PJNIEnv;

rec: Integer;

begin

options[0].optionString := ‘-Djava.compiler=NONE‘;

options[1].optionString := ‘-Djava.class.path=.‘;   // Java 工程路徑, ‘.‘ 表示黨前路徑

options[2].optionString := ‘-verbose:jni‘;

JNI_GetDefaultJavaVMInitArgs(@vm_args);

vm_args.version := Jni.JNI_VERSION_1_4;

vm_args.options := @options;

vm_args.nOptions := 3;

vm_args.ignoreUnrecognized := Jni.JNI_TRUE;

rec := Jni.JNI_CreateJavaVM(@jvm, @env, @vm_args);   //建立JVM

if (rec = JNI_ERR ) then begin

Windows.MessageBox(Handle, ‘create JVM exception.‘, ’DelphiCallJava‘, Windows.MB_OK);

exit;

end;

tenv := TJNIEnv.Create(env);

if tenv=nil then Begin

Windows.MessageBox(Handle, ‘Please load jvm first.‘, ’DelphiCallJava‘, Windows.MB_OK);

Exit;

End;

//取得 DelphiCallJava 的類ID, 如果有‘包‘,也指定, .

cid := tenv.FindClass(‘DelphiCallJava‘);

if (cid = nil) then begin

Windows.MessageBox(Handle, ‘找不到類:DelphiCallJava‘, ’DelphiCallJava‘, Windows.MB_OK);

goto lexit;

end;

//取得方法ID

mid := tenv.GetStaticMethodID(cid, ‘dTest‘, ‘(Ljava/lang/String;)Ljava/lang/String;‘);

if (tenv.ExceptionOccurred()<>nil) then begin

Windows.MessageBox(Handle, ‘找不到方法(dTest)‘, ’DelphiCallJava‘, Windows.MB_OK);

goto lexit;

end;

//將 string 轉換成 java string

tmp := tenv.StringToJString(PChar(UTF8Encode(strParam)));

//用類ID和方法ID調用 JAVA 方法

tmp := tenv.CallStaticObjectMethod(cid, mid, [tmp]);

if (tenv.ExceptionOccurred()<>nil) then begin

Windows.MessageBox(Handle, ‘調用方法(dTest)失敗!‘, ’DelphiCallJava‘, Windows.MB_OK);

goto lexit;

end;

//顯示結果

writeLn( ‘‘  );

writeLn( ‘傳給java的參數是:‘ +strParam );

writeLn( ‘java返回:‘+UTF8Decode(tenv.JStringToString(tmp))  );

lexit:

if tenv<>nil then begin

freeAndNil(tenv);

jvm^.DestroyJavaVM(jvm); //釋放JVM資源

End;

end.

準備命令行編譯，別忘記 jni.pas 和 jni_md.inc 放在一塊，編譯命令：

dcc32 /B DelphiCallJava.dpr

3、執行、測試

將這幾個命令行的編譯做成一個批處理文件：

@ECHO OFF

rem  語言編碼名稱, 要和操作系統相對應,否則會出現亂碼.

rem jre所在的路徑,像 JAVA_HOME 一樣指向安裝的目錄

SET JRE_HOME=C:sdk/jdk1.5.0_15/jre

SET PATH=%PATH%;C:/Program Files/borland/Delphi7/Bin

REM  jvm.dll 一定要在 PATH 所指的路徑下, 因為 Delphi 要調用 jvm.dll

SET PATH=%PATH%;%JRE_HOME%/bin/client

rem java 的編譯命令行

javac -encoding big5 DelphiCallJava.java

REM 編譯delphi的工程

dcc32 /B DelphiCallJava.dpr

rem 執行demo

IF EXIST DelphiCallJava.exe call DelphiCallJava.exe

PAUSE

————————————————

版权声明：本文为CSDN博主「cangwu_lee」的原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接及本声明。

原文链接：https://blog.csdn.net/cangwu_lee/java/article/details/2242529

原文：https://www.cnblogs.com/timba1322/p/12678444.html