Delphi 中调用拨号的API函数,总是出现错误“检测到一个不正确的结构大小”。
下面是函数的声明
function RasGetEntryPropertiesW(
lpszPhonebook: PChar;
lpszEntry: PChar;
lpRasEntry: PRASENTRY; //保存参数缓冲区
lpdwEntryInfoSize: LPDWORD; //参数缓冲区大小
lpbDeviceInfo: PBYTE;
lpdwDeviceInfoSize: LPDWORD): DWORD; stdcall;
function RasGetEntryPropertiesW; external rasapi32 name 'RasGetEntryPropertiesW'; //这里是实现
开始以为是缓冲区的结构设置的不正确,调整了很多次,这个缓冲区有很多的版本,这个函数在不断的升级,参数也在不断的增多,后来使用了最完整的版本还是不行。
最后发现问题出在了 stdcall; 上面,最开始没有增加 stdcall;,导致参数传递的顺序错误,自然缓冲区也就无法正确识别。
另外 lpRasEntry 这个缓冲区的大小是5680字节(采用的是unicode编码),如果不是这个数,也会出现“检测到一个不正确的结构大小”,可以将 lpRasEntry 设置为空,lpdwEntryInfoSize 设置为0, lpszEntry 为空,调用的时候lpdwEntryInfoSize会返回需要的缓冲区大小。