declaredll.pas
来自「这个是我买IC读卡器时供应商配送的开发接口」· PAS 代码 · 共 32 行
PAS
32 行
unit declaredll;
interface
//读卡函数声明
function piccreadex(ctrlword:byte;pserial:pbyte;area:byte;keyA1B0:byte;picckey:pbyte;piccdata0_2:pbyte):byte;stdcall;external 'OUR_MIFARE.dll';
//写卡函数声明
function piccwriteex(ctrlword:byte;pserial:pbyte;area:byte;keyA1B0:byte;picckey:pbyte;piccdata0_2:pbyte):byte;stdcall;external 'OUR_MIFARE.dll';
//驱动蜂鸣器函数声明
function pcdbeep(xms:integer):byte;stdcall;external 'OUR_MIFARE.dll';
//修改单区密码函数声明
function piccchangesinglekey(ctrlword:byte;pserial:pbyte;area:byte;keyA1B0:byte;piccoldkey:pbyte;piccnewkey:pbyte):byte;stdcall;external 'OUR_MIFARE.dll';
//读出编号函数声明
function pcdgetdevicenumber(pdevicenumber:pbyte):byte;stdcall;external 'OUR_MIFARE.dll';
const
//以下控制字的含义请查看本公司网站提供的动态库说明
BLOCK0_EN = $01; //读块0
BLOCK1_EN = $02; //读块1
BLOCK2_EN = $04; //读块2
NEEDSERIAL = $08; //是否需要只对指定系列号的卡操作
EXTERNKEY = $10; //是否使用外部密码
NEEDHALT = $20; //是否休眠本卡
implementation
end.
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?