Skip to content

E
emiMobile
Commit 39d668d7 by Michael Brachmann
Options

routing

parent 1f427e14
Showing with 2 additions and 4 deletions
emiMobileServer/Source/Ws.Server.Module.pas
...@@ -66,12 +66,11 @@ procedure TWsServerModule.StartWsServer(ABaseUrl: string; AModelName: string); ...@@ -66,12 +66,11 @@ procedure TWsServerModule.StartWsServer(ABaseUrl: string; AModelName: string);
var var
Url: string; Url: string;
begin begin
RegisterOpenApiService;
// [Route('ws')] on IWebSocketService appends /ws — don't double it here.
Url := ABaseUrl; Url := ABaseUrl;
if not Url.EndsWith('/') then if not Url.EndsWith('/') then
Url := Url + '/'; Url := Url + '/';
Url := Url + SERVER_PATH_SEGMENT;
XDataServer1.BaseUrl := Url; XDataServer1.BaseUrl := Url;
XDataServer1.ModelName := AModelName; XDataServer1.ModelName := AModelName;
......
emiMobileServer/Source/Ws.Service.pas
...@@ -10,7 +10,6 @@ const ...@@ -10,7 +10,6 @@ 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, Route('emimobile')]
......
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