new

VERAG_PROG_ALLGEMEIN/frmScan.vb

@@ -64,7 +64,7 @@ Public Class frmScan
         checkImageCount()
         '  EnableControls(picboxScan)
     End Sub
-  
+
     Public Sub OnPreAllTransfers() Implements IAcquireCallback.OnPreAllTransfers
     End Sub
 
@@ -94,23 +94,15 @@ Public Class frmScan
             Return 1
         End If
     End Function
-    Public Function OnPreTransfer() As Boolean Implements IAcquireCallback.OnPreTransfer
-        Return True
-    End Function
+    'Public Function OnPreTransfer() As Boolean Implements IAcquireCallback.OnPreTransfer
+    '    Return True
+    'End Function
 
-    Public Sub OnSourceUIClose() Implements IAcquireCallback.OnSourceUIClose
-    End Sub
-    '
-    Public Sub OnTransferCancelled() Implements IAcquireCallback.OnTransferCancelled
-    End Sub
 
-    Public Sub OnTransferError() Implements IAcquireCallback.OnTransferError
-    End Sub
-
-    Public Function OnPostTransfer(bit As Bitmap) As Boolean Implements IAcquireCallback.OnPostTransfer
-        m_ImageCore.IO.LoadImage(bit)
-        Return True
-    End Function
+    'Public Function OnPostTransfer(bit As Bitmap) As Boolean Implements IAcquireCallback.OnPostTransfer
+    '    m_ImageCore.IO.LoadImage(bit) 'ungültiger Param????
+    '    Return True
+    'End Function
 
 
     Public Sub New()
@@ -120,7 +112,7 @@ Public Class frmScan
 
     Sub init()
 
-        Dim LICENSE_KEY_PDF = "f0068WQAAAH+gY718ZLeqQLD8lbOZ2FGn4EwqZXwHfnnHFla7+8MQS5/qOwvtYLWLNCl4FRxs5YG2tso5CsxMGiwxi1RLj1Q="
+        Dim LICENSE_KEY_PDF = "f0068NQAAAHHd/ZqHWlJjPt2W7f40pPn+818Q5PlZzXLGKw3w6Oi3zwzXWB45AOyom6xmOaVeS7nictDJNVEekShtfZmM2JE=" ' "f0068WQAAAH+gY718ZLeqQLD8lbOZ2FGn4EwqZXwHfnnHFla7+8MQS5/qOwvtYLWLNCl4FRxs5YG2tso5CsxMGiwxi1RLj1Q="
         Dim LICENSE_KEY = "f0068NQAAAMzfp6Gvu6Fz+I1fe35VMbxq4AjxirlBtKiw2m/c7+WFUo6cqKV9gdsrUF08tMFDzxyvK2qW7dkB/AMXwWP8+VE=" ' "f0068NQAAALO56JsMvaoZUvgW4W5pH3xZI04YVLRm6RjxrXBNGlXQX66fwwyD9MA7RooXB8R7IGVCGOs0LoQrz74BFUWxuTY="        '"t0068MgAAAIJug/9puT32C74ZTQ22FzetJ8QgWhH3CpvWhJ98JT07diK2qayDBNOEoyk+wYbapUbYlgyAVhm8wuu4zvTLfkw="
         '  Dim LICENSE_KEY_PDF = "t0068MgAAAIJug/9puT32C74ZTQ22FzetJ8QgWhH3CpvWhJ98JT07diK2qayDBNOEoyk+wYbapUbYlgyAVhm8wuu4zvTLfkw="
         '  Dim LICENSE_KEY = "t0068MgAAAIJug/9puT32C74ZTQ22FzetJ8QgWhH3CpvWhJ98JT07diK2qayDBNOEoyk+wYbapUbYlgyAVhm8wuu4zvTLfkw=" '""
@@ -216,6 +208,20 @@ Public Class frmScan
 
     Dim thread As Threading.Thread
 
+    Public ReadOnly Property IfGetImageInfo As Boolean Implements IAcquireCallback.IfGetImageInfo
+        Get
+            Return True '   Throw New NotImplementedException()
+        End Get
+    End Property
+    'Public Sub OnPostAllTransfers()
+    'End Sub
+
+    Public ReadOnly Property IfGetExtImageInfo As Boolean Implements IAcquireCallback.IfGetExtImageInfo
+        Get
+            Return True '    Throw New NotImplementedException()
+        End Get
+    End Property
+
     Private Sub startScanTimeout()
         'setup a timeout here to call the sub callbk when the time elapse.
         'for example, something like this
@@ -247,10 +253,21 @@ Public Class frmScan
                 Dim sTwainSourceCount As Short = m_TwainManager.SourceCount
                 Dim sCameraSourceCount As Short = 0
 
+                'm_TwainManager.TransferMode = Dynamsoft.TWAIN.Enums.TWICapSetupXFer.TWSX_FILE
+
 
                 If sSourceIndex < sTwainSourceCount Then
                     m_TwainManager.SelectSourceByIndex(sSourceIndex)
 
+
+                    ''vor Opensource
+                    'Dim tmpFile = Path.GetTempFileName & ".pdf"
+                    'tmpFile = "D:\Andreas\Dokumente\temptest<>.pdf"
+                    ''  m_TwainManager.SetFileXFERInfo(tmpFile, Dynamsoft.TWAIN.Enums.TWICapFileFormat.TWFF_PDFA2) ' Dynamsoft.DWT.EnumDWT_FileFormat)
+                    'm_TwainManager.TransferMode = Dynamsoft.TWAIN.Enums.TWICapSetupXFer.TWSX_FILE
+
+
+
                     m_TwainManager.OpenSource()
 
 
@@ -292,19 +309,36 @@ Public Class frmScan
 
                     'm_TwainManager.sca()
 
+
+
+                    'If m_TwainManager.TransferMode = Dynamsoft.TWAIN.Enums.TWICapSetupXFer.TWSX_FILE Then
+
+
+                    '    MsgBox("1")
+
+                    '    'If m_TwainManager.SetFileXFERInfo("C:\Temp\WebTWAINTEST<%06d>.bmp", Dynamsoft.TWAIN.Enums.TWICapFileFormat.TWFF_BMP) Then
+                    '    If m_TwainManager.SetFileXFERInfo(tmpFile, Dynamsoft.TWAIN.Enums.TWICapFileFormat.TWFF_PDF) Then
+                    '        MsgBox("2")
+                    '        m_TwainManager.AcquireImage(TryCast(Me, IAcquireCallback))
+                    '    End If
+
+                    'End If
+
                     m_TwainManager.AcquireImage(TryCast(Me, IAcquireCallback))
 
+
                 Else
                     Dim sCameraIndex As Short = CShort(sSourceIndex - sTwainSourceCount)
 
+
                 End If
             Catch exp As Exception
                 'EnableControls(picboxScan);
-                MsgBox("Scanner nicht verfügbar!")
+                MsgBox("Scanner nicht verfügbar!" & vbNewLine & exp.Message & exp.StackTrace)
             Finally
-                '   EnableControls(picboxScan)
                 m_TwainManager.Dispose()
 
+                GC.Collect()
                 pnl.Enabled = True
                 Me.Cursor = Cursors.Default
 
@@ -499,6 +533,9 @@ Public Class frmScan
             End If
         Catch ex As Exception
             MessageBox.Show(ex.Message)
+        Finally
+            m_ImageCore.Dispose() 'Speicherfreigabe
+
         End Try
     End Sub
 
@@ -674,6 +711,40 @@ Public Class frmScan
     Private Sub frmScan_TabStopChanged(sender As Object, e As EventArgs) Handles Me.TabStopChanged
 
     End Sub
+
+    'Public Sub OnPreAllTransfers() Implements IAcquireCallback.OnPreAllTransfers
+    '    Throw New NotImplementedException()
+    'End Sub
+
+
+
+    'Public Sub OnPostAllTransfers() Implements IAcquireCallback.OnPostAllTransfers
+    '    Throw New NotImplementedException()
+    'End Sub
+
+    Public Sub OnSourceUIClose() Implements IAcquireCallback.OnSourceUIClose
+        '  Throw New NotImplementedException()
+    End Sub
+
+    Public Sub OnTransferCancelled() Implements IAcquireCallback.OnTransferCancelled
+        'Throw New NotImplementedException()
+    End Sub
+
+    Public Sub OnTransferError() Implements IAcquireCallback.OnTransferError
+        'Throw New NotImplementedException()
+    End Sub
+
+    Public Function OnPostTransfer(bit As Bitmap, info As String) As Boolean Implements IAcquireCallback.OnPostTransfer
+        m_ImageCore.IO.LoadImage(bit) 'ungültiger Param????
+        GC.Collect()
+        Return True
+        'Throw New NotImplementedException()
+    End Function
+
+    Public Function OnPreTransfer() As Boolean Implements IAcquireCallback.OnPreTransfer
+        Return True
+        'Throw New NotImplementedException()
+    End Function
 End Class