Anton S. wrote:
> 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;".
Thanks, added to the repository. Should also be included in next daily
snapshot downloadable at:
http://wiki.overbyte.be/wiki/index.php/ICS_Download
--
Arno Garrels
--
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
