Commit 81810313 by Michael Brachmann

debugging websockets

parent ff7462d6
...@@ -58,7 +58,6 @@ begin ...@@ -58,7 +58,6 @@ begin
if Msg.MessageType <> TWebSocketMessageType.Text then if Msg.MessageType <> TWebSocketMessageType.Text then
begin begin
Logger.Log(1, 'websocket auth failed - expected text token-------'); Logger.Log(1, 'websocket auth failed - expected text token-------');
WebSocket.SendClose(WebSocketStatusCodes.NormalClosure);
Exit; Exit;
end; end;
MsgStr := TEncoding.Default.GetString(Msg.Data); MsgStr := TEncoding.Default.GetString(Msg.Data);
...@@ -87,7 +86,7 @@ begin ...@@ -87,7 +86,7 @@ begin
//TODO: store connection in map with device id, implement message protocol //TODO: store connection in map with device id, implement message protocol
end; end;
TWebSocketMessageType.Close: TWebSocketMessageType.Close:
WebSocket.SendClose(WebSocketStatusCodes.NormalClosure); Break;
end; end;
end; end;
finally finally
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment