unit1.pas

ah 209型通用读卡器驱动程序源码

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Edit2: TEdit;
    Edit3: TEdit;
    Button3: TButton;
    Button4: TButton;
    Edit4: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  bl : boolean = false;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
   bl := Net_Start(1,19200);
   Edit1.Text := BoolToStr(bl,true);
   //Net_Exit;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
   id : byte;

begin
   if(bl) then
   begin
      id := 0;
      SendCardComm(id);
      Sleep(100);
   end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  self.Close;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   if(bl) then
   begin
      Net_Exit;
   end;
   Application.Terminate;
   //Application.Free;
end;

procedure TForm1.Button4Click(Sender: TObject);
var
   Card_No : integer;
   Card_Type : byte;
   b : boolean;
begin
 try
   if(bl) then
   begin
      Send_Card_Comm(Card_No,Card_Type,b);
      Edit2.Text := IntToHex(Card_No,8);
      Edit3.Text := IntToHex(Card_Type,2);
      Edit4.Text := BoolToStr(b,true);
   end;
 except
 end;
end;

end.