[twsocket] Check Remote Port

[chmichael]

Hello,
  Is there any easier way to check if a port is open on a remote server 
at runtime ?

var
  SocketError: Integer;

procedure TForm1.SessionConnected(Sender: TObject; ErrCode: Word);
begin
  SocketError := ErrCode;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  WSocket: TWSocket;
  Loop: Integer;
begin
  WSocket := twsocket.create(nil);
  WSocket.OnSessionConnected := SessionConnected;
  WSocket.Connect;

  Loop := 0;

  while Loop < 1000 do
  begin
    Application.ProcessMessages;
    Sleep(10);
    Inc(Loop, 10);
  end;

  Caption := IntToStr(SocketError); // WSocket.LastError = 0 ???
  FreeAndNil(WSocket);
end;

Thank you !!!
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be