delphi在税务发票上实现二代证接口应用开发

《delphi在税务发票上实现二代证接口应用开发》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、万元（无锡明见科技有限公司，无锡214000）摘要：使用Delphi7.0开发一个二代证阅读机读取接口。该接口调用方便、应用面广，具有一定的推广价值。关键词：Delphi；二代证；程序接口DelphitoAchievetheSecond-generationIDCardInterfaceApplicationDevelopmentontheTaxInvoiceWANYuan（WuxiMinovoCo.,Ltd.，Wuxi214000）Abstract：UsingDelphi7.0todevelopasecond-generationcardreadertoreadin

2、terface.Thisinterfaceiscalledconve－nience,awiderangeofapplications,withacertainspreadvalue.Keywords：Delphi;thesecond-generationIDcard;API前言自从公安部大规模在全国范围内推广第二代居民身份证的换发工作，许多地区二代证换发工作已经进行了很久，为了解决这个问题，产监处也分批购买了不同型号的二代证阅读机，这些二代证阅读机都还没有对二代证读卡开发相应的接口，使开票软件无法支持而没有使用。为此，通过咨询工信部，从工信部数据通信科学技术研究数据所

3、拿到了居民身份证验证安全控制模块国标接口文档及文件sdtapi.dll，在此编写了一个通用的二代证阅读机具读卡接口程序，通过对多款二代证阅读机的测试，凡是内置专用安全模块，采用非接触式IC卡技术，最大感应距离达到50mm的目前市场上各个机具厂商的联机型第二代身份证阅读（验证）机具都可以通用。2系统要求使用本接口的电脑，必须满足下列条件：Windows98，Windows2000Pro，Windows2000Server，WinXP。至少32兆内存（32MBRAMorLarge）r。至少10兆空闲硬盘空间（10MBFreeHardDiskSpaceorLarge）r。至

4、少一个空闲USB口。1aSex:array[0..1]ofChar;aBir:array[0..15]ofChar;aPID:array[0..35]ofChar;end;varUsbno:integer;IFOpen:integer;CardPUCIIN:array[0..255]ofByte;CardPUCSN:array[0..255]ofByte;CardCHMsgLen:integer;CardPHMsgLen:integer;pucCHMsg:array[0..256]ofbyte;pucPHMsg:array[0..1024]ofbyte;//静态调用动

5、态库FunctionSDT_OpenPort(iPort:integer):integer;stdcallex－ternal'SDTAPI.dll';functionSDT_ClosePort(iPortID:integer):integer;stdcallexternal'SDTAPI.DLL'name'SDT_ClosePort';functionSDT_GetSAMStatus(iPortID:integer;iState:inte－ger):integer;stdcallexternal'SDTAPI.DLL'name'SDT_GetSAMStatus';fu

6、nctionSDT_StartFindIDCard(iPort:integer;pucIIN:Pbytearray;iIfOpen:integer):integer;stdcallexternal'SD－TAPI.DLL'name'SDT_StartFindIDCard';functionSDT_SelectIDCard(iPort:integer;pucSN:Pbytear－ray;iIfOpen:integer):integer;stdcallexternal'SDTAPI.DLL'name'SDT_SelectIDCard';functionSDT_ReadBa

7、seMsg(iPort:integer;pucCHMsg:Pbytearray;puiCHMsgLen:PInteger;pucPHMsg:Pbytearray;puiPHMsgLen:PInteger;iIfOpen:integer):integer;stdcallex－ternal'SDTAPI.DLL'name'SDT_ReadBaseMsg';//函数功能：取得应用程序的路径//返回值：绝对路径名functionGetAppPath:string;Delphi程序设计此程序的对外被调用的接口函数只有一个judgeUsbInfo，通过输入USB