Skip to content

E
emiMobile
Commit ff7462d6 by Michael Brachmann
Options

debugging websockets

parent 9940be71
Showing with 2 additions and 1 deletions
emiMobileServer/Source/Ws.ServiceImpl.pas
...@@ -39,6 +39,7 @@ var ...@@ -39,6 +39,7 @@ var
Msg: IWebSocketMessage; Msg: IWebSocketMessage;
MsgStr: string; MsgStr: string;
begin begin
Result := '';
Logger.Log(1, 'websocket begin-------'); Logger.Log(1, 'websocket begin-------');
Upgrader := THttpServerContext.Current.Item<IWebSocketUpgrader>; Upgrader := THttpServerContext.Current.Item<IWebSocketUpgrader>;
...@@ -57,7 +58,7 @@ begin ...@@ -57,7 +58,7 @@ 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.PolicyViolation); WebSocket.SendClose(WebSocketStatusCodes.NormalClosure);
Exit; Exit;
end; end;
MsgStr := TEncoding.Default.GetString(Msg.Data); MsgStr := TEncoding.Default.GetString(Msg.Data);
......
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