안녕하세요 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");
  }
}