-----------------------------------------------------------
    public class Class1
    {
        /// <summary>
        /// 初始化参数,读取配置文件.返回值: 0成功  -1失败
        /// </summary>
        /// <returns></returns>
        [DllImport("CintF.dll")]
        public static extern int InitParam();    } 这个是我自己写的,下面的我看不懂delphi的文句,不知道怎么写了,请大侠帮写下
----------------------------------------------------------
//初始化参数,读取配置文件
//返回值: 0成功  -1失败
function InitParam:Integer;stdcall;//读卡号
//aSerialNo:出口参数,卡应用序列号
//aBalance:出口参数,卡钱包余额
//返回值:0成功 -1未知错误 -2未初始化参数 -3打开读卡器端口失败 -4读卡号失败 -5设置读卡参数失败 -6获取余额失败
function ReadSerialNoEx(var aSerialNo:PChar; var aBalance:Cardinal):Integer;stdcall;//扣费交易
//aDate:交易时间 格式YYYYMMDDHHMMSS
//aMoney:扣费金额,单位分
//AConsInfo:出口参数,交易信息,下账时需要传入此参数
//返回值:0成功 -1未知错误 -2未初始化参数 -3打开读卡器端口失败 -4扣费失败
function ConsBusinessEx(aDate:PChar; aMoney:Cardinal; var AConsInfo:TConsInfo):Integer;stdcall;//下账交易(提交扣费交易流水记录)
//aSerialNo:卡应用序列号
//aDate:交易时间 格式YYYYMMDDHHMMSS
//aMoney:扣费金额,单位分
//AConsInfo:交易信息,执行ConsBusinessEx成功后获取此参数
//返回值:0成功 -1无效卡号(无对应账户) -2:数据库连接失败 -3传入扣费交易参数有误 -4下账操作失败 -9未知错误
function InPutFlowEx(aSerialNo:PChar; aDate:PChar; aMoney:Cardinal; AConsInfo:TConsInfo):Integer;stdcall;//获取钱包余额
// aAppid: 钱包索引号
// aBalance: 出口参数,钱包余额
//返回值:0成功
function GetBalanceEx(aAppid:Byte; var aBalance:Cardinal):Integer;stdcall;//获取钱包余额
// aAppid: 钱包索引号
// aSerialNo: 卡号
//AAmount:交易金额
//返回值:0成功
function DepositSaving(aAppid:Byte; aSerialNo:PByteArray; AAmount:Cardinal):Integer;stdcall;//释放参数缓存
function ReleaseParam:Integer;