Commit d3b76a20 by Michael Brachmann

debugging websockets

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