fm_setreader.~pas

本软件由中国电子标签网www.rfid.org.cn 收集整理

unit Fm_SetReader;

interface

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

type
  Tfmsetreader = class(TForm)
    SeSkinForm1: TSeSkinForm;
    SeSkinLabel1: TSeSkinLabel;
    cb_SelPort: TSeSkinComboBox;
    SeSkinComboBox2: TSeSkinComboBox;
    SeSkinLabel2: TSeSkinLabel;
    SeSkinButton1: TSeSkinButton;
    SeSkinButton2: TSeSkinButton;
    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
    showmessage('读卡器连接成功!')
    else showmessage('读卡器连接失败');
   end
   else
   begin
     ret:=LinkCom(cb_SelPort.ItemIndex-1);
     if ret=0 then
     showmessage('读卡器连接成功!')
     else showmessage('读卡器连接失败');

   end;
end;

end.