delphi 二代身份证阅读器开发 SDT_ReadBaseMsg函数

C++中函数原型：

STDAPI_API int WINAPI SDT_ReadBaseMsg(

int iPort,

unsigned char * pucCHMsg,

unsigned int * puiCHMsgLen,

unsigned char * pucPHMsg,

unsigned int * puiPHMsgLen,

int iIfOpen

);

delphi中对应的函数为：

TSDT_ReadBaseMsg =function(iPort : integer; pucCHMsg : pbytearray ; var puiCHMsgLen : integer; pucPHMsg : pbytearray; var puiPHMsgLen: integer; iIfOpen: integer):integer; stdcall; //读取身份证

使用时定义如下：

pucCHMsg:array[0..511] of byte;//文字信息

pucPHMsg:array[0..1023] of byte;//照片信息

SDT_ReadBaseMsg(prot,@pucCHMsg,puiCHMsgLen,@pucPHMsg,puiPHMsgLen,1);

此处为0时，无法取到数据，为1时可以（虽然前面已经打开过端口了）。