RF 리더 프로그램

1. USB to Serial

DRIVERS.zip

2. Program

ACS.zip

준비물 : ACR1281S-C8, USB to Serial/Driver, RF Tag

1. Form1에 아래와 같이 버튼과 Comport를 만듭니다.

Comport의 인스펙터에서

BaudRate를 br9600으로 변경

Port를 장치관리자에서 확인해서 USBtoSerial을 확인한다.

Comport의 Events에서 아래와 같이 두개의 프로시져를 생성한다.(더블클릭)

procedure TForm1.ComPort1AfterOpen(Sender: TObject);

begin

  ListBox1.Items.Add('Connected');

  ComPort1.ClearBuffer(True ,True);

end;

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);

var

  temp_str : string;

  cnt : integer;

  Ascii_str : string;

begin

  ComPort1.ReadStr(nRcv_Data, count);

  if Count <> 9 then exit;

  for cnt := 1 to count do

  begin

    temp_str := Copy(nRcv_Data,cnt,1);

    RCVdata := RCVdata + temp_str;

    Ascii_str := Ascii_str + Change(temp_str);

    if Change(temp_str) = '03' then

    begin

      Value := Ascii_str;

    end;

  end;

  // 최종 값

  Label_Tag.Caption := Copy(AnsiString(Value),7,10);

  if ListBox1.Items.Count > 100 then ListBox1.Clear;

  ListBox1.Items.Add(AnsiString(Value));

  ListBox1.ItemIndex := ListBox1.Items.Count - 1;

end;

■ OPEN을 클릭하면, Comport를 연결한다.

procedure TForm1.Button_OpenClick(Sender: TObject);

begin

  if ComPort1.Connected then

  begin

    ListBox1.Items.Add('이미 연결되어 있음');

    exit;

  end;

  Comport1.Open;

end;

■