head.pas

delphi api

unit head;
interface
type

// 1. 查找计算机上连接的 Rockey2 加密锁设备
 ET99_Find=function(pid:pchar;var count:cardinal):integer;stdcall;


// 2. 打开指定的加密锁
ET99_Open=function(var handle:THandle;pid :pchar; index :cardinal):integer;stdcall;


// 3. 关闭指定的加密锁
  ET99_Close=function(handle:THandle):integer;stdcall;


// 4. verify user pin
 ET99_Verify=function(handle:THandle; flags : cardinal; pin: pchar):integer;stdcall;


// 5. 读取加密锁内容
ET99_Read=function(handle:THandle; offset : cardinal; Len : cardinal; var buffer512:pchar):integer;stdcall;


// 6. 写入加密锁内容
ET99_Write=function(handle:THandle; offset : cardinal; Len : cardinal; buffer512:pchar):integer;stdcall;



var

ET_Find : ET99_Find;
ET_Open : ET99_Open;
ET_Close : ET99_Close;
ET_Verify : ET99_Verify;
ET_Read  : ET99_Read ;
ET_Write : ET99_Write;


const
//
AUTO_MODE :integer=0;
HID_MODE :integer=-1;
ROCKEY2_DISABLE_WRITE_PROTECT:integer =0;
ROCKEY2_ENABLE_WRITE_PROTECT:integer  =1;

// 错误编码 ===========================================================
// 成功，没有错误
 ET_SUCCESS								:integer=0;

// 没有找到给定要求的设备(参数错误)
 ET_ACCESS_DENY							:integer = $1 ;

// 在调用此功能前需要先调用 RY2_Open 打开设备(操作错误)
 ET_COMMUNICATIONS_ERROR						:integer = $2;

// 给出的 UID 错误(参数错误)
 ET_INVALID_PARAMETER								:integer = $3 ;

// 读写操作给出的块索引错误(参数错误)
 ET_NOT_SET_PID								:integer = $4  ;

// 调用 GenUID 功能的时候，给出的 seed 字符串长度超过了 64 个字节(参数错误)
 ET_NOTFOUND_DEVICE							:integer = $5    ;

// 试图改写已经写保护的硬件(操作错误)
 ET_HEAD_ERROR							:integer = $6   ;

// 打开设备错(Windows 错误)
 ET_UNKNOWN								:integer = $7  ;

implementation

end.