먼저 답변 감사합니다!!

제가 버전을 안 써놨었네요 ㅎ 버전은 Indy9입니다.

아래 코드와 같이 구현하지 않는다는 것을 잘 이해 못하겠습니다.

다른 데모 버전 보니깐 스레드로 구현을 해놨던데..

타이머가 아니라 스레드로서 구현한다는 것인가요?



둘리.CSIEDA 님이 쓰신 글 :
: Indy9 인가요? Indy9 blocking mode (indy10 도 마찬가지지만요)라면
: 코딩이 잘못 되셨습니다(꼭 잘못된 것은 아니고, 아래의 코드와 같이 구현하지 않거든요).
: 우선 확인 부탁 합니다.
:
:
:
: Kenzuro 님이 쓰신 글 :
: : 안녕하세요 Builder 초보 Kenzuro 입니다.
: :
: : 장비에서 값을 받아오는데.. 시간값을 명령어로 보내면 장비에서 데이터를 보내 주고 있습니다.
: :
: : 기본 소켓으로는 잘 되고 있었는데요. 그것을 인디로 바꾸 싶어서 공부를 하고 있습니다.
: :
: : 데이터는 D,M1,N001,40,30,40,0,N002.... 이런식으로 들어오는데 N060까지 들어옵니다.
: :
: : 채팅 데모 버전을 약간 수정해서 만들어봤는데요. 장비에 명령어를 보내도 감감 무소식입니다..
: :
: : 값을 받는 방법이 틀린건가요?? 도움 좀 주세요~
: :
: : 제가 만든 소스 첨부하겠습니다.
: :
: :

__fastcall TForm1::TForm1(TComponent* Owner)
: :         : TForm(Owner)
: : {
: : 
: :   IdSocketClient->Host = "192.168.0.50";
: :   IdSocketClient->Port = 5001;
: :   IdSocketClient->Connect();
: :   Sleep(1000);
: : 
: :   if(IdSocketClient->Connected() == true){
: :     ReceiveMemo->Lines->Add("Socket Connect Success\n================================\n");
: :   }else{
: :     ReceiveMemo->Lines->Add("Socket Connect fail\n================================\n");
: :   }
: : }
: : //---------------------------------------------------------------------------
: : 
: : void __fastcall TForm1::SendMessageClick(TObject *Sender)
: : {
: :   if(SendEdit->Text != ""){
: :     IdSocketClient->WriteLn(SendEdit->Text);
: :     Sleep(100);
: :     ReceiveMemo->Lines->Add("Send : " + SendEdit->Text+ "\n================================\n");
: :     SendEdit->Text = "";
: :   }
: : }
: : //---------------------------------------------------------------------------
: : void __fastcall TForm1::ReceiveTimerTimer(TObject *Sender)
: : {
: :   if(IdSocketClient->Connected()){
: :     static int errorcnt = 0;
: :     AnsiString Msg;
: : 
: :     if(!IdSocketClient->Connected())
: :       return;
: : 
: :     try{
: :      Msg = IdSocketClient->ReadLn("", 5);
: :      //IdSocketClient->ReadBuffer(Msg, 1024)
: :     }catch(...){
: :       errorcnt++;
: :       if(errorcnt > 4){
: :         ReceiveTimer->Enabled = false;
: :         ReceiveMemo->Lines->Add("IdSocketClient Error\n================================\n");
: :       }
: :     }
: : 
: :     if(Msg != ""){
: :       ReceiveMemo->Lines->Add("Recv : " + Msg +"\n================================\n");
: :       Msg = "";
: :     }
: :   }else{
: :     ReceiveTimer->Enabled = false;
: :     ReceiveMemo->Lines->Add("IdSocketClient DisConnect\n================================\n");
: :   }
: : }