上周在解决上海二次开发的问题时,碰到了如下问题:
DELPHI7 函数原型
function SetDoorGuardPeriods(hPort: THandle; Fun: Byte; ts: array of TDoorTimePeriods;Count:Integer; week: Byte=0): Boolean;stdcall;
VC6 定义原型
typedef BOOL (PASCAL *ECSetDoorGuardPeriods)(HANDLE hPort, byte Fun,TDoorTimePeriods *ts,const int Count, const byte week=0);
BOOL bSuc = SetDoorGuardPeriods(m_hComHandle,Fun,ts,Count,week);
结果:样本 Vc6调用 :SetDoorGuardPeriods(1900,1,ts[1],1,0)
DLL传入 :1900,1,ts[2],13012481,96
问题 1 count \week两个数据不对
2 ts的长度与count相关 len(ts) = count+1
虽然找了很多的资料,但都不能很好的解释上叙问题,最后是在
http://heng-feng.com.cn/programmer/mixprogramme/data3480764.html帮助下,
将VC定义修改为:
typedef BOOL (PASCAL *ECSetDoorGuardPeriods)(HANDLE hPort, byte Fun,TDoorTimePeriods &ts,int cnt, int Count, byte week);
这样的话,就能正常调用了。
问题出现的原因是DLL在取参数栈时,因为ARRORY的问题,多取了一个COUNT参数,导致此问题。
转载于:https://www.cnblogs.com/gxj760998/archive/2008/04/28/1173971.html