안녕하세요? 빌더에 대해 공부하고있는 직장인입니다.
TServerSocket, TClientSocket을이용해

서버를 열고 클라이언트가 IP를 입력(포트는 강제지정 입력을 받지 않습니다.) 하여 접속후

SendText , ReceivedText 로 메세지를 주고 받을수 있는 만들었따고 하기도 민망한

정말 간단한 프로그램을 만들었습니다.

테스트결과 제컴퓨터 자체는 물론 회사내부에서는 메세지가 잘 전송되고 받아지는데

다른회사에있는 친구에게 exe파일을 주어 테스트한결과

서버에 접속 자체가 안됩니다..

뭐가문제일까요..;;

아니면 제가 개념자체를 잘못 이해하고있는건가요...;;

//------------Client 접속부분-----------------//
void __fastcall TForm1::ConnectClick(TObject *Sender)
{
  try
  {

     ClientSocket1->Active = false;
     InputQuery("Server를 입력하시던가... ","Server Address:",sServer);
     ClientSocket1->Host = sServer;
     ClientSocket1->Port = 8080;
     ClientSocket1->Active = true;
  }
  catch ( ... )
  {
     ShowMessage("Server 접속에 실패 했습니다, 서버를 실행해 주세요");
  }
}

ctNonBlocking 방식을 사용했습니다.

날씨 쌀쌀해지는데 감기들 조심하시고 좋은답변 기다리겟습니다..