Redoc support added

500Foods · Oct 21, 2023 · bd73675 · bd73675
1 parent 90a6595
commit bd73675
Show file tree

Hide file tree

Showing 4 changed files with 25 additions and 2 deletions.
diff --git a/Unit1.dfm b/Unit1.dfm
@@ -17,6 +17,7 @@ object ServerContainer: TServerContainer
     SwaggerUIOptions.Enabled = True
     SwaggerUIOptions.ShowFilter = True
     SwaggerUIOptions.TryItOutEnabled = True
+    RedocOptions.Enabled = True
     Left = 216
     Top = 16
     object XDataServerCORS: TSparkleCorsMiddleware

diff --git a/Unit1.pas b/Unit1.pas
@@ -77,8 +77,9 @@   TServerContainer = class(TDataModule)
     function GetIP: String;
     procedure GetVersionInfo;
   public
-    REST_URL:string;
-    SWAG_URL: string;
+    REST_URL: String;
+    SWAG_URL: String;
+    REDOC_URL: String;
     ServerIP: String;
     AppVersionString: String;
     AppVersionShort: String;
@@ -189,12 +190,14 @@ procedure TServerContainer.DataModuleCreate(Sender: TObject);
     XDataServer.BaseURL := 'http://+:2001/tms/xdata';
     REST_URL := 'http://localhost:2001/tms/data';
     SWAG_URL := 'http://localhost:2001/tms/xdata/swaggerui';
+    REDOC_URL := 'http://localhost:2001/tms/xdata/redoc';
   end
   else
   begin
     XDataServer.BaseURL := 'https://+:10101/500Surveys';
     REST_URL := 'https://carnival.500foods.com:10101/500Surveys';
     SWAG_URL := 'https://carnival.500foods.com:10101/500Surveys/swaggerui';
+    REDOC_URL := 'https://carnival.500foods.com:10101/500Surveys/redoc';
   end;
 
   // NOW we can start this

diff --git a/Unit2.dfm b/Unit2.dfm
@@ -53,4 +53,13 @@ object MainForm: TMainForm
     TabOrder = 3
     OnClick = btSwaggerClick
   end
+  object btRedoc: TButton
+    Left = 252
+    Top = 8
+    Width = 75
+    Height = 25
+    Caption = 'Redoc'
+    TabOrder = 4
+    OnClick = btRedocClick
+  end
 end
diff --git a/Unit2.pas b/Unit2.pas
@@ -25,10 +25,12 @@   TMainForm = class(TForm)
     btStart: TButton;
     btStop: TButton;
     btSwagger: TButton;
+    btRedoc: TButton;
     procedure btStartClick(ASender: TObject);
     procedure btStopClick(ASender: TObject);
     procedure FormCreate(ASender: TObject);
     procedure btSwaggerClick(Sender: TObject);
+    procedure btRedocClick(Sender: TObject);
   strict private
     procedure UpdateGUI;
   end;
@@ -46,6 +48,14 @@ implementation
 
 { TMainForm }
 
+procedure TMainForm.btRedocClick(Sender: TObject);
+var
+  url: String;
+begin
+  url := ServerContainer.REDOC_URL;
+  ShellExecute(0, 'open', PChar(url), nil, nil, SW_SHOWNORMAL);
+end;
+
 procedure TMainForm.btStartClick(ASender: TObject);
 begin
   ServerContainer.SparkleHttpSysDispatcher.Start;