DELPHI自定义结构体数组DLL传递

上周在解决上海二次开发的问题时，碰到了如下问题：

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参数，导致此问题。