1177
社区成员
var
jv:TJavaVM;
VM_args:JavaVMInitArgs;
Options:array[0..2] of JavaVMOption;
JNIEnv:TJNIEnv;
Cls:JClass;
Mid:JMethodID;
p1:PChar;
begin
AddEnv('Path','C:\Program Files\Java\jre6\bin;C:\Program Files\Java\jre6\bin\client');
jv:=TJavaVM.Create;
options[0].optionString:='-Djava.compiler=NONE';
options[1].optionString:='-Djava.class.path=.';
options[2].optionString:='-verbose:jni';
VM_args.version:=$00010006;
VM_args.options:=@Options;
VM_args.nOptions:=1;
jv.LoadVM(VM_args);
JNIEnv:=TJNIEnv.Create(jv.Env);
Cls:=JNIEnv.FindClass('JNIOpenCV');//*
// CallMethod();
// Mid := JNIEnv.GetMethodID(Cls, '<init>', '()V');
JNIOpenCV_detectFace(jv.Env,40,40,JNIEnv.StringToJString(PChar(UTF8Encode('haarcascade_frontalface_alt.xml'))),
JNIEnv.StringToJString(PChar(UTF8Encode('lena.jpg'))));