Multi tenant and Swagger 2

[wlandgraf (Wagner Landgraf)]

Solution:

Multi Tenant and Swagger 2 - revisited

The thread was closed before I could add the code I used to make this work: procedure TServerContainer.ApiServerModuleCreate(Sender: TObject; Module: TXDataServerModule); begin Module.OnGetAbsoluteUrl := procedure(const Schema, Authority, Path, RelativeUrl: string; var Url: string) var Tenant: ITenant; UrlStart,UrlEnd: String; lPos: Integer; begin Tenant := THttpServerContext.Current.Item<ITenant>; if Tenant <> nil then begin lPos := U…