谁能提供SURE32WC.dll的说明,谢谢!ic卡读写连接库!谢谢!
解决方案 »
- TcxTreeList可否实现复制粘贴的功能?
- 如何让TListView列自动适应TListView的宽度和高度
- 那位好心人,有类似于FOXMAIL的HTMIL编辑控件,发一个给我好吗?
- 走过的,路过的,各位大虾请进来看看!
- 关于报表的升降级所带来的问题,求助!
- 各位大侠,请帮帮我!
- 如何将电脑图像(BMP或JPG格式)输出到电视?
- 求 Bold for Delphi 哪里有下载啊?????
- 请教一个问题:一个系统中是否应该控制触发器、存储过程和视图的使用
- 用什么函数判断在一个access数据库中的某个表是否存在?小弟急需!
- 请版主及各位高手帮忙,DELPHI中如何调用XSD去验证XML的合法性???谢谢
- 毕业新人求助 我很菜 也问个菜问题 哈哈
------------------------------------------------------------------
= 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.