´ñ±Û : 3 °³
Çѱ¹ µ¨ÆÄÀÌ µ¿È£È¸ µ¨¸¶´ç
Shawn
(ÀÌ°Ç)
 
¼¾¼­µ¥ÀÌÅÍ ¼ö½ÅÀº TComPort ÄÄÆ÷³ÍÆ®ÀÇ OnRxChar À̺¥Æ®¿¡¼­ Ã³¸®ÇϽðųª TComDataPacket ÄÄÆ÷³ÍÆ®¸¦ ½á¼­ ¼ö½ÅÇϽô °Ô ÁÁÀ» °Í °°½À´Ï´Ù. 
2020-07-31 ¿ÀÀü 9:30:32
jb
(LST)
 
¼³¸íÀÌ ºÎÁ·Ç߳׿ä ÇöÀç OnTxChar»ç¿ë ÁßÀÔ´Ï´Ù. 
2020-07-31 ¿ÀÀü 9:32:05
Shawn
(ÀÌ°Ç)
 
¾Æ·¡¿Í °°Àº ·ÎÁ÷À¸·Î Çϸ頵ÇÁö ¾ÊÀ»±î ½Í½À´Ï´Ù.

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var
  LReadString: String;
begin
  LReadString := '';
  ComPort1.ReadStr(LReadString, Count);

  if LReadString = '¼¾¼­1µ¥ÀÌÅͼöÁý' then
  begin
    Comport1.WriteStr('¼¾¼­2ÀÛµ¿¸í·É');
  end

  else if LReadString = '¼¾¼­2µ¥ÀÌÅͼöÁý' then
  begin
    Comport1.WriteStr('¼¾¼­3ÀÛµ¿¸í·É');
  end

  else if LReadString = '¼¾¼­3µ¥ÀÌÅͼöÁý' then
  begin
    Comport1.WriteStr('¼¾¼­1ÀÛµ¿¸í·É');
  end;
end; 
2020-07-31 ¿ÀÀü 11:15:14