最近学校要上一卡通项目了，中标单位是广东智慧电子的智慧一卡通信息管理系统，由于要和原有的各种应用系统进行无缝对接，故必须针对一卡通进行接 口进行二次开发。
    因为原有的很多应用系统是用Delphi开发的，因此，为了方便开发我把一卡通的VC++接口封装为Delphi的模 式。在封装的过程中有几个细节需要特别注意：
    1.接口函数必须采用stdcall调用模式；
    2.必须把C++中的 char *类型转换为pchar；
    3.int &转换为pointer类型，在调用时先定义一个Integer类型的变量如iMoney，用@iMoney取得返回的整型数值；
    4. 返回值很多都是定长的字符串数据，应注意删除不必要的前后空格。

unit u999CardIntf; //三九智慧一卡通接口的Delphi封装  by xieyunc 2010.5.27 interface //1）  打开串口 function IniCom(ComPort,BaudRate:Integer):Integer;stdcall;         external \'SmartCom411SFJ.dll\' name \'IniCom\'; //2）  关闭串口 function CloseCom(ComPort:Integer):Integer;stdcall;         external \'SmartCom411SFJ.dll\' name \'CloseCom\'; //3）  读取个人基本信息 function ReadPersonalInfo(ComPort:Integer;Name,buffer:PChar):Integer;stdcall;         external \'SmartCom411SFJ.dll\' name \'ReadPersonalInfo\'; //4）  读取卡基本信息 function ReadCardInfo(ComPort:Integer;CarNum,CarNum1,CardID:PChar;                       CardType:Pointer;ExpireDay:PChar):Integer;stdcall;         external \'SmartCom411SFJ.dll\' name \'ReadCardInfo\'; //5）  读电子钱包信息 function ReadCard(ComPort:Integer;CarNum,CarNum1,Password,CardID,Name:PChar;                   Money:Pointer):Integer;stdcall;         external \'SmartCom411SFJ.dll\' name \'ReadCard\'; //6）  读电子钱包信息并声音提示刷卡 function ReadCardBeep(ComPort:Integer;CarNum,CarNum1,Password,CardID,Name:PChar;                       Money:Pointer):Integer;stdcall;         external \'SmartCom411SFJ.dll\' name \'ReadCardBeep\'; //7）  扣卡金额 function DecCard (ComPort:Integer;CardNum:PChar;DecMoney:Pointer):Integer;stdcall;         external \'SmartCom411SFJ.dll\' name \'DecCard\'; //8）  显示字符串 function Display(ComPort:Integer;XSbuffer:PChar;DelayTime:Integer):Integer;stdcall;         external \'SmartCom411SFJ.dll\' name \'Display\'; //9）  用户显示金额 function DisplayMoney(ComPort:Integer;Money:Pointer):Integer;stdcall;         external \'SmartCom411SFJ.dll\' name \'DisplayMoney\'; //10）  读用户自定义信息(如借书证号) function ReadLiberyNum(ComPort:Integer;ThirdInfo:PChar):Integer;stdcall;         external \'SmartCom411SFJ.dll\' name \'ReadLiberyNum\'; implementation end.
测试界面：

全 部文档：