scdlldemounit.pas

Delphi源码实现的SC1000非接触式IC卡读写器

unit SCDLLDemoUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, Buttons,shellapi;

type
  TDemoFrm = class(TForm)
    Timer1: TTimer;
    Label2: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Panel1: TPanel;
    Button28: TButton;
    Button29: TButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    GroupBox4: TGroupBox;
    Label10: TLabel;
    Button11: TButton;
    Button18: TButton;
    Button19: TButton;
    LEDCBB: TComboBox;
    Button30: TButton;
    Button31: TButton;
    Button32: TButton;
    Button33: TButton;
    Button34: TButton;
    Button35: TButton;
    Button36: TButton;
    Button37: TButton;
    Button38: TButton;
    GroupBox3: TGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    DspDataET: TEdit;
    Button9: TButton;
    Button10: TButton;
    Button14: TButton;
    Button1: TButton;
    DotCBB: TComboBox;
    Label15: TLabel;
    BitBtn1: TBitBtn;
    WriteBBtn: TBitBtn;
    Label16: TLabel;
    BlockNoCBB: TComboBox;
    Label17: TLabel;
    Label18: TLabel;
    GroupBox9: TGroupBox;
    Memo1: TMemo;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    TabSheet5: TTabSheet;
    GroupBox10: TGroupBox;
    Label8: TLabel;
    NewKeyCBB: TComboBox;
    Label24: TLabel;
    OldkeyCBB: TComboBox;
    Label25: TLabel;
    SectorNoCBB: TComboBox;
    BitBtn2: TBitBtn;
    BlockDataCBB: TComboBox;
    GroupBox8: TGroupBox;
    Label6: TLabel;
    Edit2: TEdit;
    Button15: TButton;
    Button16: TButton;
    Button12: TButton;
    Label23: TLabel;
    Button23: TButton;
    Button24: TButton;
    Label1: TLabel;
    Label3: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure ReadBtnClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure Button19Click(Sender: TObject);
    procedure Memo1Change(Sender: TObject);
    procedure Button29Click(Sender: TObject);
    procedure Button24Click(Sender: TObject);
    procedure Button30Click(Sender: TObject);
    procedure Button31Click(Sender: TObject);
    procedure Button32Click(Sender: TObject);
    procedure Button33Click(Sender: TObject);
    procedure Button34Click(Sender: TObject);
    procedure Button35Click(Sender: TObject);
    procedure Button36Click(Sender: TObject);
    procedure Button37Click(Sender: TObject);
    procedure Button38Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure WriteBBtnClick(Sender: TObject);
    procedure BlockDataCBBChange(Sender: TObject);
    procedure BlockDataCBBKeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn2Click(Sender: TObject);
    procedure OldkeyCBBKeyPress(Sender: TObject; var Key: Char);
    procedure NewKeyCBBKeyPress(Sender: TObject; var Key: Char);
    procedure BlockNoCBBKeyPress(Sender: TObject; var Key: Char);
    procedure DotCBBKeyPress(Sender: TObject; var Key: Char);
    procedure LEDCBBKeyPress(Sender: TObject; var Key: Char);
    procedure SectorCBBKeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Label1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DemoFrm: TDemoFrm;
  iRe:integer;
  rHandle:Thandle;
  pSNR:pchar;
implementation

{$R *.dfm}
uses SCDLLUnit;

procedure TDemoFrm.FormCreate(Sender: TObject);
begin
     SectorNoCBB.ItemIndex := 0;
     OldkeyCBB.ItemIndex := 0;
     NewKeyCBB.ItemIndex := 0;
     
     BlockDataCBB.CharCase := ecUpperCase;
     BlockDataCBB.ItemIndex := -1;
     BlockDataCBB.Text :='';
     BlockNoCBB.ItemIndex := 1;

     NewKeyCBB.ItemIndex := 0;
     DotCBB.ItemIndex  :=6;
     DspDataET.Text :='12345678';
     Edit2.Text := '3';
     //Edit3.Text := '5';
     Memo1.Clear;
     LEDCBB.ItemIndex := 0;
     Application.Title := '非接触IC卡读写器测试程序';
     DemoFrm.Caption := '非接触IC卡读写器测试程序';
end;

procedure TDemoFrm.Button9Click(Sender: TObject);
Var
     pData:Pchar;
     idot :integer;
begin
     //pData := Pchar('11223344556677889900AABBCCDDEEFF');
     pData:= Pchar(DspDataET.Text );
     idot := StrToInt(DotCBB.Text);
     iRe:= SC_LEDDSP( rHandle,pData,idot);

     
end;

procedure TDemoFrm.Button10Click(Sender: TObject);
Var
     pData:Pchar;
     fValues:Extended;
begin

     pData:= Pchar(DspDataET.Text );
     fValues:=StrToInt64(DspDataET.Text);//123456.78;
     iRe:= SC_LEDDSPV( rHandle,fValues);
     
end;

procedure TDemoFrm.Button12Click(Sender: TObject);
begin
     iRe := SC_Beep(rHandle,0,StrToInt(Edit2.Text));
     if iRe = 0 then
     Begin
          Memo1.Lines.Add('已执行蜂鸣');
     end;
end;

procedure TDemoFrm.ReadBtnClick(Sender: TObject);
Var
   pSNR:Pchar;
   iMode:integer;
   iSector:integer;
   pKey:Pchar;
   iBlock:integer;
   pData:Pchar;
begin

end;

procedure TDemoFrm.Timer1Timer(Sender: TObject);
Var
     pData:Pchar;
     idot :integer;
begin
     DSPDataET.Text :=  Format('%-.8d',[StrToInt(DspDataET.Text)+1]);
     pData:= Pchar(DSPDataET.Text );
     idot := StrToInt(DotCBB.Text);
     iRe:= SC_LEDDSP( rHandle,pData,idot);

end;

procedure TDemoFrm.Button14Click(Sender: TObject);
begin
    DspDataET.Text := '00000001';
    Timer1.Enabled := True;
end;

procedure TDemoFrm.Button15Click(Sender: TObject);
begin
     iRe := SC_Beep(rHandle,0,StrToInt(Edit2.Text));
     sleep(100);
     iRe := SC_Beep(rHandle,0,StrToInt(Edit2.Text));

end;

procedure TDemoFrm.Button16Click(Sender: TObject);
begin

     iRe := SC_Beep(rHandle,0,25);
     sleep(1000); //延时的时间要大于，SC_Beep 的时间，否则会造成只蜂鸣一声
     iRe := SC_Beep(rHandle,0,25);

end;

procedure TDemoFrm.Button11Click(Sender: TObject);
begin
     iRe := SC_LED(rHandle,1,StrToInt(LEDCBB.Text)); //点亮红色LDE指示灯
end;

procedure TDemoFrm.Button18Click(Sender: TObject);
begin
    iRe := SC_LED(rHandle,2,StrToInt(LEDCBB.Text)); //点亮绿色LDE指示灯
end;

procedure TDemoFrm.Button19Click(Sender: TObject);
begin
     iRe := SC_LED(rHandle,3,StrToInt(LEDCBB.Text)); //点亮红色LDE指示灯
end;

procedure TDemoFrm.Memo1Change(Sender: TObject);
begin
     Label11.Caption := IntTOStr(Memo1.Lines.Count );
end;

procedure TDemoFrm.Button29Click(Sender: TObject);
begin
     iRe :=SC_LoadKey(rHandle,1 ,StrToInt(SectorNoCBB.text),60,Pchar(NewKeyCBB.Text ));
      Memo1.Lines.Add( IntToStr(iRe));
end;

procedure TDemoFrm.Button24Click(Sender: TObject);
begin
     iRe := SC_Auth(rHandle,1);
     Memo1.Lines.Add( IntToStr(iRe) );
end;

procedure TDemoFrm.Button30Click(Sender: TObject);
begin
     iRe := SC_LED(rHandle,6,StrToInt(LEDCBB.Text)); //点亮红色LDE指示灯
end;

procedure TDemoFrm.Button31Click(Sender: TObject);
begin
     iRe := SC_LED(rHandle,5,StrToInt(LEDCBB.Text)); //点亮红色LDE指示灯

end;

procedure TDemoFrm.Button32Click(Sender: TObject);
begin
     iRe := SC_LED(rHandle,7,StrToInt(LEDCBB.Text)); //点亮红色LDE指示灯
 
end;

procedure TDemoFrm.Button33Click(Sender: TObject);
begin
    iRe := SC_LED(rHandle,10,StrToInt(LEDCBB.Text)); //点亮红色LDE指示灯

end;

procedure TDemoFrm.Button34Click(Sender: TObject);
begin
     iRe := SC_LED(rHandle,11,StrToInt(LEDCBB.Text)); //点亮红色LDE指示灯

end;

procedure TDemoFrm.Button35Click(Sender: TObject);
begin
     iRe := SC_LED(rHandle,8,StrToInt(LEDCBB.Text)); //点亮红色LDE指示灯

end;

procedure TDemoFrm.Button36Click(Sender: TObject);
begin
     iRe := SC_LED(rHandle,9,StrToInt(LEDCBB.Text)); //点亮红色LDE指示灯

end;

procedure TDemoFrm.Button37Click(Sender: TObject);
begin
     iRe := SC_LED(rHandle,12,StrToInt(LEDCBB.Text)); //点亮红色LDE指示灯

end;

procedure TDemoFrm.Button38Click(Sender: TObject);
begin
     iRe := SC_LED(rHandle,13,StrToInt(LEDCBB.Text)); //点亮红色LDE指示灯

end;

procedure TDemoFrm.Button1Click(Sender: TObject);
begin
     iRe:= SC_LEDDSP( rHandle,Pchar('        '),0);
end;

procedure TDemoFrm.BitBtn1Click(Sender: TObject);
Var
   pData,pKey:Pchar;
   i, iSector,iMode :integer;
   icom:longint;
begin
     Memo1.Lines.Add('');
{
     iRe:=InitPort(ComPortCBB.ItemIndex +1,rHandle);

     iRe := SC_Beep(rHandle,0,StrToInt(Edit2.Text));
     if iRe <> 0 then
     Begin