sample7u.pas

用来测试任何pcsc兼容读卡器

unit sample7u;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Menus, APDUCard, PCSCclasses, ComCtrls;

type
  TForm1 = class(TForm)
    edCommand: TEdit;
    Label1: TLabel;
    edAnswer: TEdit;
    Label2: TLabel;
    MainMenu1: TMainMenu;
    Exit1: TMenuItem;
    Selectreader1: TMenuItem;
    buSend: TButton;
    card: TAPDUCard;
    ResourceManager1: TResourceManager;
    edSize: TEdit;
    UpDown1: TUpDown;
    Label3: TLabel;
    edError: TEdit;
    Label4: TLabel;
    procedure Exit1Click(Sender: TObject);
    procedure Selectreader1Click(Sender: TObject);
    procedure buSendClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

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

procedure TForm1.Selectreader1Click(Sender: TObject);
begin
 if card.SelectReader(nil) then
 try
  card.Connect(smShared,prDefault);
 except
  on e:Exception do ShowMessage(e.Message);
 end;
 caption:='Sample 7 - '+card.ReaderName; 
end;

procedure TForm1.buSendClick(Sender: TObject);
begin
 with card do
 try
  command.Hex:=edCommand.text;
  answer.ForceBufferSize(strtointdef(edSize.text,0));
  Transmit;
  edanswer.text:=answer.Hex;
  edError.text:='OK';
 except
  on e:Exception do edError.text:=e.message;
 end;
end;

end.