Skip to content

E
emiMobile
Commit 7cacc435 by emsys
Options

debugging websocket

parent 07612752
Showing with 2 additions and 2 deletions
emiMobileServer/Source/Ws.Server.Module.dfm
...@@ -16,7 +16,6 @@ object WsServerModule: TWsServerModule ...@@ -16,7 +16,6 @@ object WsServerModule: TWsServerModule
Left = 85 Left = 85
Top = 110 Top = 110
object XDataServer1WebSocket: TSparkleWebSocketMiddleware object XDataServer1WebSocket: TSparkleWebSocketMiddleware
Path = 'emimobile'
AllowedOrigins.Strings = ( AllowedOrigins.Strings = (
'*') '*')
end end
......
emiMobileServer/Source/Ws.Server.Module.pas
...@@ -52,6 +52,7 @@ uses ...@@ -52,6 +52,7 @@ uses
Common.Logging, Common.Logging,
Common.Middleware.Logging, Common.Middleware.Logging,
Common.Config, Vcl.Forms, IniFiles, Common.Config, Vcl.Forms, IniFiles,
XData.Service.Common,
Ws.ServiceImpl; Ws.ServiceImpl;
{%CLASSGROUP 'Vcl.Controls.TControl'} {%CLASSGROUP 'Vcl.Controls.TControl'}
...@@ -68,7 +69,7 @@ var ...@@ -68,7 +69,7 @@ var
begin begin
RegisterServiceType(TWebSocketService); RegisterServiceType(TWebSocketService);
Logger.Log(1, Format('Ws model "%s" registered TWebSocketService', [AModelName])); Logger.Log(1, Format('Ws model "%s" registered TWebSocketService', [AModelName]));
RegisterOpenApiService; //RegisterOpenApiService;
Url := ABaseUrl; Url := ABaseUrl;
if not Url.EndsWith('/') then if not Url.EndsWith('/') then
Url := Url + '/'; Url := Url + '/';
......
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