procedure TForm1.btn1Click(Sender: TObject);
var
jcls : JClass;
strClass : AnsiString;
strMetod : AnsiString;
strSign : AnsiString;
strArg1,strArg2:string;
strResult: AnsiString;
begin
{ 查詢 Java 類名，不用加.class副檔名}
strClass := 'com/test/javafordelphi/JavaClassForDelphiTest';
jcls := FJavaEnv.FindClass(strClass);
//如果不為空
if jcls = nil then
begin
ShowMessage('cant find java class');
Exit;
end;
{ Java 函式名稱、引數型別、引數 }
strMetod := 'goTest'; // 函式名稱
strSign := 'String,String (String)'; // 引數型別，返回值型別
strArg1 := '第一個引數'; // 輸入引數1
strArg2 := '第二個引數'; // 輸入引數2
{ 執行 Java 函式 }
strResult := CallMethod(FJavaEnv, jcls, strMetod, strSign, [strArg1,strArg2], True);
if strResult <> '' then
begin
MessageBox(Handle, PChar(Format('JavaClassForDelphiTest.goTest Result: %s', [strResult])), 'Delphi 10.3 呼叫 Java Class', MB_OK OR MB_ICONINFORMATION);
end;
end;
注意事項：
1、strSign := 'String,String (String)';括號前面是入參的定義，括號內為返回值，這裡
的引數型別為java的引數型別。
2、Java內部字串String用得都是是Unicode編碼，所以Java內部的字串可以說是沒有編碼的，
只有bytes[]有編碼！但是java平臺是有編碼的，編碼為平臺（作業系統）預設編碼，但是對於別
的平臺如資料庫、檔案、網頁（瀏覽器）等，編碼不一樣，在win10下xe版本下定義string對應java
裡面string，如果傳入ansistring會亂碼。