Hello, i am using Powerbuilder 12.1 build 6639 on Windows 7 Pro 64 bit. //constant string CLASSPATH = "C:\Eigene Dateien\pb105\kmt" string classpath = ".;C:\Eigene Dateien\pb105\kmt" //string classpath = "C:\Program Files (x86)\Java\jre1.8.0_66\bin\client" //string classpath = "" boolean lb_err long ll_rc string ls_msg, ls_cp, ls_version JavaVM ln_java_vm EJBConnection ln_ejb_conn Simple ln_hw do ln_java_vm = create JavaVM ll_rc = ln_java_vm.createjavavm( CLASSPATH, true) if ll_rc < 0 then Messagebox(gs_app_tit, "createjavavm: " + string(ll_rc)) lb_err = true exit end if ls_cp = ln_java_vm.getjavaclasspath() ls_version = ln_java_vm.getjavaVMversion() Messagebox(gs_app_tit, "java version: " + string(ls_version) + " class_path: " + ls_cp) // createjavainstance via JavaVM Class // ll_rc = ln_java_vm.Createjavainstance(ln_hw, "Simple") //-> PB crashes here // createjavainstance via EJBConnection Class (deprecated!) ln_ejb_conn = create EJBConnection ll_rc = ln_ejb_conn.createjavainstance(ln_hw, "simple") // return value is -1 (failed to create java class) Messagebox(gs_app_tit, "createjavainstance:" + string(ll_rc)) try Messagebox("", "before sayHello") ls_msg = ln_hw.sayHello() Messagebox("", "3") catch (CreateException ce) Messagebox(gs_app_tit, "Create Exception: " + ce.getMessage()) catch (Throwable t) Messagebox(gs_app_tit, "Other Exception: " + t.getMessage()) end try Messagebox("", ls_msg) loop while 1 = 0 destroy ln_java_vm return 1
↧