sample13u.pas

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

unit sample13u;

interface

uses
  selectreader2,Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,vasbase, ExtCtrls, ExtDlgs, PCSCclasses;

type
  TForm1 = class(TForm)
    ReaderDialog1: TReaderDialog;
    ClearEdit1: TClearEdit;
    ClearMemo1: TClearMemo;
    Label1: TLabel;
    Label2: TLabel;
    Options: TGroupBox;
    CheckBox2: TCheckBox;
    CheckBox1: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    Button1: TButton;
    GroupBox1: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    ClearEdit2: TClearEdit;
    ClearEdit3: TClearEdit;
    GroupBox2: TGroupBox;
    ClearPanel1: TClearPanel;
    Button2: TButton;
    Image1: TImage;
    OpenPictureDialog1: TOpenPictureDialog;
    Label5: TLabel;
    ClearMemo2: TClearMemo;
    resman: TResourceManager;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ClearEdit1Change(Sender: TObject);
    procedure ClearMemo1Change(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure ClearEdit2Exit(Sender: TObject);
    procedure ClearEdit3Exit(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation


{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if readerdialog1.execute then
    clearmemo2.lines.Assign(readerdialog1.SelectedReaders)
  else
    clearmemo2.text:='Selection cancelled';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if openpicturedialog1.execute then
  begin
    try
      Image1.Picture.LoadFromFile(openpicturedialog1.FileName);
      readerdialog1.Icon.LoadFromFile(openpicturedialog1.FileName);
    except
      ShowMessage('Error reading file '+openpicturedialog1.FileName);
    end;
  end;
end;

procedure TForm1.ClearEdit1Change(Sender: TObject);
begin
  readerdialog1.title:=clearedit1.text;
end;

procedure TForm1.ClearMemo1Change(Sender: TObject);
begin
  while clearmemo1.lines.count>2 do
    clearmemo1.Lines.Delete(clearmemo1.lines.count-1);
  readerdialog1.text:=clearmemo1.text;
end;

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
  if (sender as TCheckBox).checked then
    readerdialog1.options:=readerdialog1.options+[rdATRFilterChange]
  else
    readerdialog1.options:=readerdialog1.options-[rdATRFilterChange]
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if (sender as TCheckBox).checked then
    readerdialog1.options:=readerdialog1.options+[rdSizeChange]
  else
    readerdialog1.options:=readerdialog1.options-[rdSizeChange]
end;

procedure TForm1.CheckBox3Click(Sender: TObject);
begin
  if (sender as TCheckBox).checked then
    readerdialog1.options:=readerdialog1.options+[rdNoneReader]
  else
    readerdialog1.options:=readerdialog1.options-[rdNoneReader]
end;

procedure TForm1.CheckBox4Click(Sender: TObject);
begin
  readerdialog1.multiselect:=(sender as TCheckBox).checked;
end;

procedure TForm1.CheckBox5Click(Sender: TObject);
begin
  readerdialog1.StartShowingGroups:=(sender as TCheckBox).checked;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  image1.picture.icon.assign(nil);
  readerdialog1.icon.Assign(nil);
end;

procedure TForm1.ClearEdit2Exit(Sender: TObject);
begin
  readerdialog1.ATRFilter.Hex:=(Sender as TClearEdit).Text;
  if readerdialog1.ATRFilter.Hex<>(Sender as TClearEdit).Text then
    (Sender as TClearEdit).Text:=readerdialog1.ATRFilter.Hex
  else
    ClearEdit3.Text:=readerdialog1.ATRFilter.MaskHex;
end;

procedure TForm1.ClearEdit3Exit(Sender: TObject);
begin
  readerdialog1.ATRFilter.MaskHex:=(Sender as TClearEdit).Text;
  if readerdialog1.ATRFilter.MaskHex<>(Sender as TClearEdit).Text then
    (Sender as TClearEdit).Text:=readerdialog1.ATRFilter.MaskHex;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
{
  Form2.SelectedReaders.Assign(readerdialog1.AllowedReaders);
  Form2.SelectedGroups.Assign(readerdialog1.AllowedGroups);
  if Form2.ShowModal=mrOK then
  begin
    readerdialog1.AllowedReaders.Assign(Form2.SelectedReaders);
    readerdialog1.AllowedGroups.Assign(Form2.SelectedGroups);
  end;
}
end;

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

end.