调用DELPHI的动态库需要传递一个无类型指针(Pointer),出现非法指针操作错误，请兄弟们帮忙看看代码。

[chimpyu]

delphi中定义如下：

function RecordData(pData: Pointer) : Boolean;stdcall;


VC中如下：

struct _RecordEventData {
BYTE testId;
DWORD alarmId;
WORD wHour;
WORD wMinute;
WORD wSecond;
WORD wMillSecond;
BYTE pointId;
} recordEventData;

typedef void (PASCAL * RecordData)(void *);

HINSTANCE hDll = LoadLibrary("TestMonitor.dll");
if(!hDll)
{
::MessageBox(NULL,"加载动态链接库失败！","Notice",MB_OK | MB_ICONWARNING);
return ;
}
RecordData hRecordData = (RecordData)::GetProcAddress(hDll,"RecordData");
if(!hRecordData)
{
::MessageBox(NULL,"获取RecordData函数地址错误！","Notice",MB_ICONWARNING);
return ;
}
RecordData (&recordData);

[dzqsuper]

错误代码是什么?

[flyelf]

typedef __stdcall (BOOL *RecordData)(void*);

RecordData (&recordData); ??
may be
hRecordData(&recordData);

[chimpyu]

to flyelf(空谷清音):

不好意思我写错了，是hRecordData(&recordData);
宏定义PASCAL跟_stdcall一样的。

[chimpyu]

to dzqsuper(数风流人物－还看CSDN(丁轲)) :
得不到错误码，运行VC程序时报告未知软件错误。
在DELPHI中跟踪无法定位，报告非法指针操作。

[chimpyu]

已解决，问题很弱智，原因是我在调用动态库的时候没加绝对路径，同时我在把DELPHI生成的动态库拷贝了一个在VC目录中造成程序版本更新不同步。
吸取教训。