SCANNING MULTIPLE DOCUMENTS.
Posted: Thu Aug 26, 2010 12:41 pm
hI,
I tried to read some previous cases regarding this but I have not been able to get useful information.
I am trying to scan multiple documents but when the scanner finish only the last page is saved.
Somehow my code looks like this.
Any help is appreciated on this case.
Alejandro
I tried to read some previous cases regarding this but I have not been able to get useful information.
I am trying to scan multiple documents but when the scanner finish only the last page is saved.
Somehow my code looks like this.
Code: Select all
While TwainSource.AcquireModal()
Debug.Print("Scanned an image")
GetImage(TwainSource)
End While
Code: Select all
Private Sub GetImage(ByVal TwainSource As VSTwain)
Dim noiseLevel As Single
If TwainSource.IsBlankImage(0, 1.0, noiseLevel) Then
Debug.Print("Blank page detected")
' Me.Jobs.Add(Me.CurrentJob)
RaiseEvent JobComplete(Me.CurrentJob)
Me.CurrentJob = New Scanjob(LoggedInUser)
Else
Dim img As New Bitmap(TwainSource.GetImage(0))
Dim sc As ScannedImage = Me.CurrentJob.AddImage(img, Date.Now.Ticks.ToString & ".tiff")
RaiseEvent NewDocumentScanned(sc)
End If
Debug.Print("Noise level: " & noiseLevel.ToString())
End Sub
Alejandro