Umstellung auf Swagger 3

VERAG_REST_SERVER/App_Start/SwaggerConfig.vb

@@ -3,10 +3,10 @@ Imports System.Net.Http
 Imports System.Reflection
 Imports System.Web.Http
 Imports System.Web.Http.Description
+Imports System.Web.Routing
 Imports Microsoft.Extensions.Options
 Imports Swashbuckle.Application
-Imports Swashbuckle.Swagger
-Imports Swashbuckle.SwaggerUi
+Imports NSwag.AspNet.Owin
 
 
 
@@ -18,7 +18,7 @@ Public Class SwaggerConfig
     Private Shared descr As String = "VERAG API"
 
 
-    Public Shared Sub Register(ByVal config As HttpConfiguration)
+    Public Shared Sub Register2(ByVal config As HttpConfiguration)
         Dim thisAssembly = GetType(SwaggerConfig).Assembly
 
         Dim baseDirectory = AppDomain.CurrentDomain.BaseDirectory
@@ -84,4 +84,16 @@ Public Class SwaggerConfig
 
     End Function
 
+    Public Shared Sub Register(ByVal config As HttpConfiguration)
+        RouteTable.Routes.MapOwinPath("swagger", Function(app) As Owin.IAppBuilder
+                                                     Return app.UseSwaggerUi3(GetType(WebApiApplication).Assembly, Function(settings) As SwaggerUi3Settings(Of NSwag.Generation.WebApi.WebApiOpenApiDocumentGeneratorSettings)
+                                                                                                                       settings.MiddlewareBasePath = "/swagger"
+                                                                                                                       settings.GeneratorSettings.DefaultUrlTemplate = "api/{controller}/{id}"
+
+
+
+                                                                                                                       Return settings
+                                                                                                                   End Function)
+                                                 End Function)
+    End Sub
 End Class