Skip to content

E
emiMobile
Commit d3b76a20 by Michael Brachmann
Options

debugging websockets

parent 7702a8a7
Showing with 5 additions and 6 deletions
emiMobileServer/Source/Ws.Server.Module.pas
...@@ -65,9 +65,7 @@ procedure TWsServerModule.StartWsServer(ABaseUrl: string; AModelName: string); ...@@ -65,9 +65,7 @@ procedure TWsServerModule.StartWsServer(ABaseUrl: string; AModelName: string);
var var
Url: string; Url: string;
begin begin
RegisterServiceType(TWebSocketService); RegisterOpenApiService;
Logger.Log(1, Format('Ws model "%s" registered TWebSocketService', [AModelName]));
//RegisterOpenApiService;
Url := ABaseUrl; Url := ABaseUrl;
if not Url.EndsWith('/') then if not Url.EndsWith('/') then
Url := Url + '/'; Url := Url + '/';
......
emiMobileServer/Source/Ws.Service.pas
...@@ -10,11 +10,9 @@ const ...@@ -10,11 +10,9 @@ const
type type
[ServiceContract, Model(WS_MODEL)] [ServiceContract, Model(WS_MODEL)]
//[Route('ws')]
IWebSocketService = interface(IInvokable) IWebSocketService = interface(IInvokable)
['{673FE678-D9EF-468D-89CB-CEF26E8758BC}'] ['{673FE678-D9EF-468D-89CB-CEF26E8758BC}']
[HttpGet, Route('emimobile')] [HttpGet] procedure WebSockerConnectionHandler;
procedure WebSockerConnectionHandler;
end; end;
implementation implementation
......
emiMobileServer/Source/Ws.ServiceImpl.pas
...@@ -152,4 +152,7 @@ begin ...@@ -152,4 +152,7 @@ begin
end; end;
initialization
RegisterServiceType(TWebSocketService);
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