> // PING OK. DO DIRECT TCP CONNECTION > if not TestClientConnection(ClientIP, Err) then begin > Result := '***ERROR: Client TCP connection fail.';
If you really want to do these tests from the server, this needs to become async. You create an array of TWSocket or TMagIpLog components, either one for each client you are going to test or a pool (which is more complicated) setting the Tag to ClientUUID, then you put all your success or fail code in the OnSessionConnected and OnSessionClosed events. Using an array of TMagIpLogs in client mode is easiest, since it already contains threaded ping to test the connection before an open attempt is made, you need a single event onLogChangeEvent and to test LogState. Angus -- 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
