Ich habe das Problem nun folgendermaßen gelöst:
Leider kann ich es noch nicht aus o.g. Grund ausprobieren.
VB.NET-Quellcode
- dim GescanntesBild as BitMap
- GescanntesBild = Scannen()
- Private Function Scannen() As Bitmap
- Dim ScanDialog As New WIA.CommonDialog
- 'Aufruf der Windows GUI zur Interaktion mit dem Gerät,
- 'rückgabe ist das erfasste Bild
- If Scannerdialog = 1 Then
- Dim Scannergebnis As WIA.ImageFile = Nothing
- Scannergebnis =
- ScanDialog.ShowAcquireImage(WIA.WiaDeviceType.ScannerDeviceType,
- WIA.WiaImageIntent.GrayscaleIntent, WIA.WiaImageBias.MaximizeQuality,
- WIAFormatJPEG, False, False, False)
- Application.DoEvents()
- If Scannergebnis IsNot Nothing Then
- Dim vector As WIA.Vector = Scannergebnis.FileData
- Dim Bild As New Bitmap(Image.FromStream(New MemoryStream(CType(vector.BinaryData(), Byte()))))
- Return Bild
- End If
- end if
- End Function
Leider kann ich es noch nicht aus o.g. Grund ausprobieren.