delphi: fixup

Author: NickVolynkin

Delphi/PDFReportGenerator.dpr

@@ -7,96 +7,95 @@ program PDFReportGenerator;
 uses
   System.SysUtils,
   System.Classes,
-  System.IniFiles,
   dxBackend,                     // DevExpress Reports and Dashboards backend
   dxBackend.Bundled,
   dxBackend.ConnectionString.SQL,
   dxReport,                      // DevExpress Reports frontend
   dxReport.Parameters;
-procedure ExportReportToPdf;
 
+// Export a report to a PDF file in headless mode:
+// without showing the report in the Report Designer or Report Viewer, or otherwise using UI.
+
+procedure ExportReportToPdf(const ALayout, AOrderID, AOutput: string);
+// Parameters:
+// ALayout: path to the report ALayout file (.repx), default value: '..\Order.repx'
+// AOrderID: order ID to filter report data, default value: '11077'
+// AOutput: path to the AOutput PDF file, default value: '<ALayout>_<AOrderID>.pdf'
 var
-  AConfig: TIniFile;
   AConnection: TdxBackendDatabaseSQLConnection;
   AReport: TdxReport;
   AReportParameter: TdxReportParameter;
   AStream: TMemoryStream;
 begin
-  // Start the DevExpress backend.
-  TdxBackend.Instance.Start;
-
-  // Read the configuration file.
-  AConfig := TIniFile.Create('..\PDFReportGenerator.ini');
+  // Create a database connection
+  AConnection := TdxBackendDatabaseSQLConnection.Create(nil);
   try
-    // Create a database connection.
-    AConnection := TdxBackendDatabaseSQLConnection.Create(nil);
+    // Assign a database name matching the name specified in the report ALayout
+    AConnection.DisplayName := 'NWindConnectionString';
+    // Assign a connection string to use the local SQLite database
+    AConnection.ConnectionString := 'XpoProvider=SQLite; Data Source=..\nwind.db; Mode=ReadOnly';
+
+    // Create a report instance
+    AReport := TdxReport.Create(nil);
     try
-      // Assign the name "NWindConnectionString" to the database connection.
-      // As part of this operation, the connection manager registers the connection and makes it available to reports by name.
-      AConnection.DisplayName := 'NWindConnectionString';
-      // AConnection.DisplayName := AConfig.ReadString('Connection', 'Name', '');
+      // Set an internal report name (does not affect the exported PDF content and file name)
+      AReport.ReportName := 'OrderReport';
+      // Load the report ALayout from the specified file
+      AReport.Layout.LoadFromFile(ALayout);
+      // Load report parameters to enable changing their values
+      AReport.LoadParametersFromReport;
 
-      // Assign a connection string specifying a SQLite database in `nwind.db`.
-      AConnection.ConnectionString := 'XpoProvider=SQLite; Data Source=..\nwind.db; Mode=ReadOnly';
-      // AConnection.ConnectionString := AConfig.ReadString('Connection', 'ConnectionString', '');
+      // Set the value of the "OrderIdParameter" parameter in the report ALayout
+      for AReportParameter in AReport.Parameters do
+        if AReportParameter.Name = 'OrderIdParameter' then
+          AReportParameter.Value := AOrderID;
 
-      // Create a new DevExpress Report.
-      AReport := TdxReport.Create(nil);
+      AStream := TMemoryStream.Create;
       try
-        // Assign a name to the newly created report.
-        AReport.ReportName := 'Order';
-
-        // Load report layout from a `.repx` layout file.
-        AReport.Layout.LoadFromFile('..\..\..\Order.repx');
-        // AReport.Layout.LoadFromFile(AConfig.ReadString('Report', 'LayoutFileName', ''));
-        
-        // Read a list of parameter names from the layout file.
-        // (Presented layout file has a single parameter named `OrderIdParameter`.)
-        AReport.LoadParametersFromReport;
-
-        // For each parameter, read and assign its value from the configuration file.
-        // Parameter values are used to filter data obtained from a database.
-        // The presented technique allows you to produce various reports by filtering data with parameters.
-        for AReportParameter in AReport.Parameters do
-          AReportParameter.Value := AConfig.ReadString('Parameters', AReportParameter.Name, '');
-
-        // Create a memory stream to hold the exported PDF data.
-        AStream := TMemoryStream.Create;
-        try
-          // Export the report to PDF format and save it to the memory stream.
-          AReport.ExportToPDF(AStream);
-          // Write the content of the memory stream to an output file.
-          // The file name is specified in the configuration file.
-
-          Writeln('Writing ' + AConfig.ReadString('Parameters', 'OrderIdParameter', 'unknown') + '.pdf');
-          AStream.SaveToFile(AConfig.ReadString('Parameters', 'OrderIdParameter', 'unknown') + '.pdf');
-
-//          AStream.SaveToFile(AConfig.ReadString('Report', 'OutputFileName', ''));
-        finally
-          Writeln('Running AStream.Free');
-          AStream.Free;
-          Writeln('Successful AStream.Free');
-        end;
+        // Export the report to PDF format and save it to a Stream object
+        AReport.ExportToPDF(AStream);
+        // Write the content of the Stream object to a file
+        AStream.SaveToFile(AOutput);
+        Writeln('Report saved to: ', AOutput);
       finally
-        Writeln('Running AReport.Free');
-        AReport.Free;
-        Writeln('Successful AReport.Free');
+        AStream.Free;
       end;
     finally
-      Writeln('Running AConnection.Free');
-      AConnection.Free;
-      Writeln('Successful AConnection.Free');
+      AReport.Free;
     end;
   finally
-    Writeln('Running AConfig.Free');
-    AConfig.Free;
-    Writeln('Successful AConfig.Free');
+    AConnection.Free;
   end;
 end;
 
+
+// The helper application entry point that parses command-line parameters and calls the export procedure
 begin
+  var
+    ALayout, AOrderID, AOutput, AParam: string;
   try
-    ExportReportToPdf;
+    ALayout := '..\Order.repx'; // Default value
+    AOrderID := '11077';        // Default value
+
+    // Parse command-line parameters in the format "key=value"
+    for var i := 1 to ParamCount do
+    begin
+      AParam := ParamStr(i);
+      if AParam.Contains('=') then
+      begin
+        var Key := Copy(AParam, 1, Pos('=', AParam) - 1).ToLower;
+        var Value := Copy(AParam, Pos('=', AParam) + 1, Length(AParam));
+
+        if Key = 'ALayout' then
+          ALayout := Value
+        else if Key = 'AOrderID' then
+          AOrderID := Value;
+      end;
+    end;
+
+    AOutput := ChangeFileExt(ALayout, '') + '_' + AOrderID + '.pdf';
+
+    ExportReportToPdf(ALayout, AOrderID, AOutput);
   except
     on E: Exception do
       Writeln(E.ClassName, ': ', E.Message);

PDFReportGenerator.ini

@@ -7,4 +7,4 @@ LayoutFileName=..\Layout.repx
 OutputFileName=Products.pdf
 
 [Parameters]
-OrderIdParameter=10248
+OrderIdParameter=11077