Sierendurck, Kundenblatt, FaktAbrechnung (doppelte KeyPressedEvents), cDatenserver, etc.

VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb

@@ -1,19 +1,14 @@
 Imports System.Data.SqlClient
-Imports System.IO
-Imports iTextSharp.text.pdf
-Imports System.Drawing.Printing
-Imports Ghostscript.NET.Processor
-Imports System.Runtime.InteropServices
-Imports System.Windows.Forms
 Imports System.Drawing
-Imports Spire.Pdf.Print
-Imports Spire.Pdf
-Imports Spire.Pdf.HtmlConverter
-Imports System.Threading
+Imports System.Drawing.Printing
+Imports System.IO
 Imports System.Net
-
 Imports System.Text.RegularExpressions
-Imports System.Runtime.DesignerServices
+Imports System.Windows.Forms
+Imports iTextSharp.text.pdf
+Imports Spire.Pdf
+Imports Spire.Pdf.Print
+
 
 Public Class cDATENSERVER
 
@@ -2272,6 +2267,28 @@ Public Class DATENVERVER_OPTIONS
         Return ""
     End Function
 
+    Public Shared Function getFileExtensionFromBase64String(base64 As String) As String
+
+        Dim list As List(Of KeyValuePair(Of String, String)) = New List(Of KeyValuePair(Of String, String))
+        list.Add(New KeyValuePair(Of String, String)("JVBERi0", "pdf"))
+        list.Add(New KeyValuePair(Of String, String)("R0lGODdh", "gif"))
+        list.Add(New KeyValuePair(Of String, String)("iVBORw0KGgo", "png"))
+        list.Add(New KeyValuePair(Of String, String)("TU0AK", "tiff"))
+        list.Add(New KeyValuePair(Of String, String)("UEs", "gif"))
+        list.Add(New KeyValuePair(Of String, String)("PK", "zip"))
+
+        For Each type In list
+            If base64.Contains(type.Key) Then
+                Return type.Value
+            End If
+        Next
+
+        Return "unknown"
+
+
+
+    End Function
+
 
 End Class