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