Skip to content

E
emiMobile
Commit a5a7e0d4 by Michael Brachmann
Options

debugging websockets

parent e1fe947d
Showing with 1 additions and 2 deletions
emiMobileServer/Source/Ws.ServiceImpl.pas
...@@ -4,7 +4,6 @@ interface ...@@ -4,7 +4,6 @@ interface
uses uses
Common.Logging, Common.Logging,
Common.Config,
System.SysUtils, System.SysUtils,
XData.Server.Module, XData.Server.Module,
XData.Service.Common, XData.Service.Common,
...@@ -45,7 +44,7 @@ begin ...@@ -45,7 +44,7 @@ begin
Upgrader := THttpServerContext.Current.Item<IWebSocketUpgrader>; Upgrader := THttpServerContext.Current.Item<IWebSocketUpgrader>;
if Upgrader = nil then if Upgrader = nil then
begin begin
TXDataOperationContext.Current.Handler.SetStatusCode(400); Logger.Log(1, 'websocket: no upgrader - not a websocket upgrade request');
Exit; Exit;
end; end;
Logger.Log(1, 'websocket upgrading-------'); Logger.Log(1, 'websocket upgrading-------');
......
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