http://codeverge.com/embarcadero.delphi.general/better-code-for-writing-reading-th/1067762 를 참고해보세요.

리더기에서 순수하게 RF-Card 데이터만 넘어오는것이 아니고 Header도 같이 넘어옵니다. 그리고 데이터는 바이너리이기 때문에 String으로 보려면 변환 작업을 해 주어야 하고요.

가능하면 리더기 업체에서 제공해 주는 DLL 파일을 이용하는 것이 좋습니다.

저도 지금 리더기 읽어서 관리하는 프로그램을 만들려고 하는데

리더기 업체에서 DLL 파일을 제공해 주더군요.

그냥 수신해서 보려면 수신한 데이터를 아래 함수를 이용해 보세요.

//-------------------------------------------------------//
function ByteToHexStr(reData: byte): string;
const s = '0123456789ABCDEF';
begin
     result := s[(reData div 16) + 1] + s[(reData mod 16) + 1];
end;
//-------------------------------------------------------//
function HexChrToByte(reC: char): byte;
begin
     case reC of
          '0'..'9' : Result := ord(reC) - ord('0');
          'A'..'F' : Result := ord(reC) - ord('A') + 10;
          'a'..'f' : Result := ord(reC) - ord('a') + 10;
     end;
end;
//-------------------------------------------------------//
function HexStrToByte(reData:string): byte;
Begin
     Result := HexChrToByte(reData[1]) shl 4
             + HexChrToByte(reData[2]);
end;
//-------------------------------------------------------//

procedure Tform1.VaCommRxChar(Sender: TObject; Count: Integer);
var rChr: Char;
    Cnt: integer;
    str: string;
begin
  str := '';
  for Cnt:=0 to Count - 1 do
  begin
    VaComm.ReadBuf(rChr,1);
    str := str + ChrToHex(rChr);
  end;
  Memo1.Line.Add(str);
end;