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
|
|