小弟在使用JNI调用JAVA的CLASS的时候,循环自己的话,程序会莫名奇妙的死掉?是什么资源没释放吗?
源代码如下:
iniJVM();
tempParam := '(Ljava/lang/String;Ljava/lang/String;Ljava/lang/String;'
+'Ljava/lang/String;Ljava/lang/String;Ljava/lang/String;'
+'Ljava/lang/String;Ljava/lang/String;)Ljava/lang/String;';
MID := TENV.GetStaticMethodID(CID, 'sendMessage',PChar(tempParam));
if (TENV.ExceptionOccurred<>nil) then
begin
LogWrite('ErrInfo:找不到方法!');
//Continue;
end;
TMP := TENV.StringToJString(PChar(UTF8Encode(tempQuery.FieldByName('MESSAGE_CONTENT').AsString)));
TMP := TENV.CallStaticObjectMethod(CID, MID, [SGIP_GATEWAY_ADDRESS,SGIP_GATEWAY_PORT,SGIP_GATEWAY_USERNAME,SGIP_GATEWAY_PASSWORD,
G_SHORT_NUMBER,SGIP_CHARGE_NUMBER,
tempQuery.FieldByName('MOBILE_NUMBER').AsString,TMP]);
if (TENV.ExceptionOccurred()<>nil) then
begin
LogWrite('ErrInfo:调用方法失败!');
//Continue;
end;
源代码如下:
iniJVM();
tempParam := '(Ljava/lang/String;Ljava/lang/String;Ljava/lang/String;'
+'Ljava/lang/String;Ljava/lang/String;Ljava/lang/String;'
+'Ljava/lang/String;Ljava/lang/String;)Ljava/lang/String;';
MID := TENV.GetStaticMethodID(CID, 'sendMessage',PChar(tempParam));
if (TENV.ExceptionOccurred<>nil) then
begin
LogWrite('ErrInfo:找不到方法!');
//Continue;
end;
TMP := TENV.StringToJString(PChar(UTF8Encode(tempQuery.FieldByName('MESSAGE_CONTENT').AsString)));
TMP := TENV.CallStaticObjectMethod(CID, MID, [SGIP_GATEWAY_ADDRESS,SGIP_GATEWAY_PORT,SGIP_GATEWAY_USERNAME,SGIP_GATEWAY_PASSWORD,
G_SHORT_NUMBER,SGIP_CHARGE_NUMBER,
tempQuery.FieldByName('MOBILE_NUMBER').AsString,TMP]);
if (TENV.ExceptionOccurred()<>nil) then
begin
LogWrite('ErrInfo:调用方法失败!');
//Continue;
end;
解决方案 »
- 如何调用系统指定的打印机
- SQL语句的汇总问题
- 由于分辨率不同解决字体的问题
- 下面这段是动态生成TTabSheet的。生成可以。。但是我怎么按单独把它会一个个关闭呢??按当前的TTabSheet关闭,怎么做?
- 在websnap技术中,当我想按下“保存”按纽时如何跳出一个象showmessage()这样的对话框,询问“是”,“否”,或者检查出哪些不符合数据规
- DbGrid中隔行显示问题,急!
- 想交几个Delphi的朋友,希望共同进步!
- 如何自动把焦点内容全部选定
- 大家一起来讨论讨论delphi6的新特性吧!!高分为了吸引大家的热情,来者有分!!
- 再次请教高手(TEdit)
- 怎么向多个应用程序发送消息
- 如何将sqlserver显示在dbgrid的数据导入到Access问题
delphi调用的java的类,该类是独立的,比如
public class DelphiCallJava {
public static String dTest(String args) {
if (args == null) {
return "您没有输入参数!";
} else {
return "您输入的参数:" + args;
}
}
生成一个类A;==================
但是,当在A类中调用了B类的方法时,再通过delphi调用A类中的方法,能找到类,能找到方法,可调用方法时报错了;请问有没有大侠遇到过这种情况?该例子,在[email protected] 密码:delphi 里《delphi调用java类,包》,请高手看一下
我也在用jni调用java类,跟你请教个问题吧?
java中定义 public static boolean fnCheckKey(String AsKey, String AsYZM)delphi 中
function Java_com_ecdb_core_util_ECThree_fnCheckKey(PEnv: PJNIEnv; Obj: JObject; AsKey, AsYZM: JString): JBoolean;