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时可以（虽然前面已经打开过端口了）。