delphi: Add application example

Author: Alex-Pertsev-DevExpress

.gitignore

@@ -31,6 +31,7 @@
 # Most of the time, files here have not there place in a code repository.
 #Win32/
 #Win64/
+#Win64x/
 #OSX64/
 #OSXARM64/
 #Android/
@@ -61,6 +62,7 @@
 *.cfg
 *.hpp
 *Resource.rc
+*.rsp
 
 # Delphi local files (user-specific info)
 *.local
@@ -75,6 +77,39 @@ __history/
 __recovery/
 *.~*
 
+
+# ------------------------------------------------------------
+# C++Builder specific
+# ------------------------------------------------------------
+
+# C++Builder compiler outputs
+*.obj
+*.hpp
+*.ilc
+*.ild
+*.ilf
+*.ils
+*.map
+*.tds
+
+# Precompiled headers
+*.pch
+
+# C++Builder packages and libraries
+*.bpl
+*.bpi
+*.lib
+*.a
+*.dll
+*.so
+
+# C++Builder intermediate / cache files
+*.cbproj.local
+*.cbproj.identcache
+*.cbproj.user
+*.cbtemp
+
+
 # Castalia statistics file (since XE7 Castalia is distributed with Delphi)
 *.stat
 

Delphi/PDFReportGenerator.dpr

@@ -0,0 +1,89 @@
+program PDFReportGenerator;
+
+{$APPTYPE CONSOLE}
+
+{$R *.res}
+
+uses
+  System.SysUtils,
+  System.Classes,
+  System.IniFiles,
+  dxBackend,
+  dxBackend.Bundled,
+  dxBackend.ConnectionString.SQL,
+  dxReport;
+
+procedure ExportReportToPdf;
+var
+  AManager: TdxBackendDataConnectionManager;
+  AConnection: TdxBackendDatabaseSQLConnection;
+  AReport: TdxReport;
+
+  AStream: TMemoryStream;
+
+  AIni: TIniFile;
+
+  AParamName: string;
+  AKeys: TStringList;
+  I: Integer;
+begin
+  TdxBackend.Instance.Start; // Start the backend
+
+  AManager := TdxBackendDataConnectionManager.Create(nil);
+  AIni := TIniFile.Create('..\PDFReportGenerator.ini');
+  try
+    AConnection := TdxBackendDatabaseSQLConnection(AManager.DataConnections.
+      Add(TdxBackendDatabaseSQLConnection));
+
+    AConnection.DisplayName := AIni.ReadString('Connection', 'Name', '');
+    AConnection.ConnectionString :=
+      AIni.ReadString('Connection', 'ConnectionString', '');
+    AConnection.Active := True;
+
+    AReport := TdxReport.Create(nil);
+    try
+      AReport.Layout.LoadFromFile(AIni.ReadString('Report', 'LayoutFileName', ''));
+      AReport.ReportName := 'Report';
+
+      AReport.LoadParametersFromReport;
+
+      AKeys := TStringList.Create;
+      try
+        for I := 0 to AKeys.Count - 1 do
+        begin
+          AParamName := AKeys[I];
+
+          if AReport.Parameters.ParamByName[AParamName] <> nil then
+            AReport.Parameters
+              .ParamByName[AKeys[I]]
+              .Value := AIni.ReadString('Parameters', AParamName, '');
+        end;
+      finally
+        AKeys.Free;
+      end;
+
+      AStream := TMemoryStream.Create;
+      try
+        AReport.ExportToPDF(AStream);
+        AStream.SaveToFile(AIni.ReadString('Report', 'OutputFileName', ''))
+      finally
+        AStream.Free;
+      end;
+    finally
+      AReport.Free;
+    end;
+  finally
+    AManager.Free;
+    AIni.Free;
+  end;
+end;
+
+begin
+  try
+    { TODO -oUser -cConsole Main : Insert code here }
+    ExportReportToPdf;
+  except
+    on E: Exception do
+      Writeln(E.ClassName, ': ', E.Message);
+  end;
+end.

Delphi/PDFReportGenerator.dproj

@@ -0,0 +1,10 @@
+[Connection]
+Name=MS SQL Connection
+ConnectionString=XpoProvider=MSSqlServer;data source=localhost;initial catalog=Northwind;integrated security=SSPI;TrustServerCertificate=True;
+
+[Report]
+LayoutFileName=..\Layout.repx
+OutputFileName=Products.pdf
+
+[Parameters]
+CategoryNameReportParameter=Grains/Cereals