Disconnected TCPServer thread won't terminate

[rlebeau]

I moved the disconnect to OnConnect like this:
...
The thread stayed alive and just kept calling OnExecute every 15 msec because I commented out the terminate:

Is there unread data left behind in AContext.Connection.IOHandler.InputBuffer? In between each call to OnExecute, the server checks the connection's Connected() method, and it should stop the thread once Connected() no longer returns True. However, Connected() will return True if there is unread data in the InputBuffer, even if the underlying socket is closed. Sometimes, when closing down a socket manually, you also need to clear the InputBuffer too, because of that reason.

Try this:

Code:

if Key = '' then // invalid websocket header
begin
  MadExcept.NameThread(GetCurrentThreadID, 'WebSocket No Key (' + IP + ')');
  LogData.Debug('WebSocket No Key (' + IP + ') ' + IntToStr(GetCurrentThreadID));
  AContext.Binding.CloseSocket;  // alternative to AContext.Connection.Disconnect
  AContext.Connection.IOHandler.InputBuffer.Clear;
  Exit;
end;