>   // 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

Reply via email to