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

万元（无锡明见科技有限公司，无锡 214000）摘 要： 使用 Delphi 万元 （无锡明见科技有限公司，无锡 214000） 摘 要： 使用 Delphi 7.0 开发一个二代证阅读机读取接口。该接口调用方便、应用面广，具有一定的推广价值。 关键词： Delphi； 二代证； 程序接口 Delphi to Achieve the Second-generation ID Card Interface Application Development on the Tax Invoice WAN Yuan （Wuxi Minovo Co., Ltd.，Wuxi 214000） Abstract：Using Delphi 7.0 to develop a second-generation card reader to read interface. This interface is called conve－ nience, a wide range of applications, with a certain spread value. Key words：Delphi ; the second-generation ID card ; API 前言 自从公安部大规模在全国范围内推广第二代居民身份证 的换发工作，许多地区二代证换发工作已经进行了很久，为 了解决这个问题，产监处也分批购买了不同型号的二代证阅 读机，这些二代证阅读机都还没有对二代证读卡开发相应的 接口，使开票软件无法支持而没有使用。为此，通过咨询工 信部，从工信部数据通信科学技术研究数据所拿到了居民身 份证验证安全控制模块国标接口文档及文件 sdtapi.dll，在此编 写了一个通用的二代证阅读机具读卡接口程序，通过对多款 二代证阅读机的测试，凡是内置专用安全模块，采用非接触 式 IC 卡技术，最大感应距离达到 50mm 的目前市场上各个机 具厂商的联机型第二代身份证阅读 （验证） 机具都可以通用。 2 系统要求 使用本接口的电脑，必须满足下列条件： Windows 98， Windows 2000 Pro， Windows 2000 Server， Win XP。 至少 32 兆内存 （32MB RAM or Large）r 。 至少 10 兆空闲硬盘空间 （10MB Free Hard Disk Space or Large）r 。 至少一个空闲 USB 口。 1 aSex:array [0..1] of Char; aBir:array [0..15] of Char; aPID:array [0..35] of Char; end; var Usbno:integer; IFOpen:integer; CardPUCIIN:array [0..255] of Byte; CardPUCSN:array [0..255] of Byte; CardCHMsgLen:integer; CardPHMsgLen:integer; pucCHMsg:array [0..256] of byte; pucPHMsg:array [0..1024] of byte; //静态调用动态库 Function SDT_OpenPort (iPort:integer) :integer;stdcall ex－ ternal 'SDTAPI.dll' ; function SDT_ClosePort ( iPortID:integer) :integer;stdcall external 'SDTAPI.DLL' name 'SDT_ClosePort'; function SDT_GetSAMStatus ( iPortID:integer;iState:inte－ ger) :integer;stdcall external 'SDTAPI.DLL' name 'SDT_ GetSAMStatus'; function SDT_StartFindIDCard ( iPort:integer;pucIIN: Pbytearray;iIfOpen:integer) :integer;stdcall external 'SD－ TAPI.DLL' name 'SDT_StartFindIDCard'; function SDT_SelectIDCard ( iPort:integer;pucSN:Pbytear－ ray;iIfOpen:integer) :integer;stdcall external 'SDTAPI.DLL' name 'SDT_SelectIDCard'; function SDT