解决方案 »
- delphi datetimepicker 设置时间成2010-10-10
- 求助--公司设备管理维护数据库表设计????
- 操作文档的问题
- 有关控件的一个事件.
- [统计]大家做软件(例如进销存、物资管理)时录入单、打印时,都用什么控件啊?
- 高分求救!!!四个表的复合查询。谁能解决~!?
- 一个先求和后用quickrep打出来的问题。
- C/S結構﹐有關連接Server2000的問題﹐分別用ODBC和BDE來連接﹐出現以下問題﹕
- 有关 Delphi 6 的 TValueListEditor 组件问题。
- 超级大送分: ado+dbf5 的连接字符串怎么写?
- 请问通过句柄如何得到控件的地址
- dbchart显示数据库表的问题
procedure TFrmMain.LoadVM;
var
Errcode: Integer;
VM_args: JavaVMInitArgs;
Options: array[0..10] of JavaVMOption;
begin
try
// 创建虚拟机对象,并传入jvm.DLL接口路径
FJavaVM := TJavaVM.Create(JNI_VERSION_1_6, 'jre6\bin\client\jvm.dll'); FillChar(Options, SizeOf(Options), #0);
// 设置jar包或类的搜索路径,多个jar使用分号隔开
Options[0].optionString := '-Djava.class.path=.RSA.jar;Tools.jar'; // // 声明使用jdk1.6版本
VM_Args.version := JNI_VERSION_1_6;
VM_Args.options := @Options;
VM_Args.nOptions := 1;
VM_Args.ignoreUnrecognized := False; // 加载虚拟机
ErrCode := FJavaVM.LoadVM(VM_Args);
if ErrCode < 0 then
begin
// Loading the VM more than once will cause this error
if Errcode = JNI_EEXIST then
MessageDlg('Java VM has already been loaded. Only one VM can be loaded.', mtError, [mbOK], 0)
else
ShowMessageFmt('Error creating JavaVM, code = %d', [Errcode]);
Exit;
end; // Create the Env class
FJNIEnv := TJNIEnv.Create(FJavaVM.Env);
except
on E: Exception do
begin
ShowMessage('Error: ' + E.Message);
Exit;
end;
end;
end;
没有定义阿
网上最新版的只定义了 JNI_VERSION_1_4 ?