谁能提供SURE32WC.dll的说明

Question

谁能提供SURE32WC.dll的说明,谢谢!ic卡读写连接库!谢谢!

Answer 1

{
------------------------------------------------------------------
=  sure32wc.dll ---- IC卡操作函数库                              =
=  Copyright (c) 2004-2005 Aoke, All rights reserved             =
=  IC Read/Write DLL                                             =
=  Version: 1.0                                                  =
------------------------------------------------------------------
------------------------------------------------------------------
=  publicunit.pas ---- IC卡操作函数库Delphi调用模块              =
------------------------------------------------------------------
}
unit S_IC_Public;
interface
uses
  Windows, Messages, Classes, Graphics, Controls, Dialogs;
type
  myCharArray = array of Char;
function init_com(comport: integer): integer; stdcall; external 'sure32wc.dll';
function power_on(): integer; stdcall; external 'sure32wc.dll';
function power_off(): integer; stdcall; external 'sure32wc.dll';
function sele_card(card_type: integer): integer; stdcall; external 'sure32wc.dll';
function chk_sc(zone: integer; iLength: integer; var Buff: PChar): integer; stdcall; external 'sure32wc.dll';
function chk_erk(zone: integer; iLength: integer; var Buff: PChar): integer; stdcall; external 'sure32wc.dll';
function era_at(zone: integer; iPos: integer; iLength: integer): integer; stdcall; external 'sure32wc.dll';
function inquire(Buff: PChar): integer; stdcall; external 'sure32wc.dll';
function rd_str(zone: integer; iPos: integer; iLength: integer; var Buff: PChar): integer; stdcall; external 'sure32wc.dll';
function prd_str(zone: integer; iPos: integer; iLength: integer; var Buff: PChar): integer; stdcall; external 'sure32wc.dll';
function wr_str(zone: integer; iPos: integer; iLength: integer; var Buff: PChar): integer; stdcall; external 'sure32wc.dll';
function pwr_str(zone: integer; iPos: integer; iLength: integer; var Buff: PChar): integer; stdcall; external 'sure32wc.dll';
function cpwr_str(zone: integer; iPos: integer; iLength: integer; var Buff: PChar): integer; stdcall; external 'sure32wc.dll';
function rd_pm(zone: integer; iPos: integer; iLength: integer; var Buff: PChar): integer; stdcall; external 'sure32wc.dll';
function rd_sm(Buff: PChar): integer; stdcall; external 'sure32wc.dll';
function wr_sc(Buff: PChar): integer; stdcall; external 'sure32wc.dll';
function fuse(): integer; stdcall; external 'sure32wc.dll';
procedure des_str(var p_cont: Pchar; var p_secr: Pchar); stdcall; external 'sure32wc.dll';
procedure des_asc(var p_cont: Pchar; var p_secr: Pchar); stdcall; external 'sure32wc.dll';
procedure undes_str(var p_cont: Pchar; var p_secr: Pchar); stdcall; external 'sure32wc.dll';
procedure undes_asc(var p_cont: Pchar; var p_secr: Pchar); stdcall; external 'sure32wc.dll';
function rd_asc(zone: integer; iPos: integer; iLength: integer; var Buff: PChar): integer; stdcall; external 'sure32wc.dll';
function prd_asc(zone: integer; iPos: integer; iLength: integer; var Buff: PChar): integer; stdcall; external 'sure32wc.dll';
function wr_asc(zone: integer; iPos: integer; iLength: integer; var Buff: PChar): integer; stdcall; external 'sure32wc.dll';
function pwr_asc(zone: integer; iPos: integer; iLength: integer; var Buff: PChar): integer; stdcall; external 'sure32wc.dll';
function cpwr_asc(zone: integer; iPos: integer; iLength: integer; var Buff: PChar): integer; stdcall; external 'sure32wc.dll';
function close_com(): integer; stdcall; external 'sure32wc.dll';
function rd_mstr(zone: integer; iPos: integer; iLength: integer; var Buff: PChar): integer; stdcall; external 'sure32wc.dll';
function rd_masc(zone: integer; iPos: integer; iLength: integer; var Buff: PChar): integer; stdcall; external 'sure32wc.dll';
function wr_mstr(zone: integer; iPos: integer; iLength: integer; var Buff: PChar): integer; stdcall; external 'sure32wc.dll';
function wr_masc(zone: integer; iPos: integer; iLength: integer; var Buff: PChar): integer; stdcall; external 'sure32wc.dll';
const
    INAT24C01A  = 00; //* INSIDE ATMEL LOGIC MEMORY */
    INAT24C02   = 01;
    INAT24C04   = 02;
    INAT24C08   = 03;
    INAT24C16   = 04;
    INAT24C32   = 05;
    INAT24C64   = 07;
    INAT24C65   = 06;
    AT88SC101   = 10; // * ATMEL SECURITY LOGIC SMART CARD * /
    AT88SC102   = 11;
    AT88SC103   = 12;
    AT88SC1601  = 13;
    AT88SC1604  = 14;
    AT88SC1604A = 15;
    AT24C01A    = 20; // * ATMEL LOGIC SMART CARD * /
    AT24C02     = 21;
    AT24C04     = 22;
    AT24C08     = 23;
    AT24C16     = 24;
    AT24C32     = 25;
    AT24C64     = 27;
    AT24C65     = 26;
    AT93C46     = 30;
    AT45D041    = 64; // * 4M IC card * /
    SLE4404     = 40; // * SIMENS SECURITY LOGIC SMART CARD * /
    SLE4406     = 41;
    SLE4442     = 42;
    SLE4428     = 43;
    SLE4432     = 50; // * SIMENS LOGIC SMART CARD * /
    SLE4418     = 51;
implementation
procedure Initialize;
begin
  //所有的函数如果成功返回0,否则返回非0或者4
  //
end;
end.