delphi31.txt

IC加密卡的制作（AT88SC102）

Delphi 1.0 在Windows 3.x下读写器接口函数使用方法:
函数声明:
implementation
   Function Init_com(Port:integer):integer; far; external 'sure16wc';
   Function sele_card(crdno:integer):integer; far; external 'sure16wc';
   Function power_on:integer; far; external 'sure16wc';
   Function power_off:integer; far; external 'sure16wc';
   Function close_com:integer; far; external 'sure16wc.dll';
   Function rd_asc(apz, address, Length:integer; buffer:pchar):integer; far; external 'sure16wc';
   Function wr_asc(apz, address, Length:integer; buffer:pchar):integer; far; external 'sure16wc';
   Function rd_str(apz, address, Length:integer; buffer:pchar):integer; far; external 'sure16wc';
   Function wr_str(apz, address, Length:integer; buffer:pchar):integer; far; external 'sure16wc';
   Function chk_sc(i1, i2:Integer; Str:pchar):integer; far; external 'sure16wc';
   Function wr_sc(Str:pchar):integer; far; external 'sure16wc';

变量定义:
   读写器接口函数所使用的字符串变量,应事先分配足够的内存空间,再将字符串指针作为参数传递.

应用举例:
   Var
      Buf1 : Array [0..300] of Char;        150个HEX数据缓冲区
      Buf2 : Array [0..150] of Char;        150个字符串缓冲区
      Hp,Sp : Pchar;
      A,B,C,D,E,F,G,H : Integer;
   Begin
      A := Init_Com(1);                   初始化串口2
      B := Sele_Card(42);                 选择Siemens 4442卡,卡型编号42
      C := Power_on;                     卡上电操作
      Sp := 'FFFFFF';                    Siemens 4442空白卡缺省密码
      D := Chk_SC(0,3,Sp);                核对密码
      if D<>0 then                       密码错误则退出
      Begin
         MessageBox(0,'密码错误','演示',mb_ok);
         exit;
      end;
      Hp := @Buf1;                      
      E := Rd_Asc(1,0,150,Hp);             读取150个字节HEX数据,返回300个字符
      Hp := @Buf2;
      F := Rd_Str(1,0,150,Hp);             读取150个字节字符串,返回150个字符
      G := Power_off;                    卡下电操作
      H := Close_com;                    关闭串口
   end;
注意:
     串口初始化操作仅需在系统启动时进行一次,系统退出时关闭串口.
Delphi下读写器接口函数使用说明