debugging websockets

emiMobileServer/Source/Ws.ServiceImpl.pas

@@ -39,6 +39,7 @@ var
   Msg: IWebSocketMessage;
   MsgStr: string;
 begin
+  Result := '';
   Logger.Log(1, 'websocket begin-------');
 
   Upgrader := THttpServerContext.Current.Item<IWebSocketUpgrader>;
@@ -57,7 +58,7 @@ begin
   if Msg.MessageType <> TWebSocketMessageType.Text then
   begin
     Logger.Log(1, 'websocket auth failed - expected text token-------');
-    WebSocket.SendClose(WebSocketStatusCodes.PolicyViolation);
+    WebSocket.SendClose(WebSocketStatusCodes.NormalClosure);
     Exit;
   end;
   MsgStr := TEncoding.Default.GetString(Msg.Data);