묻고 답하기 › ascii 값을 보낼때 이렇게 하면 되나요??

이수정 2002.10.16 04:20:40
안녕하세요...

'A01', 'A02'... 와 같은 문자를 각각 바이트로 헥사값으로 변형시켜서
시리얼 포트를 통해 보내야 하는데요~~

제가 작성한 코드가 맞는건지 잘 모르겠네요~~

procedure TForm1.SendButtonClick(Sender: TObject);
var
  iCode, i : integer;
begin
  iCode := 0;
  str := 'A00';
  for i:=1 to length(str) do begin
    iCode := iCode + Byte(str[i]);
  end;

  ComPort.WriteStr(IntToStr(iCode) + #13#10)

  memo.lines.add(inttostr(iCode));
end;

이렇게 하면 제대로 가는 건가요???

iCode를 저렇게 + 시켜도 되는건지...

IntToStr로 변형시켜서 보내도 되는건지 모르겠네요...

memo에 출력시켜 보믄 그냥,,,  int값들이 더해져서 뿌려지는데...

저걸 받아서 "A01" 이라는걸 알까요??

댓글 [1]

Cancel