废话少说，如何使用KBMMW 做个过渡，使IOS 可以使用JAVA 的服务？
其实KBMMW 本身就要java service 的服务，但是为了把这个问题说清楚，我手工做一个例子。
首先，要使用JAVA 服务，JRE 是肯定要安装的。没有安装的话，自己去java.sun.com 去下载。
安装完毕， 命令行上运行 JAVA ，出现下图说明安装成功。
在服务器上首先祭起来JVM(JAVA 虚拟机)
function GetDllName: string; var Registry: TRegistry; Version: string; begin Result := 'jvm.dll'; Registry := TRegistry.Create(KEY_READ); try Registry.RootKey := HKEY_LOCAL_MACHINE; if Registry.OpenKey('\SOFTWARE\JavaSoft\Java Runtime Environment', False) then begin Version := Registry.ReadString('CurrentVersion'); if Version <> '' then if Registry.OpenKey(Version, False) then Result := Registry.ReadString('RuntimeLib'); end; finally Registry.Free; end; end; procedure TForm1.Button3Click(Sender: TObject); var I: Integer; WebResult,WebMessage: String; n,e:integer; VM_args:JavaVMInitArgs; Options:array[0..20] of JavaVMOption; Methods:array [0..0] of JNINativeMethod; OptCnt:integer; j_MainClass:JClass; LibraryFileName:string; Mid: JMethodID; FObj,tmpobj: JObject; FInit : JMethodID; mypath:string; myclasspath:ansistring; Env:PJNIEnv; JNIEnv:TJNIEnv; const classpath='.;'; JIT=True; begin if G_javavm<>nil then begin meminfo.Lines.Add('JVM already created !'); exit; end; n:=JNI_VERSION_1_4; LibraryFileName:= GetDllName; FillChar(Options,SizeOf(Options),#0); OptCnt:=0; mypath := g_RootPath; myclasspath:=classpath+mypath+'ws\ws.jar'; Options[OptCnt].optionString:=PAnsiChar('-Djava.class.path='+ myclasspath); inc(OptCnt); if not JIT then begin Options[OptCnt].optionString:=PAnsiChar('-Djava.compiler=NONE'); inc(OptCnt); end; VM_args.version:=n; VM_args.options:= @Options ;//:= @Options; VM_args.nOptions:=OptCnt; VM_args.ignoreUnrecognized:=1; g_JavaVM := TJavaVM.Create(n, LibraryFileName); e := G_JavaVM.LoadVM(VM_args); if e<0 then begin meminfo.Lines.Add ('Error loading JavaVM via JNI 1.4+. ErrorCode='+inttostr(e)); exit; end; g_JNIEnv := TJNIEnv.Create(g_JavaVM.Env); meminfo.Lines.Add('JVM create ok!'); end;
当然了，文件里面必须引用 JNI 单元。这个是kbmmw 自带的（此文件原来是JEDI 翻译jni.h 得，后来kbmmw 作者修改了，可以在新版delphi 中编译）；
安装完虚拟机，就可以在delphi 中使用java 的class 了
下面就是一个简单的封装java 中hashmap 的例子
1 Thashmap = class 2 private 3 FJNIEnv: TJNIEnv; 4 FCls: JClass; 5 FObj: JObject; 6 FInit: JMethodID; 7 FPut: JMethodID; 8 FGet: JMethodID; 9 public 10 constructor Create(JNIEnv:TJNIEnv;createobj:boolean=True); 11 procedure put(ID,Text: string); 12 Function get(ID: string):string; 13 property hashmap: jobject read FObj write FObj; 14 end; 15 { Thashmap } 16 17 constructor Thashmap.Create(JNIEnv: TJNIEnv; createobj: boolean); 18 begin 19 inherited Create; 20 FJNIEnv:=JNIEnv; 21 if FJNIEnv=nil then 22 raise Exception.Create('Please create JNIEnv'); 23 24 FCls := FJNIEnv.FindClass('java/util/HashMap'); 25 if FCls=nil then 26 raise Exception.Create('can''t find class HashMap'); 27 28 FInit := FJNIEnv.GetMethodID(FCls, '<init>', '()V'); 29 if FInit=nil then 30 raise Exception.Create('can''t find init in class HashMap'); 31 32 Fput := FJNIEnv.GetMethodID(FCls, 'put', '(Ljava/lang/Object;Ljava/lang/Object;)Ljava/lang/Object;'); 33 34 if Fput=nil then 35 raise Exception.Create('can''t find put in class HashMap'); 36 37 Fget := FJNIEnv.GetMethodID(FCls, 'get', '(Ljava/lang/Object;)Ljava/lang/Object;'); 38 39 if Fget=nil then 40 raise Exception.Create('can''t find get in class HashMap'); 41 42 if createobj then 43 begin 44 FObj :=FJNIEnv.NewObjectA(FCls, FInit, nil); 45 46 if Fobj=nil then 47 raise Exception.Create('can''t create a HashMap'); 48 end; 49 end; 50 51 function Thashmap.get(ID: string): string; 52 var 53 rets:Jstring; 54 begin 55 rets:=FJNIEnv.CallObjectMethod( FObj,Fget,[FJNIEnv.StringToJString(id)]) ; 56 57 result:=FJNIEnv.JStringToString(rets); 58 end; 59 60 procedure Thashmap.put(ID, Text: string); 61 begin 62 FJNIEnv.CallObjectMethod( FObj,Fput,[FJNIEnv.StringToJString(id),FJNIEnv.StringToJString(text)]); 63 end;
这样你就可以在delphi 中使用hashmap 了。
if myhashmap<>nil then begin memo1.Lines.Add('hashmap already create!!') ; exit; end; myhashmap :=Thashmap.Create(JNIEnv); memo1.Lines.Add('HashMap create ok!!'); myhashmap.put('ROW_ID', ROW_ID); myhashmap.put('BILL_ID', BILL_ID); myhashmap.put('AUDIT_NODE', AUDIT_NODE); myhashmap.put('AUDIT_STATUS', AUDIT_STATUS); memo1.Lines.Add('put all data into hashmap'); memo1.Lines.Add('ROW_ID：'+ myhashmap.get('ROW_ID')); memo1.Lines.Add('FLOW_ID：'+ myhashmap.get('FLOW_ID'));
那么由于kbmmw 是服务器端，肯定要考虑到多线程问题。
那么要在kbmmw servive 里面调用java 服务就要稍微处理一下。
示例如下：
function Tmysrv.JavaHashMapCheck(ClientIdent: TkbmMWClientIdentity; const Args: array of Variant): Variant; var I: Integer; ROW_ID,BILL_ID: String; WebResult,WebMessage: String; n,e:integer; FObj,tmpobj, errorString: JObject; rets:Jstring; myhashmap:Thashmap; Env:PJNIEnv; JNIEnv:TJNIEnv; throwable:JThrowable; throwableClass:JClass; begin Result := ''; ROW_ID := Args[0]; BILL_ID := Args[1]; G_JavaVM.JavaVM^.AttachCurrentThread(G_JavaVM.JavaVM,@Env,nil); try JNIEnv:=TJNIEnv.Create(Env); if myhashmap<>nil then begin Result := '0'; exit; end; myhashmap :=Thashmap.Create(JNIEnv); myhashmap.put('ROW_ID', ROW_ID); myhashmap.put('BILL_ID', BILL_ID); result:='return='+myhashmap.get('ROW_ID'); throwable:=JNIEnv.ExceptionOccurred(); if throwable<>nil then begin try JNIEnv.ExceptionDescribe; throwableClass:=JNIEnv.GetObjectClass(throwable); if throwableClass<>nil then begin mid:=JNIEnv.GetMethodID(throwableClass,'toString','()Ljava/lang/String;'); if mid<>nil then begin errorString:=JNIEnv.CallObjectMethod(throwable,mid,[]); if errorString<>nil then kbmMWRaiseException(KBMMW_ERR_SERVICE_JAVA_EXCEPTION,string(JNIEnv.JStringToString(errorString))); end; end; finally JNIEnv.ExceptionClear; end; end; finally myhashmap.Free; myhashmap := nil; tmphashmap.Free; tmphashmap := nil; myObjectUtil.Free; myObjectUtil := nil; JNIEnv.Free; G_JavaVM.JavaVM^.DetachCurrentThread(G_JavaVM.JavaVM); end; end;
剩下的就是你自己处理了。
ios 里面按照老规矩调用kbmmw 服务就行了。
