CID ´Ü¸»±â´Â ÄÄÇ»ÅÍÀÇ ½Ã¸®¾óÆ÷Æ®¿¡ ¿¬°áµË´Ï´Ù. ÀüȰ¡ °É·Á¿À¸é ½Ã¸®¾óÆ÷Æ®·Î ÀüȹøÈ£¿Í ½Ã°£À» Àü´ÞÇÕ´Ï´Ù. ÇÁ·Î±×·¥¿¡¼´Â ½Ã¸®¾óÆ÷Æ®·Î ½ÅÈ£°¡ µé¾î¿À¸é ÇØ´ç ½ÅÈ£¿¡¼ ÀüȹøÈ£¸¸À» »Ì¾Æ¼ °í°´µ¥ÀÌŸº£À̽º¸¦ °Ë»öÇÏ¿© µ¿ÀÏÇÑ ÀüȹøÈ£¿¡ ÇØ´çµÇ´Â °í°´ÀڷḦ º¸¿©ÁÖ¸é µË´Ï´Ù. ½Ã¸®¾óÆ÷Æ®·Î ½ÅÈ£°¡ µé¾î¿À´ÂÁö È®ÀÎÇÏ·Á¸é Á÷Á¢ ÄÚµùÀ» ÇÏ´ø°¡ ½ÃÁß¿¡ °ø°³µÈ °ø°³¿ë ¶óÀ̺귯¸®¸¦ »ç¿ëÇÏ´ø°¡ Æí¸®ÇÑ ¹æ¹ýÀ» ¸ð»öÇØ¾ß ÇÕ´Ï´Ù. °ø°³¿ë ¶óÀ̺귯¸®Áß¿¡ µ¨ÆÄÀÌ¿¡¼ Æí¸®ÇÏ°Ô »ç¿ëÇϰԲû ¸¸µé¾îÁø ÄÄÆ÷³ÍÆ®ÀÔ´Ï´Ù. --------------------------------------------- ½Ã¸®¾óÅë½Å ȯ°æÀ» ´ÙÀ½°ú °°ÀÌ ¼³Á¤ÇÕ´Ï´Ù. »ç¿ëÇÏ´Â ½Ã¸®¾óÅë½Å¸ðµâ¿¡¼ Áö¿øµÇÁö¾Ê´Â Ç׸ñÀº ¹«½ÃÇÏ¿©µµ µË´Ï´Ù. BaudRate 4800 DataBits 8 DiscardNull True EventsChar #0 Events All True FlowsControls ControlDTR Enable ControlRTS Disable DSRSensitivity False FlowControl None OutCTSFlow False OutDSRFlow False TxContinueOnXoff False XoffChar #19 XonChar #17 XonXoffIn False XonXoffOut False StopBits 1 SyncMethos ThreadSync ---------------------------------------------------- ½Ã¸®¾óÆ÷Æ®¿¡ µ¥ÀÌŸ°¡ Àü¼ÛµÇ¸é OnRxChar À̺¥Æ®°¡ ¹ß»ýÇÕ´Ï´Ù. À̴ ÷ºÎµÈ ÄÄÆ÷³ÍÆ®¿¡¼ »ç¿ëµÇ´Â À̺¥Æ®ÀÌÁö¸¸ ½Ã¸®¾óÅë½Å¿¡¼´Â ÀϹÝÀûÀÎ À̺¥Æ®ÀÔ´Ï´Ù. µ¥ÀÌŸ´Â Çѹø¿¡ µé¾î¿À´Â°Ô ¾Æ´Ï°í ¿©·¯¹ø ³ª´µ¾îÁ® µé¾î¿É´Ï´Ù. 1.ComPortCID.Open; // ÀÀ¿ëÇÁ·Î±×·¥ ½ÃÀ۽ÿ¡ ½Ã¸®¾óÆ÷Æ® ¿±â 2.½ÅÈ£°¡ µé¾î¿À¸é À̺¥Æ®¹ß»ý 3.ComPortCID.Close; // ÀÀ¿ëÇÁ·Î±×·¥ Á¾·á½Ã¿¡ ½Ã¸®¾óÆ÷Æ® ´Ý±â procedure TFormSLCaller.ComPortCIDRxChar(Sender: TObject; Count: Integer); var Str : string; inc : integer; nChar : integer; aChar : char; begin ComPortCID.ReadStr(Str, Count); for inc := 1 to Count do begin aChar := Str[inc]; nChar := Ord(aChar); case nChar of 79: begin // ÀüȹøÈ£ ½Ã±×³¯½ÃÀÛ // ÀüȰ¡ ¿Ô½À´Ï´Ù. LineData := ''; end; 48: begin // ÀüȹøÈ£ ½Ã±×³¯³¡ // °Ë»ö·ÎÁ÷½ÇÇà ÀüȹøÈ£´Â LineData¿¡ ÀúÀåµÇ¾îÀÖÀ½ MYCALL(LineData); LineData := ''; end; else begin LineData := LineData + chr(nChar-16); end; end; //case end; //for do end;
|