Skip to content

E
emiMobile
Commit 3f6af6d6 by Michael Brachmann
Options

debugging websocket

parent 45399c29
Showing with 1 additions and 7 deletions
emiMobileServer/Source/Ws.Server.Module.pas
...@@ -49,9 +49,7 @@ uses ...@@ -49,9 +49,7 @@ uses
XData.Sys.Exceptions, XData.Sys.Exceptions,
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;
{%CLASSGROUP 'Vcl.Controls.TControl'} {%CLASSGROUP 'Vcl.Controls.TControl'}
...@@ -65,17 +63,13 @@ procedure TWsServerModule.StartWsServer(ABaseUrl: string; AModelName: string); ...@@ -65,17 +63,13 @@ procedure TWsServerModule.StartWsServer(ABaseUrl: string; AModelName: string);
var var
Url: string; Url: string;
begin begin
Logger.Log(1, 'StartWsServer: enter, XDataServer1.ModelName=[' + XDataServer1.ModelName + ']');
RegisterOpenApiService; RegisterOpenApiService;
RegisterServiceType(TWebSocketService);
Logger.Log(1, 'StartWsServer: RegisterServiceType(TWebSocketService) called');
Url := ABaseUrl; Url := ABaseUrl;
if not Url.EndsWith('/') then if not Url.EndsWith('/') then
Url := Url + '/'; Url := Url + '/';
Url := Url + SERVER_PATH_SEGMENT; Url := Url + SERVER_PATH_SEGMENT;
XDataServer1.BaseUrl := Url; XDataServer1.BaseUrl := Url;
XDataServer1.ModelName := AModelName; XDataServer1.ModelName := AModelName;
Logger.Log(1, 'StartWsServer: ModelName set to [' + XDataServer1.ModelName + ']');
SparkleHttpSysDispatcher3.Start; SparkleHttpSysDispatcher3.Start;
Logger.Log(1, Format('Ws server module listening at "%s"', [Url])); Logger.Log(1, Format('Ws server module listening at "%s"', [Url]));
end; end;
......
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