Aloaha ZUGFeRD

Bitte beachten Sie das der Lizenzschluessel im Beispiel ein zeitlich beschraenkter Demo Key ist.

Const License As String = "Q7Z6GRHW23F7RWJIGDZ4AX6FZM"
Dim alo As New Aloaha_ZUGFeRD.XML
Dim Attachments() As Aloaha_ZUGFeRD.iXML.PDFAttachment = {}
Dim i As Integer = 0
Dim InputPDF As String = "d:\input.pdf" 
Dim DoOverWrite As Boolean = True
If alo.Licensed(License) = True Then
   Attachments = alo.PDFAttachments(InputPDF, "", License)
      If Attachments.Length > 0 Then
         For i = LBound(Attachments) To UBound(Attachments)
            Call System.IO.File.WriteAllBytes("c:\pdf\" + Attachments(i).FileName,Attachments(i).FileBytes)
         Next i
      End If
End If