Q&A

  • rs232통신 질문...
안녕하세요 ..통신쪽은 백지라서요 부탁드립니다...

사용중인 프로그램에선 rs232방식으로 바코드를 인식하구요..

거기에다 제가 만든 프로그램이 추가 되었는데 rs232방식이라서 코드를

인식해도 제 프로그램의 에디트에는 바코드가 인식이 되질 않습니다.

다른건 필요없구요 그냥 스캐너로 바코드를 인식했을때 그냥 그바코드가

에디트에 찍히기만 하면 됩니다..

그래서 comm컴포넌트를 다운받아서 설치했구요...

거기서 포트나 baudrate..등등 잡아 주었구요 소스는
procedure TForm5.FormActivate(Sender: TObject);
begin
Comm1.Open();
end;

procedure TForm5.Comm1Read(Sender: TObject; Count: Word);
var
rcvbuffer : AnsiString;
begin

     if Comm1.Connected = true then
      begin

       rcvbuffer :=  comm1. ;

////이부분에 적당한 프로퍼티를 적용못하겠습니다...

       listbox1.items.add(rcvbuffer);
     Edit6.Text := rcvbuffer;
    Edit6.Text := ListBox1.Items.Text;

      end;
end;
이런식으로 구현해보았는데  다른것이 틀릴수 도 있으나 제생각으론

rcvbuffer :=  comm1. ;이부분이 틀린것 같은데 ..많은 도움 부탁드립니다..

1  COMMENTS
  • Profile
    한만교 2002.02.28 21:24
    자료실에 Comm으로 찾아보면 예제와 VCL소스까정
    몽땅있군요...
    이 VCL로 안되면 메일주세요
    바코드 읽는 것은 정말 간단.....