create pdf view from xrechnung.xml

Author: landrix

Distribution/installtools.ps1

@@ -30,26 +30,26 @@ If (Test-Path apache-fop){
   Remove-Item apache-fop -Recurse
 }
 
-Invoke-WebRequest -Uri https://github.com/itplr-kosit/validator/releases/download/v1.5.0/validator-1.5.0-distribution.zip -OutFile validator.zip
-Invoke-WebRequest -Uri https://github.com/itplr-kosit/validator-configuration-xrechnung/releases/download/release-2023-05-12/validator-configuration-xrechnung_2.3.1_2023-05-12.zip -OutFile validator-configuration23x.zip
-Invoke-WebRequest -Uri https://github.com/itplr-kosit/validator-configuration-xrechnung/releases/download/release-2023-11-15/validator-configuration-xrechnung_3.0.1_2023-11-15.zip -OutFile validator-configuration30x.zip
-Invoke-WebRequest -Uri https://github.com/itplr-kosit/xrechnung-visualization/releases/download/v2023-05-12/xrechnung-2.3.1-xrechnung-visualization-2023-05-12.zip -OutFile visualization23x.zip
-Invoke-WebRequest -Uri https://github.com/itplr-kosit/xrechnung-visualization/releases/download/v2023-11-15/xrechnung-3.0.1-xrechnung-visualization-2023-11-15.zip -OutFile visualization30x.zip
-Invoke-WebRequest -Uri https://github.com/adoptium/temurin17-binaries/releases/download/jdk-17.0.6%2B10/OpenJDK17U-jre_x64_windows_hotspot_17.0.6_10.zip -OutFile jre.zip
+Invoke-WebRequest -Uri "https://github.com/itplr-kosit/validator/releases/download/v1.5.0/validator-1.5.0-distribution.zip" -OutFile validator.zip
+Invoke-WebRequest -Uri "https://github.com/itplr-kosit/validator-configuration-xrechnung/releases/download/release-2023-05-12/validator-configuration-xrechnung_2.3.1_2023-05-12.zip" -OutFile validator-configuration23x.zip
+Invoke-WebRequest -Uri "https://github.com/itplr-kosit/validator-configuration-xrechnung/releases/download/release-2023-11-15/validator-configuration-xrechnung_3.0.1_2023-11-15.zip" -OutFile validator-configuration30x.zip
+Invoke-WebRequest -Uri "https://github.com/itplr-kosit/xrechnung-visualization/releases/download/v2023-05-12/xrechnung-2.3.1-xrechnung-visualization-2023-05-12.zip" -OutFile visualization23x.zip
+Invoke-WebRequest -Uri "https://github.com/itplr-kosit/xrechnung-visualization/releases/download/v2023-11-15/xrechnung-3.0.1-xrechnung-visualization-2023-11-15.zip" -OutFile visualization30x.zip
+Invoke-WebRequest -Uri "https://github.com/adoptium/temurin17-binaries/releases/download/jdk-17.0.6%2B10/OpenJDK17U-jre_x64_windows_hotspot_17.0.6_10.zip" -OutFile jre.zip
 #Invoke-WebRequest -Uri https://github.com/itplr-kosit/xrechnung-schematron/releases/tag/release-2.0.2 -OutFile schematron.zip
-#Invoke-WebRequest -Uri "https://www.apache.org/dyn/closer.cgi?filename=/xmlgraphics/fop/binaries/fop-2.8-bin.zip&action=download" -OutFile fop.zip
+Invoke-WebRequest -Uri "https://www.apache.org/dyn/closer.cgi?filename=/xmlgraphics/fop/binaries/fop-2.8-bin.zip&action=download" -OutFile fop.zip
 
 Expand-Archive validator.zip
 Expand-Archive validator-configuration23x.zip
 Expand-Archive validator-configuration30x.zip
 Expand-Archive visualization23x.zip
 Expand-Archive visualization30x.zip
 Expand-Archive jre.zip
-#Expand-Archive fop.zip
+Expand-Archive fop.zip
 Move-Item .\jre\jdk-17.0.6+10-jre .\java
 Remove-Item jre -Recurse
-#Move-Item .\fop\fop-2.8 .\apache-fop
-#Remove-Item fop -Recurse
+Move-Item .\fop\fop-2.8 .\apache-fop
+Remove-Item fop -Recurse
 
 If (Test-Path validator.zip){
   Remove-Item validator.zip

Samples/XRechnungProject.dpr

@@ -1,7 +1,7 @@
 {
-Copyright (C) 2023 Landrix Software GmbH & Co. KG
+Copyright (C) 2024 Landrix Software GmbH & Co. KG
 Sven Harazim, [email protected]
-Version 2.3.1
+Version 3.0.1
 
 License
 This file is not official part of the package XRechnung-for-Delphi.

Samples/XRechnungUnit1.dfm

@@ -193,7 +193,6 @@ object Form1: TForm1
     Width = 130
     Height = 25
     Caption = 'XRechnung als PDF'
-    Enabled = False
     TabOrder = 16
     OnClick = Button6Click
   end

Samples/XRechnungUnit1.pas

@@ -1,5 +1,5 @@
 {
-Copyright (C) 2023 Landrix Software GmbH & Co. KG
+Copyright (C) 2024 Landrix Software GmbH & Co. KG
 Sven Harazim, [email protected]
 Version 3.0.1
 
@@ -64,13 +64,15 @@   TForm1 = class(TForm)
   private
     WebBrowserContent : TStringList;
     WebBrowserContentFilename : String;
+    WebBrowserContentFilenamePdf : String;
     procedure Generate(inv : TInvoice);
   public
     DistributionBasePath : String;
     JavaRuntimeEnvironmentPath : String;
     ValidatorLibPath : String;
     ValidatorConfigurationPath : String;
     VisualizationLibPath : String;
+    FopLibPath : String;
   end;
 
 var
@@ -90,6 +92,7 @@ procedure TForm1.FormCreate(Sender: TObject);
   ValidatorLibPath := DistributionBasePath +'validator'+PathDelim;
   ValidatorConfigurationPath := DistributionBasePath +'validator-configuration'+ifthen(rbVersion.ItemIndex = 0,'23x','30x')+PathDelim;
   VisualizationLibPath := DistributionBasePath +'visualization'+ifthen(rbVersion.ItemIndex = 0,'23x','30x')+PathDelim;
+  FopLibPath := DistributionBasePath + 'apache-fop'+PathDelim;
 
   Width := 50;
   Top := 50;
@@ -98,6 +101,7 @@ procedure TForm1.FormCreate(Sender: TObject);
 
   WebBrowserContent := TStringList.Create;
   WebBrowserContentFilename := ExtractFilePath(Application.ExeName)+'content.html';
+  WebBrowserContentFilenamePdf := ExtractFilePath(Application.ExeName)+'content.pdf';
 end;
 
 procedure TForm1.FormDestroy(Sender: TObject);
@@ -774,8 +778,6 @@ procedure TForm1.Button6Click(Sender: TObject);
   cmdoutput : String;
   pdfresult : TMemoryStream;
 begin
-  //Experimental - it does not work
-
   btX2ConvertHTML.Visible := false;
   WebBrowser2.Navigate2('about:blank');
 
@@ -787,19 +789,23 @@ procedure TForm1.Button6Click(Sender: TObject);
     GetXRechnungValidationHelperJava.SetJavaRuntimeEnvironmentPath(JavaRuntimeEnvironmentPath)
         .SetValidatorLibPath(ValidatorLibPath)
         .SetVisualizationLibPath(VisualizationLibPath)
+        .SetFopLibPath(FopLibPath)
         .VisualizeFileAsPdf(od.FileName, (TXRechnungValidationHelper.GetXRechnungVersion(od.FileName) in [XRechnungVersion_230_UBL,XRechnungVersion_30x_UBL]),cmdoutput,pdfresult);
 
     Memo3.Lines.Text := cmdoutput;
 
-//    Doc := WebBrowser2.Document;
-//    Doc.Clear;
-//    if pdfresult <> nil then
-//    begin
-//      //pdfresult.SaveToFile();
-//      pdfresult.Free;
-//    end else
-//      Doc.Write('<html><body>Visualisierung nicht erfolgreich. Siehe Verzeichnis ./Distribution/Read.Me</body></html>');
-//    Doc.Close;
+    if pdfresult <> nil then
+    begin
+      pdfresult.SaveToFile(WebBrowserContentFilenamePdf);
+      pdfresult.Free;
+      WebBrowser2.Navigate2('file:///'+WebBrowserContentFilenamePdf);
+    end else
+    begin
+      WebBrowserContent.Text := '<html><body>Visualisierung nicht erfolgreich. Siehe Verzeichnis ./Distribution/Read.Me</body></html>';
+      WebBrowserContent.SaveToFile(WebBrowserContentFilename,TEncoding.UTF8);
+      WebBrowser2.Navigate2('file:///'+WebBrowserContentFilename);
+    end;
+
   finally
     od.Free;
   end;

intf.XRechnungValidationHelperJava.pas

@@ -27,6 +27,7 @@ interface
     function SetValidatorLibPath(const _Path : String) : IXRechnungValidationHelperJava;
     function SetValidatorConfigurationPath(const _Path : String) : IXRechnungValidationHelperJava;
     function SetVisualizationLibPath(const _Path : String) : IXRechnungValidationHelperJava;
+    function SetFopLibPath(const _Path : String) : IXRechnungValidationHelperJava;
     function Validate(const _InvoiceXMLData : String; out _CmdOutput,_ValidationResultAsXML,_ValidationResultAsHTML : String) : Boolean;
     function ValidateFile(const _InvoiceXMLFilename : String; out _CmdOutput,_ValidationResultAsXML,_ValidationResultAsHTML : String) : Boolean;
     function Visualize(const _InvoiceXMLData : String; _TrueIfUBL_FalseIfCII : Boolean; out _CmdOutput,_VisualizationAsHTML : String) : Boolean;
@@ -45,6 +46,7 @@   TXRechnungValidationHelperJava = class(TInterfacedObject,IXRechnungValidationH
     ValidatorLibPath : String;
     ValidatorConfigurationPath : String;
     VisualizationLibPath : String;
+    FopLibPath : String;
     CmdOutput : TStringList;
     function ExecAndWait(_Filename, _Params: string): Boolean;
     function QuoteIfContainsSpace(const _Value : String) : String;
@@ -55,6 +57,7 @@   TXRechnungValidationHelperJava = class(TInterfacedObject,IXRechnungValidationH
     function SetValidatorLibPath(const _Path : String) : IXRechnungValidationHelperJava;
     function SetValidatorConfigurationPath(const _Path : String) : IXRechnungValidationHelperJava;
     function SetVisualizationLibPath(const _Path : String) : IXRechnungValidationHelperJava;
+    function SetFopLibPath(const _Path : String) : IXRechnungValidationHelperJava;
     function Validate(const _InvoiceXMLData : String; out _CmdOutput,_ValidationResultAsXML,_ValidationResultAsHTML : String) : Boolean;
     function ValidateFile(const _InvoiceXMLFilename : String; out _CmdOutput,_ValidationResultAsXML,_ValidationResultAsHTML : String) : Boolean;
     function Visualize(const _InvoiceXMLData : String; _TrueIfUBL_FalseIfCII : Boolean; out _CmdOutput,_VisualizationAsHTML : String) : Boolean;
@@ -140,6 +143,13 @@ function TXRechnungValidationHelperJava.ExecAndWait(_Filename, _Params: string):
   end;
 end;
 
+function TXRechnungValidationHelperJava.SetFopLibPath(
+  const _Path: String): IXRechnungValidationHelperJava;
+begin
+  FopLibPath := IncludeTrailingPathDelimiter(_Path);
+  Result := self;
+end;
+
 function TXRechnungValidationHelperJava.SetJavaRuntimeEnvironmentPath(
   const _Path: String): IXRechnungValidationHelperJava;
 begin
@@ -454,9 +464,10 @@ function TXRechnungValidationHelperJava.VisualizeFileAsPdf(
   if not _TrueIfUBL_FalseIfCII then
   if not FileExists(VisualizationLibPath+'xsl\cii-xr.xsl') then
     exit;
-
   if not FileExists(VisualizationLibPath+'xsl\xrechnung-html.xsl') then
     exit;
+  if not FileExists(FopLibPath+'fop\build\fop.jar') then
+    exit;
 
   hstrl := TStringList.Create;
   cmd := TStringList.Create;
@@ -478,26 +489,58 @@ function TXRechnungValidationHelperJava.VisualizeFileAsPdf(
              QuoteIfContainsSpace(ValidatorLibPath+'libs\Saxon-HE-11.4.jar;'+ValidatorLibPath+'libs\xmlresolver-4.4.3.jar')+
              ' net.sf.saxon.Transform'+' -s:'+QuoteIfContainsSpace(ChangeFileExt(_InvoiceXMLFilename,'-xr.xml'))+
              ' -xsl:'+QuoteIfContainsSpace(VisualizationLibPath+'xsl\xr-pdf.xsl')+
-             ' -o:'+QuoteIfContainsSpace(ChangeFileExt(_InvoiceXMLFilename,'-.pdf')));
+             ' -o:'+QuoteIfContainsSpace(ChangeFileExt(_InvoiceXMLFilename,'-.fo'))); // geändert von pdf auf fo
 
-    cmd.SaveToFile(_InvoiceXMLFilename+'.bat',TEncoding.ANSI);
+    cmd.SaveToFile(_InvoiceXMLFilename+'.bat',TEncoding.ANSI); //ToDo
+    //cmd.SaveToFile(_InvoiceXMLFilename+'.bat');
 
     Result := ExecAndWait(_InvoiceXMLFilename+'.bat','');
 
     _CmdOutput := CmdOutput.Text;
 
     DeleteFile(_InvoiceXMLFilename+'.bat');
-    //DeleteFile(ChangeFileExt(_InvoiceXMLFilename,'-xr.xml'));
 
+    if not Result then
+      exit;
+
+    ////////////////////////////////////////////////////////////////////////////
+    // Fopper aufrufen. Datei ist eine fo Datei. Saxon HE gibt eine fo-Datei zurück!
+    // cmd Inhalt aus der apache-fop\foop\fop.bat ausgelesen mit echo "%JAVACMD%" %JAVAOPTS% %LOGCHOICE% %LOGLEVEL% -cp "%LOCALCLASSPATH%" %FOP_OPTS% org.apache.fop.cli.Main %FOP_CMD_LINE_ARGS%
+    if FileExists(ChangeFileExt(_InvoiceXMLFilename,'-.fo')) then
+    begin
+      cmd.Clear;
+      cmd.Add('pushd '+QuoteIfContainsSpace(ExtractFilePath(_InvoiceXMLFilename)));
+      cmd.Add(QuoteIfContainsSpace(JavaRuntimeEnvironmentPath+'bin\java.exe')+' -cp '+
+      QuoteIfContainsSpace(FopLibPath+'fop\build\fop.jar;'+FopLibPath+'fop\lib\batik-all-1.16.jar;' +
+                           FopLibPath+'fop\lib\commons-io-2.11.0.jar;'+FopLibPath+'fop\lib\commons-logging-1.0.4.jar;' +
+                           FopLibPath+'fop\lib\fontbox-2.0.24.jar;'+FopLibPath+'fop\lib\serializer-2.7.2.jar;' +
+                           FopLibPath+'fop\lib\xml-apis-1.4.01.jar;'+FopLibPath+'fop\lib\xml-apis-ext-1.3.04.jar;' +
+                           FopLibPath+'fop\lib\xmlgraphics-commons-2.8.jar;') +
+        ' org.apache.fop.cli.Main ' +
+        QuoteIfContainsSpace(ChangeFileExt(_InvoiceXMLFilename,'-.fo')) + ' ' +
+        QuoteIfContainsSpace(ChangeFileExt(_InvoiceXMLFilename,'-.pdf') ));
+
+      cmd.SaveToFile(_InvoiceXMLFilename+'.bat');
+
+      Result := ExecAndWait(_InvoiceXMLFilename+'.bat','');
+
+     _CmdOutput := _CmdOutput + #13#10 + CmdOutput.Text;
+
+     DeleteFile(_InvoiceXMLFilename+'.bat');
+     DeleteFile(ChangeFileExt(_InvoiceXMLFilename,'-.fo'));
+    end else
+      Result := false;
+
+    DeleteFile(ChangeFileExt(_InvoiceXMLFilename,'-xr.xml'));
+    ////////////////////////////////////////////////////////////////////////////
     if FileExists(ChangeFileExt(_InvoiceXMLFilename,'-.pdf')) then
     begin
       _VisualizationAsPdf := TMemoryStream.Create;
       _VisualizationAsPdf.LoadFromFile(ChangeFileExt(_InvoiceXMLFilename,'-.pdf'));
       _VisualizationAsPdf.Position := 0;
-      //DeleteFile(ChangeFileExt(_InvoiceXMLFilename,'-.pdf'));
+      DeleteFile(ChangeFileExt(_InvoiceXMLFilename,'-.pdf'));
     end else
       Result := false;
-
   finally
     hstrl.Free;
     cmd.Free;