delphi调用C++动态链接库的问题(100)

功能描述：通过参数传入，此函数初始化指定计算机COM 口，为建立基于串口连接做准备。 函数原型： bool SAAT_COMInit(void** pHandle,unsigned char nBusAddr,char *pComNum, int nBaud ) 传入参数： pHandle 为保存打开的端口句柄 nBusAddr 为总线地址 pComNum 打开的 COM 口端口号 nBaud 串口通讯速率 返回值：true：操作成功；false：操作失败。 我这样定义的function SAAT_COMInit(IHandle;nBusAddrchar;pComNumchar;nBaud:Integer):bool;stdcall;external 'RFIDAPI.dll';然后这样调用的procedure TfrmMain.Button2Click(Sender: TObject);var mHandleHandle;begin try if SAAT_COMInit(mHandle,'0','COM1',19200) then begin Memo1.Lines.Add('串口初始化成功... ...'); end else begin Memo1.Lines.Add('串口初始化失败... ...'); end; Finally FreeLibrary(Handle); end; end;提示出错信息为Access violation at address 004032cc in module

function SAAT_COMInit(var pHandle Handle; nBusAddr:char;pComNumchar;nBaud:Integer):bool;stdcall;external 'RFIDAPI.dll';