急用过二代身份证证阅读器接口的，请进！解决方案

急，用过二代身份证证阅读器接口的，请进！
阅读器的实例是C写的，我转成Delphi后，调用SDT_ReadBaseMsg时就会出错，哪位如做过的，请指点一下
C里面的声明
int SDT_ReadBaseMsg ( int iPort， 
  unsigned char * pucCHMsg， 
  unsigned int * puiCHMsgLen， 
  unsigned char * pucPHMsg， 
  unsigned int * puiPHMsgLen, 
  int iIfOpen );
我Delphi里是这么写的
function SDT_ReadBaseMsg(iPort:smallint;
  pucCHMsg:array of char;
  puiCHMsgLen:array of smallint;
  pucPHMsg:array of char;
  puiPHMsgLen:array of smallint;
  iIfOpen:smallint):smallint;stdcall;external 'sdtapi.dll';

[解决办法]

Delphi(Pascal) code

function SDT_ReadBaseMsg(iPort:Integer;                         pucCHMsg:PChar;                         puiCHMsgLen:PInteger;                         pucPHMsg:PChar;                         puiPHMsgLen:PInteger;                         iIfOpen:Integer):Integer;stdcall;external  'sdtapi.dll';
[解决办法]

function SDT_ReadBaseMsg(iPort:Integer;
                        pucCHMsg:PChar;
                        var puiCHMsgLen:Integer;  //此处定义成变参更方便一些
                        pucPHMsg:PChar;
                        var puiPHMsgLen:Integer;
                        iIfOpen:Integer):Integer;stdcall;external  'sdtapi.dll';