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会乱码。