S
Sirius32ds
Guest
Hi there.
I'm using WIA to scan images before I run an OCR module.
The application is for visually impaired and or blind people who cannot handle a visual dialog.
I know about the possibility to disable the dialog e.g. by a code like:
Scanner.ShowUI = False
Unfortuneately this command seems to be a control sensitive command from ScannerActiveX which does not work longer in my PC (maybe to old?? And not compatible with Windows 10 64).
Im using the public function see below:
'**Quelle: deunkel: Image scan - VB.net using WIA - Windows 7
'Pfad zur Temp Datei des erfassten Bildes
Dim strTempImagePath As String = String.Empty
'Windows GUI zur Interaktion mit dem Gerät
Dim wiaDialog As New WIA.CommonDialog
'Fest vorgegebene Werte
'Variable für das erfasste Bild
Dim wiaImage As WIA.ImageFile = Nothing
Try
'Aufruf der Windows GUI zur Interaktion mit dem Gerät,
'rückgabe ist das erfasste Bild
wiaImage = wiaDialog.ShowAcquireImage(WIA.WiaDeviceType.ScannerDeviceType, , , , , )
Catch ex As Exception
MsgBox("Ein Fehler ist aufgetreten! Überprüfen Sie ob das Gerät Eingeschaltet und angeschlossen ist." & Environment.NewLine & Environment.NewLine & ex.Message)
End Try
If Not wiaImage Is Nothing Then
'Bild in Temporere Datei Speichern
strTempImagePath = ScanDir & "\LastScan.bmp"
If File.Exists(strTempImagePath) Then
My.Computer.FileSystem.DeleteFile(strTempImagePath)
End If
wiaImage.SaveFile(strTempImagePath)
Else
MsgBox("Es wurde kein Bild erfasst!", MsgBoxStyle.Information, "Information")
End If
Return strTempImagePath
End Function
Does there exist an easy way/method to set the scanner settings like:
resolution= 300
ImageType = Grayscale ...
and scan whitout dialog.
Liebe Grüße Stefan
Continue reading...
I'm using WIA to scan images before I run an OCR module.
The application is for visually impaired and or blind people who cannot handle a visual dialog.
I know about the possibility to disable the dialog e.g. by a code like:
Scanner.ShowUI = False
Unfortuneately this command seems to be a control sensitive command from ScannerActiveX which does not work longer in my PC (maybe to old?? And not compatible with Windows 10 64).
Im using the public function see below:
'**Quelle: deunkel: Image scan - VB.net using WIA - Windows 7
'Pfad zur Temp Datei des erfassten Bildes
Dim strTempImagePath As String = String.Empty
'Windows GUI zur Interaktion mit dem Gerät
Dim wiaDialog As New WIA.CommonDialog
'Fest vorgegebene Werte
'Variable für das erfasste Bild
Dim wiaImage As WIA.ImageFile = Nothing
Try
'Aufruf der Windows GUI zur Interaktion mit dem Gerät,
'rückgabe ist das erfasste Bild
wiaImage = wiaDialog.ShowAcquireImage(WIA.WiaDeviceType.ScannerDeviceType, , , , , )
Catch ex As Exception
MsgBox("Ein Fehler ist aufgetreten! Überprüfen Sie ob das Gerät Eingeschaltet und angeschlossen ist." & Environment.NewLine & Environment.NewLine & ex.Message)
End Try
If Not wiaImage Is Nothing Then
'Bild in Temporere Datei Speichern
strTempImagePath = ScanDir & "\LastScan.bmp"
If File.Exists(strTempImagePath) Then
My.Computer.FileSystem.DeleteFile(strTempImagePath)
End If
wiaImage.SaveFile(strTempImagePath)
Else
MsgBox("Es wurde kein Bild erfasst!", MsgBoxStyle.Information, "Information")
End If
Return strTempImagePath
End Function
Does there exist an easy way/method to set the scanner settings like:
resolution= 300
ImageType = Grayscale ...
and scan whitout dialog.
Liebe Grüße Stefan
Continue reading...
