AIR·Î ¼¹ö¸¦ ±¸ÃàÇÏ°í
µ¨ÆÄÀÌ·Î Client¸¦ ±¸ÃàÇغ¸¾Ò½À´Ï´Ù.
¼¹ö -> Ŭ¶óÀ̾ðÆ® ·Î ¹®ÀÚ¿ °ªÀ» Àü¼ÛÅ×½ºÆ® ÇϱâÀ§ÇØ
¼¹ö¿¡ textÇʵå ÇÑ°³¿Í ¹öÆ°À» ¸¸µé°í,
textÇʵ忡 ½áÁø ¹®ÀÚ¿À» Àü¼ÛÇÏ°í ¹öÆ°À» ´©¸£Áö ¾Ê¾Æµµ Ãß°¡ÀûÀ¸·Î end ¶ó´Â
¹®ÀÚ¿À» Ãß°¡Àü¼Û ½ÃÄѺ¸¾Ò½À´Ï´Ù.
Ŭ¶óÀ̾ðÆ®´Â ¼¹ö¿¡¼ Àü¼ÛµÈ ³»¿ëÀ» ¹Þ¾Æ¼ ¸Þ¸ð¿¡ Âïµµ·Ï Çصξú½À´Ï´Ù.
¼¹ö¿¡¼ start ¶ó´Â ¹®ÀÚ¿ À» Àü¼ÛÇÑ °æ¿ì///
Ŭ¶óÀ̾ðÆ®°¡ óÀ½ Á¢¼ÓÇÏ¸é ¸Þ¸ð¿¡ ÂïÈú¶§..
receive => start
receive => end
ÀÌ·¸°Ô 2¹ø ¹®ÀÚ¿ÀÌ ¿Â °ÍÀ¸·Î 󸮰¡ µÇ¾î ÂïÈ÷°í..
´Ù½ÃÇѹø start ¶ó´Â ¹®ÀÚ¿À» Àü¼ÛÇϸé
receive => startend
ÀÌ·±½ÄÀ¸·Î ¹®ÀÚ¿ÀÌ 2°³°¡ ¿À´Â °ÍÀÌ ¾Æ´Ï¶ó 1°³·Î ÇÕÃÄÁ®¼ ¿À°Ô µË´Ï´Ù..
ÀϹÝÀûÀ¸·Î ¼ÒÄÏ¿¡¼ ¹®ÀÚ¿À» ¹ÞÀ»¶§..
TCPClient.readString À» ÀÌ¿ëÇϴµ¥..Ç÷¡½Ã¿Í ÇÏ´Ùº¸´Ï ´ÙÀ½°ú °°ÀÌ ¹®ÀÚ¿ °ªÀ»
¹Þ°Ô Çصξú½À´Ï´Ù..
var
si,cnt : Integer;
us: UTF8String;
begin
with TcpClient do begin
cnt := ReadFromStack;
us := ReadString(cnt);
Form1.Memo1.Lines.Add('receive->'+Utf8ToAnsi(us));
result := Utf8ToAnsi(us);
end;
end;
Ŭ¶óÀ̾ðÆ®¿¡¼ ¹®ÀÚ¿ÀÌ ÇÕÃÄÁ® µé¾î ¿À´Â ±Ùº»ÀûÀÎ ¿øÀÎÀ» ÇØ°áÇÒ ¼ö ÀÖ´Â ¹æ¹ýÀÌ ¾øÀ»Áö..
°í¼ö´ÔµéÀÇ Á¶¾ðÀ» ºÎŹµå¸³´Ï´Ù;;