김진 wrote:

> 어떤 아이피의 서버가 특정 포트를 열어 놓았는지 확인하려면

>

> 어떻게해야 하는지 알고 싶습니다.

>

> 제가 잘 몰라서요..

>

> 아시는분 꼭좀 부탁 드립니다.... (--)(__)(--)

>

>

직접 연결해 보면 되지여...





procedure TForm1.Button1Click(Sender: TObject);

begin

ClientSocket1.Address := '111.111.111.111';

ClientSocket1.Port := 1111;

ClientSocket1.Open;

end;



procedure TForm1.ClientSocket1Connect(Sender: TObject;

Socket: TCustomWinSocket);

begin

ShowMessage('연결이 되는군요');

end;



procedure TForm1.ClientSocket1Error(Sender: TObject;

Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;

var ErrorCode: Integer);

begin

ShowMessage('연결이 안되는 군요');

Socket.Close;

ErrorCode := 0;

end;