delphi 调用 java

1.设置JVM路径

FJavaVM := TJavaVM.Create(JNI_VERSION_1_6,
     'C:\Program Files\Java\jre6\bin\server\jvm.dll');
2.设置jar包或类的搜索路径

Options[0].optionString := '-Djava.class.path=.;D:\Sample1.jar;./jar/RSA.jar';

3.加载虚拟机
ErrCode := FJavaVM.LoadVM(JVM_args);

4.Create the Env class
FJNIEnv := TJNIEnv.Create(FJavaVM.Env);