Would be nice if there would be debug log messages when creating (and maybe accepting) sockets (including pointer and socket handle like in "... will be connected to " message). It will help to track main stages of socket life. I added these lines
{$IFNDEF NO_DEBUG_LOG} if CheckLogOptions(loWsockInfo) then { V5.21 } { replaces $IFDEF DEBUG_OUTPUT } DebugLog(loWsockInfo, {$IFNDEF CLR}_IntToHex(INT_PTR(Self), SizeOf(Pointer) * 2) + ' ' +{$ENDIF} 'Socket created ' + _IntToStr(FHSocket)); {$ENDIF} to TCustomWSocket.Connect after "if FHSocket = INVALID_SOCKET then begin ... end;" and these {$IFNDEF NO_DEBUG_LOG} if CheckLogOptions(loWsockInfo) then { V5.21 } { replaces $IFDEF DEBUG_OUTPUT } DebugLog(loWsockInfo, {$IFNDEF CLR}_IntToHex(INT_PTR(Self), SizeOf(Pointer) * 2) + ' ' +{$ENDIF} 'Socket accepted ' + _IntToStr(FASocket)); {$ENDIF} to TCustomWSocket.Accept after "Result := FASocket;". -- Anton -- 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