unit2.~pas

来自「电子学生证源码 电子学生证源码」· ~PAS 代码 · 共 89 行

unit Unit2;

interface

uses
  Windows, SysUtils, Classes, DateUtils;

type
  TEStudent = record
    SchoolName: String[40];
    ClassName: String[20];
    StudentCode: String[20];
    Name: String[20];
    EnrollmentDate: TDateTime;
    IDNo: String[20];
    Gender: String[4];
    Birthday: TDateTime;
    Folk: String[10];
    Password: String[6];
  end;


const
  Baud_Rate = 115200;         //通讯波特率
  Load_Key = 'FFFFFFFFFFFF';    // 12位密码
  Load_PassWd_Mode = 0;         //加载密码的模式
  Dll_Name = 'mwrf32.dll';


  //-----------------导入DLL函数------------------------------------------------
  //卡函数
  function rf_init(port: Integer; baud: Integer): Integer;
    stdcall; far; external Dll_Name name 'rf_init';

  function rf_exit(icdev: Integer): Smallint;
    stdcall; far; external Dll_Name name 'rf_exit';

  function rf_card(icdev: Integer; mode: Byte; snr: PCardinal): Smallint;
    stdcall; far; external Dll_Name name 'rf_card';

  function rf_read(icdev: Integer; adr: Byte; data: PByte): Smallint;
    stdcall; far; external Dll_Name name 'rf_read';

  function rf_read_hex(icdev: Integer; adr: Byte; data: PByte): Smallint;
    stdcall; far; external Dll_Name name 'rf_read_hex';

  function rf_write(icdev: Integer; adr: Byte; data: PByte): Smallint;
    stdcall; far; external Dll_Name name 'rf_write';

  function rf_write_hex(icdev: Integer; adr: Byte; data: PByte): Smallint;
    stdcall; far; external Dll_Name name 'rf_write_hex';

  function rf_halt(icdev: Integer): Smallint;
    stdcall; far; external Dll_Name name 'rf_halt';

  function rf_beep(icdev: Integer; time: Smallint): Smallint;
    stdcall; far; external Dll_Name name 'rf_beep';

  function rf_disp8(icdev: Integer; dispMoney: Integer; pt_mode: Smallint): Smallint;
    stdcall; far; external Dll_Name name 'rf_disp8';





  //int rf_disp8(int icdev,int disp_len,unsigned char *disp_str);



  function rf_encrypt(key:pchar;ptrsource:pchar;msglen:smallint;ptrdest:pchar): Integer;
    stdcall; far; external Dll_Name name 'rf_encrypt';

  function rf_request(icdev: Integer; mode: Byte; snr:pchar): Smallint;
    stdcall; far; external Dll_Name name 'rf_request';

  function rf_load_key(icdev: Integer; mode,secnr: Byte; nkey:pchar): Smallint;
    stdcall; far; external Dll_Name name 'rf_load_key';

  function rf_load_key_hex(icdev: Integer; mode,secnr: Byte; nkey:pchar): Smallint;
    stdcall; far;external Dll_Name name 'rf_load_key_hex';

  function rf_authentication(icdev: Integer; mode,secnr: Byte): Smallint;
    stdcall; far; external Dll_Name name 'rf_authentication'; 

implementation


end.