p_dll.pas

超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统

unit P_DLL;

interface

uses SysUtils;
//*************************  rf_mf1读写器接口  ***************************

function rf_link_com(port:integer):integer ; stdcall ;external 'rfdllntn.dll';
function rf_card:integer ; stdcall ;external 'rfdllntn.dll';
function rf_load_key(cmd : integer; rfkey: string):integer ; stdcall ;external 'rfdllntn.dll';
function rf_rd_card(cmd : integer;addrh : integer;addrl : integer;len : integer;send : pchar):integer ; stdcall ;external 'rfdllntn.dll';
function rf_beep(cmd : integer):integer ; stdcall ;external 'rfdllntn.dll';
function rf_unlink_com( port : integer):integer; stdcall ;external 'rfdllntn.dll';
function rf_rd_cardc( cmd : integer;addrh : integer;addrl : integer;len : integer;send : pchar) : integer  ; stdcall ;external 'rfdllntn.dll';
function rf_wr_cardc( cmd : integer;addrh : integer;addrl : integer;len : integer;send : pchar) : integer  ; stdcall ;external 'rfdllntn.dll';
function rf_wr_card( cmd : integer;addrh : integer;addrl : integer;len : integer;send : pchar) : integer  ; stdcall ;external 'rfdllntn.dll';
function rf_disp_data( cmd1 : integer; cmd2 : integer; cardnr: string) : integer ; stdcall ;external 'rfdllntn.dll';
function rf_rd_bala_ml(rfkey: string) : integer ; stdcall ;external 'rfdll32ntn.dll';
function rf_wr_bala_ml(rfkey: string) : integer ; stdcall ;external 'rfdll32ntn.dll';

implementation


end.