Commit a5a7e0d4 by Michael Brachmann

debugging websockets

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