Question

JNI调用delphi写的dll时出错

在做JNI调用delphi的一个参数为结构体的函数（该参数的结构体有三个int型和一个string型数据，该函数的目的是从计算机外接设备上获取数据来填满这个结构体参数）时，我采用的这样的方法：在C++中定义一个结构体，然后把结构体赋值给该函数，然后分别用四个函数来返回这个结构体中的四个值到JAVA端，供java程序使用，现在的问题是如果我用一个定时器来定时运行这个带结构体参数的函数，能运行一会并输出正确值然后报

# An unexpected error has been detected by Java Runtime Environment:
#
# EXCEPTION_ACCESS_VIOLATION (0xc0000005) at pc=0x10001b0d, pid=18612, tid=15552
的错误，如果使用窗体加按钮的形式第一次点击输出一些垃圾值，第二次点击报
# An unexpected error has been detected by Java Runtime Environment:
#
# EXCEPTION_ACCESS_VIOLATION (0xc0000005) at pc=0x03602ee1, pid=19408, tid=19084的错误
C++中的代码是这样的
struct TDeviceEvent
{
int USBBoxNo;
int Channel;
int EventType;
string EventString;
};
TDeviceEvent Device;
typedef bool (__stdcall *getdeviceevent)(TDeviceEvent Device1);
JNIEXPORT jboolean JNICALL Java_JNI_GetDeviceEvent(JNIEnv *env, jobject jo)
{
bool result = 1;
HINSTANCE dllhandle;
dllhandle = LoadLibrary("psusbcore.dll");

getdeviceevent GetDeviceEvent = (getdeviceevent)GetProcAddress(dllhandle, "GetDeviceEvent");
result = GetDeviceEvent(Device);
return result;
}JNIEXPORT jint JNICALL Java_JNI_GetEventBox(JNIEnv *env, jobject jo)
{
return Device.USBBoxNo;
}
JNIEXPORT jint JNICALL Java_JNI_GetEventCh(JNIEnv *, jobject)
{
return Device.Channel;
}
JNIEXPORT jint JNICALL Java_JNI_GetEventType(JNIEnv *, jobject)
{
return Device.EventType;
}
JNIEXPORT jstring JNICALL Java_JNI_GetEventString(JNIEnv *, jobject)
{
return Device.EventString;
}
好几天了一直卡在这里，不知道什么原因，我怀疑是结构体格式对齐或者string类型匹配的问题的问题，但不知道应该如何对齐

Answer 1

……别，C++那个结构体中string都出来了。
基本上是不用指望其他语言可以调用了。
C++本身也不一定就能成功调用这个DLL（除非STL库和编译器一致，并使用同一套堆内存管理算法）

追问

在C++的结构中我试过用char*还是同样的问题，想请教一下是我的代码的问题还是delphi的string类型的问题，我在网上也查到说是delphi中如果用string的话通用性就很差，只有delphi和cbuilder可以调用但我是VC++6.0，不管是delphi的dll中有widestring类型的参数还是有string类型的结构，都无法正确调用，而其他类型的函数就能正确调用，dll可修改

追答

不对，仔细看了你的代码，EventString不是string吗为什么作为jstring可以正确返回（编译没报错？

你C++直接调用delphi的代码，没问题是吗？
如果是，那么问题可能出在java那边。
对于字符串传递，因为字符串并不是一个寄存器或者固定4个字节这样子的变量，
所以它涉及到一个这样的问题，存放字符串的内存在哪里，存放字符串的内存由谁来申请、由谁来释放，用的是哪一套内存管理程序，这样……比较麻烦

我没用过jni，因为根本不会java。不过就我使用C#的经验来说，如果java有这样一种机制，可以在byte数组和string之间转换，那么由C++来返回一个byte数组是最保险的：结构体中的string完全由C++进行内存管理，java的string完全由java进行内存管理，之间数据交换的时候，由java申请一个byte数组，作为参数传入，然后由C++将string复制到这个数组中，这样就很简单地解决了字符串的内存所属问题，……

追问

jstring是java的stringI对应C++中的数据类型，EventString在java端没用，C++直接调delphi的代码没问题，只要不与string类型有关的函数在java端都可以正确返回，这个结构体只能返回一次，且还是一个垃圾值，返回值是string的那个函数在delphi中把返回值改为PCHAR后我的C++代码改为char*报错

追答

我觉得问题可能出在那个 GetSerialNumberpchar……
你要不要申请一个字符串空间，把它的返回值复制到那个空间里再返回看看？
Delphi那边那些函数是什么情况我不知道哇……

追问

您知道delphi中的pchar类型怎么才能正确返回到C++中呢？我在C++中定义一个char*返回类型的函数在定义一个char*类型的返回值想去接受这个delphi中传过来的返回值但是C++中编译通过，java中一使用这个函数就报错，我在C++中应该怎么来接受这个返回值？

追答

你刚才说C++直接调用delphi代码没问题，那我就认为你确认过可以接收数据可以正常显示了
你在c++中定义一个char*然后直接返回给Java，也可行是吗
那就在C++中定义一个char*分配了空间然后把delphi返回的字符串复制过去，问题就完结了。
剩下的就是要注意返回以后，字符串所在的内存归属哪个模块，由哪个模块负责释放
C++、delphi、java这三个语言里面我只用过C++，虽然经常做C++和其他语言的混合使用，但是Java和delphi的内部行为如果我不知道的话，我是没有办法给你什么有用的建议的。

你还是先确认一下，写个C++程序，去调用delphi函数，然后输出获取到的数据，看看输出的数据是不是你所期望的。这里确认完毕以后，再来C++到java的连接。

追问

不好意思忘了说了char*要通过转换代码转换成string类型再return给java才能正确，如果不转换C++编译不过，return要求的是jstring，我返回的是char*，但是int，byte正确返回，我想确定是不是delphi的dll数据类型不匹配的问题，如果是这样我在我的代码中再怎么改可能也没有用？我尝试了网上的多种方法，但只要一用dll里的带string的函数就出runtime的错

追答

字符串传递就是比较麻烦，关键是字符串归属的问题……
先分别搞通了吧，先不要三个一起来，
一个是C++调delphi，确认字符串是不是传过来了，传过来的是不是正常的
然后java调C++，也是一样确认这两个。
都搞通了就可以合在一起。

顺便说一下，VS的调试器，其实是可以拿来调试dll的（单步啊什么的），
只要你C++的dll是用“debug”配置编译出来的，那么你可以直接在代码上下断点，然后java程序跑起来以后，用调试菜单的附加到进程附加到java程序的那个进程上，执行到dll里的代码断点处的时候，一样可以断下来，不过就是单步是无法单步到java的源代码或者delphi的源代码里面去的……

用这样的调试方式，确认一下delphi传过来的是不是正常，然后再来C++传java。
觉得delphi妨害后者的调试，可以先不调用delphi，C++直接传字符串常量/字符数组（字符串指针）给java。既然已经定义返回类型是jstring，那么我觉得jni的库应该能很好解决这个字符串问题才对，你也说你C++直接返回字符串常量是正常的，所以我觉得应该着重跟踪从delphi返回的代码开始那边