firsttest.dfm

Delphi 用的PSCS控件即例子程序,本人稍作修改了例子程序

object Form1: TForm1
  Left = 380
  Top = 178
  Caption = 'Form1'
  ClientHeight = 309
  ClientWidth = 648
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 91
    Top = 26
    Width = 9
    Height = 13
    Caption = '...'
  end
  object Label2: TLabel
    Left = 85
    Top = 105
    Width = 9
    Height = 13
    Caption = '...'
  end
  object Label3: TLabel
    Left = 85
    Top = 121
    Width = 9
    Height = 13
    Caption = '...'
  end
  object Label4: TLabel
    Left = 91
    Top = 41
    Width = 9
    Height = 13
    Caption = '...'
  end
  object Label5: TLabel
    Left = 459
    Top = 22
    Width = 9
    Height = 13
    Caption = '...'
  end
  object Label6: TLabel
    Left = 281
    Top = 26
    Width = 9
    Height = 13
    Caption = '...'
  end
  object Label7: TLabel
    Left = 21
    Top = 26
    Width = 43
    Height = 13
    Caption = 'last error:'
  end
  object Label8: TLabel
    Left = 14
    Top = 124
    Width = 65
    Height = 13
    Caption = 'last response:'
  end
  object Label9: TLabel
    Left = 11
    Top = 105
    Width = 56
    Height = 13
    Caption = 'readerstate:'
  end
  object Label10: TLabel
    Left = 21
    Top = 45
    Width = 43
    Height = 13
    Caption = 'ICC type:'
  end
  object Label11: TLabel
    Left = 369
    Top = 26
    Width = 65
    Height = 13
    Caption = 'vendor name:'
  end
  object Label12: TLabel
    Left = 218
    Top = 26
    Width = 42
    Height = 13
    Caption = 'serial nr.:'
  end
  object Label13: TLabel
    Left = 219
    Top = 41
    Width = 41
    Height = 13
    Caption = 'protocol:'
  end
  object Label14: TLabel
    Left = 281
    Top = 39
    Width = 9
    Height = 13
    Caption = '...'
  end
  object bt_Init: TButton
    Left = 542
    Top = 22
    Width = 62
    Height = 24
    Caption = 'Init'
    TabOrder = 0
    OnClick = bt_InitClick
  end
  object bt_Open: TButton
    Left = 542
    Top = 53
    Width = 62
    Height = 24
    Caption = 'Open'
    TabOrder = 1
    OnClick = bt_OpenClick
  end
  object bt_Connect: TButton
    Left = 542
    Top = 85
    Width = 62
    Height = 24
    Caption = 'Connect'
    TabOrder = 2
    OnClick = bt_ConnectClick
  end
  object bt_Close: TButton
    Left = 542
    Top = 117
    Width = 62
    Height = 24
    Caption = 'Close'
    TabOrder = 3
    OnClick = bt_CloseClick
  end
  object bt_Disconnect: TButton
    Left = 542
    Top = 149
    Width = 62
    Height = 24
    Caption = 'Disconnect'
    TabOrder = 4
    OnClick = bt_DisconnectClick
  end
  object bt_Send: TButton
    Left = 329
    Top = 92
    Width = 62
    Height = 21
    Caption = 'Send'
    TabOrder = 5
    OnClick = bt_SendClick
  end
  object Memo1: TMemo
    Left = 3
    Top = 179
    Width = 637
    Height = 113
    TabOrder = 6
  end
  object edtCmd: TEdit
    Left = 21
    Top = 68
    Width = 370
    Height = 21
    TabOrder = 7
    Text = 'edtCmd'
  end
  object Edit1: TEdit
    Left = 21
    Top = 149
    Width = 66
    Height = 21
    TabOrder = 8
    Text = 'Edit1'
  end
  object Edit2: TEdit
    Left = 93
    Top = 149
    Width = 78
    Height = 21
    TabOrder = 9
    Text = 'Edit2'
  end
  object Edit3: TEdit
    Left = 182
    Top = 149
    Width = 89
    Height = 21
    TabOrder = 10
    Text = 'Edit3'
  end
  object rgpReaderCnt: TRadioGroup
    Left = 415
    Top = 52
    Width = 113
    Height = 121
    Caption = 'rgpReaderCnt'
    TabOrder = 11
    OnClick = rgpReaderCntClick
  end
  object pcsc: TPCSCConnector
    OnCardInserted = pcscCardInserted
    OnCardActive = pcscCardActive
    OnCardRemoved = pcscCardRemoved
    OnCardInvalid = pcscCardInvalid
    OnReaderWaiting = pcscReaderWaiting
    OnReaderListChange = pcscReaderListChange
    OnError = pcscError
    Left = 85
    Top = 187
  end
end