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
