delphi调用java代码

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls,jni;type  TForm1 = class(TForm)    Button1: TButton;    Edit1: TEdit;    Label1: TLabel;    procedure Button1Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);var  vm_args: Jni.JavaVMInitArgs;  options: array[0..2] of Jni.JavaVMOption;  jvm: Jni.PJavaVM;  env: Jni.PJNIEnv;  rec: Integer;  cid: Jni.JClass;  mid: Jni.JMethodID;  tmp: Jni.JString;  tenv: Jni.TJNIEnv;begin  options[0].optionString := '-Djava.compiler=NONE';  options[1].optionString := '-Djava.class.path=.;C:\Documents and Settings\Administrator\桌面\1111'; // options[1].optionString := '-Djava.class.path=.;C:\Documents and Settings\Administrator\桌面\1111' ;{  options[1].optionString := '-Djava.class.path=.;c:\\;.\\CDemo\\bin;.\\lib\\Aa1.jar;.\\lib\\antlr-2.7.6.jar;.\\lib\\asm.jar;.\\lib\\asm-attrs.jar;.\\lib\\cglib-'+                             '2.1.3.jar;.\\lib\\charsets.jar;.\\lib\\commons-beanutils-1.7.0.jar;.\\lib\\commons-codec-1.3.jar;.\\lib\\commons-collections-2.1.1.jar;.\\lib\\commons-collections-'+                             '3.2.jar;.\\lib\\commons-dbcp-1.2.1.jar;.\\lib\\commons-httpclient-3.0.jar;.\\lib\\commons-io-1.3.2.jar;.\\lib\\commons-lang-2.0.jar;.\\lib\\commons-'+                             'logging.jar;.\\lib\\commons-logging-1.0.4.jar;.\\lib\\commons-pool-1.2.jar;.\\lib\\dnsns.jar;.\\lib\\dom4j-1.6.1.jar;.\\lib\\ehcache-1.2.3.jar;.\\lib\\ejb3-'+                             'persistence.jar;.\\lib\\ezmorph-1.0.5.jar;.\\lib\\freemarker-2.3.8.jar;.\\lib\\hibernate3.jar;.\\lib\\hibernate-annotations.jar;.\\lib\\hibernate-commons-'+                             'annotations.jar;.\\lib\\hibernate-entitymanager.jar;.\\lib\\hibernate-validator.jar;.\\lib\\jaas.jar;.\\lib\\jacob.jar;.\\lib\\javassist.jar;.\\lib\\jaxen-1.1-beta-'+                             '7.jar;.\\lib\\jboss-archive-browsing.jar;.\\lib\\jce.jar;.\\lib\\jdom-1.0.jar;.\\lib\\json-lib-2.3-jdk15.jar;.\\lib\\jsonplugin-0.32.jar;.\\lib\\jsse.jar;.\\lib\\jstl-'+                             '1.2.jar;.\\lib\\jta.jar;.\\lib\\junit.jar;.\\lib\\localedata.jar;.\\lib\\log4j-1.2.11.jar;.\\lib\\log4j-1.2.14.jar;.\\lib\\mysql-connector-java-5.0.8-'+                             'bin.jar;.\\lib\\mysql-connector-java-5.1.10-bin.jar;;.\\lib\\ognl-'+                             '2.6.11.jar;.\\lib\\org.eclipse.swt.win32.win32.x86_3.5.2.v3557f.jar;.\\lib\\pinyin4j-2.5.0.jar;.\\lib\\resources.jar;.\\lib\\rt.jar;.\\lib\\servlet-'+                             'api.jar;.\\lib\\spring.jar;.\\lib\\spring-1.2.6.jar;.\\lib\\struts2-core-2.0.6.jar;.\\lib\\struts2-spring-plugin-'+                             '2.0.6.jar;.\\lib\\sunjce_provider.jar;.\\lib\\sunmscapi.jar;.\\lib\\sunpkcs11.jar;.\\lib\\xbean-2.2.0.jar;.\\lib\\xbean-spring-2.8.jar;.\\lib\\xerces-'+                             '2.6.2.jar;.\\lib\\xml-apis.jar;.\\lib\\xwork-2.0.1.jar';  }  options[2].optionString := '-verbose:jni';  JNI_GetDefaultJavaVMInitArgs(@vm_args);  vm_args.version := Jni.JNI_VERSION_1_4;  vm_args.options := @options;  vm_args.nOptions := 3;  vm_args.ignoreUnrecognized := Jni.JNI_TRUE;  rec := Jni.JNI_CreateJavaVM(@jvm, @env, @vm_args);  if (rec = JNI_ERR ) then begin    Windows.MessageBox(Self.Handle, '不能创建 JVM', 'ERR', Windows.MB_OK);    exit;  end;  tenv := TJNIEnv.Create(env);  cid := tenv.FindClass('HlCheck');  if (cid = nil) then begin    Windows.MessageBox(Self.Handle, '找不到类:T', 'ERR', Windows.MB_OK);    exit;  end;  mid := tenv.GetStaticMethodID(cid, 'dTest', '(Ljava/lang/String;)Ljava/lang/String;');  if (tenv.ExceptionOccurred<>nil) then begin    Windows.MessageBox(Self.Handle, '找不到方法：dTest', 'ERR', Windows.MB_OK);    exit;  end;  tmp := tenv.CallStaticObjectMethod(cid, mid, [edit1.Text]);//参数array of const  if (tenv.ExceptionOccurred()<>nil) then begin    Windows.MessageBox(Self.Handle, '调用方法失败!', 'ERR', Windows.MB_OK);    exit;  end;  Windows.MessageBox(Self.Handle, pchar(tenv.UnicodeJStringToString(tmp)), '成功了', Windows.MB_OK);  tenv.Free();  jvm^.DestroyJavaVM(jvm);//释放JVM资源end;end.