diff --git a/mdl/m_io_sockets.pas b/mdl/m_io_sockets.pas index 77fbcf2..57b5ca5 100644 --- a/mdl/m_io_sockets.pas +++ b/mdl/m_io_sockets.pas @@ -188,6 +188,7 @@ Begin Result := fpSend(FSocketHandle, @Buf, Len, FPSENDOPT); While (Result = -1) and (SocketError = ESOCKEWOULDBLOCK) Do Begin + {$IFDEF SOCKETLOG} sLog('WriteBuf Blocking'); {$ENDIF} WaitMS(10);