fm_setreader.pas

来自「本软件由中国电子标签网www.rfid.org.cn 收集整理」· PAS 代码 · 共 57 行

unit Fm_SetReader;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, se_controls, KsSkinComboBoxs, KsSkinLabels, KsSkinForms,
  KsSkinButtons, ksskinmessages;

type
  Tfmsetreader = class(TForm)
    SeSkinForm1: TSeSkinForm;
    SeSkinLabel1: TSeSkinLabel;
    cb_SelPort: TSeSkinComboBox;
    SeSkinComboBox2: TSeSkinComboBox;
    SeSkinLabel2: TSeSkinLabel;
    SeSkinButton1: TSeSkinButton;
    SeSkinButton2: TSeSkinButton;
    SeSkinMessage1: TSeSkinMessage;
    procedure SeSkinButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmsetreader: Tfmsetreader;

implementation
 uses Fm_main,Share,Advic32;
{$R *.dfm}

procedure Tfmsetreader.SeSkinButton1Click(Sender: TObject);
var
Port:LongInt;
ret:integer;
begin
   if  cb_SelPort.ItemIndex=0 then
   begin
    ret:=AutoLinkCom(@Port);
    if ret=0 then
     SeSkinMessage1.showmessage('读卡器连接成功!')
    else  SeSkinMessage1.showmessage('读卡器连接失败');
   end
   else
   begin
     ret:=LinkCom(cb_SelPort.ItemIndex-1);
     if ret=0 then
      SeSkinMessage1.showmessage('读卡器连接成功!')
     else  SeSkinMessage1.showmessage('读卡器连接失败');

   end;
end;

end.