Scanner mit einer bestimmten IP-Adresse mithilfe von wia ansteuern.

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von dive26.

    Scanner mit einer bestimmten IP-Adresse mithilfe von wia ansteuern.

    Hallo :)

    Ich steuere einen Scanner in vb.net mithilfe der wia Technologie an. Das funktioniert soweit.
    In meiner Testumgebung gibt es allerdings nur einen Scanner. Im Echtbetrieb wird es mehrere Scanner im Netzwerk geben.

    Benutzt wia standardmäßig den Standarddrucker vom PC oder kann man sogar via code die ip-Adresse des gewünschten Druckers angeben?

    Hier der Code den ich benutze:

    VB.NET-Quellcode

    1. Public Sub configure(device As WIA.Device, dpi As Integer, colorMode As Integer)
    2. 'Dim device As WIA.Device = dialog.ShowSelectDevice(WIA.WiaDeviceType.ScannerDeviceType, True, True)
    4. device.Items(1).Properties("6146").Value = colorMode
    5. device.Items(1).Properties("6147").Value = dpi
    6. device.Items(1).Properties("6148").Value = dpi
    7. 'device.Items(1).Properties("CENTERED").Value = getde
    8. 'device.Properties("WIA_DPS_SHEET_FEEDER_REGISTRATION").Value = device.Items(1).Properties("CENTERED").Value
    9. 'device.Items(1).Properties("3078").Value = "CENTERED"
    10. End Sub
    12. Public Function pdfScannen(sPfad As String) As Boolean
    13. Try
    14. Dim d As New WIA.CommonDialog()
    16. Dim dev As WIA.Device = d.ShowSelectDevice(WIA.WiaDeviceType.ScannerDeviceType, False, False)
    18. configure(dev, 300, 1)
    20. Try
    21. For Each itm As WIA.Item In dev.Items
    23. Dim img As WIA.ImageFile = itm.Transfer()
    25. Dim buffer As Byte() = CType(img.FileData.BinaryData, Byte())
    26. Dim ms As MemoryStream = New MemoryStream(buffer)
    28. convertToPDF(ms, sPfad)
    29. Next
    30. Catch ex As Exception
    31. Return False
    32. End Try
    33. Return True
    34. Catch ex As Exception
    35. MsgBox("Scannen nicht möglich: " & ex.Message)
    36. Return False
    37. End Try
    39. End Function



    MfG
    Greenbear
    We are all suckerz for something ...

    Dim dev As WIA.Device = d.ShowSelectDevice(WIA.WiaDeviceType.ScannerDeviceType, False, False)


    Der Scanner-Auswahldialo kommt mit TRUE statt false - also wo man den WIA-Treiber auswählen kann. Egal ob lokal oder im Netzwerk.
    Ich habe bisher nur mit TWAIN gearbeitet, brauche aber diese WIA Ansteuerung auch demnächst. Hänge mich hier mal dran und probiere gleich was aus.

    convertToPDF(ms, sPfad)

    Mich würde auch der Code von convertToPDF interessieren ;)

    Liebe Grüße
    Roland Berghöfer

    Meine aktuellen und kostenlos verwendbaren Tools (mit VB.NET erstellt): freeremarkabletools.com | priconman.com | SimpleCalendar | AudibleTouch | BOComponent.com | bonit.at

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „dive26“ ()

    @GreenBear

    Ich habe Deinen Code einmal ausgetestet und (für meine Zwecke) angepasst.
    Mit meinem Code bekomme ich einen Scanner-Dialog, eine Fortschrittsanzeige und die Datei wird im JPG Format mit wählbarer Kompressionsrate gespeichert.
    (im Anhang auch der Screenshot vom Scannerdialog)

    Button und Picturebox zur Anzeige auf einer Form zum Aufruf des Scanvorganges

    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    2. Me.Cursor = Cursors.WaitCursor
    3. Dim ScanDatei As String = "c:/demoscan.jpg"
    4. Dim Rueckgabewert As Boolean = WIAScan(ScanDatei, 100, 2, 50) '100dpi, graustufe und 50% JPG Qualität
    6. If Rueckgabewert = True Then
    7. Dim BildSpeicher As Image = System.Drawing.Image.FromFile(ScanDatei)
    8. PictureBox5.Image = New Bitmap(BildSpeicher)
    9. BildSpeicher.Dispose()
    10. End If
    11. Me.Cursor = Cursors.Default
    12. End Sub



    Modul mit den Funktionen

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports System.Drawing.Imaging
    4. Module mdl_scanner
    7. ''' <summary>
    8. ''' 1. zeigt den Scannerdialog zur Auswahl des Scanners
    9. ''' 2. Scannt in der angegebenen Auflösung und im angegebenen Farbmodus
    10. ''' 3. Speichert die Datei an den angegebenen Zielpfad als jpg-Datei mit angegebener Kompression
    11. ''' </summary>
    12. ''' <param name="WIAZieldatei"></param>
    13. ''' <param name="WIAResolution"></param>
    14. ''' <param name="WIAColorMode"></param>
    15. ''' <returns></returns>
    16. ''' <remarks></remarks>
    17. Public Function WIAScan(WIAZieldatei As String, WIAResolution As Integer, WIAColorMode As Integer, JPEGCompression As Integer) As Boolean
    19. Try
    20. Dim WIACommDlg As New WIA.CommonDialog()
    21. Dim WIADevice As WIA.Device = WIACommDlg.ShowSelectDevice(WIA.WiaDeviceType.ScannerDeviceType, True, False)
    23. WIADevice.Items(1).Properties("6146").Value = WIAColorMode '1=Farbe, 2=Graustufen, 4=schwarz/weiß
    24. WIADevice.Items(1).Properties("6147").Value = WIAResolution 'X-DPI
    25. WIADevice.Items(1).Properties("6148").Value = WIAResolution 'Y-DPI
    27. For Each WIAitem As WIA.Item In WIADevice.Items
    28. Dim WIAImage As WIA.ImageFile
    29. WIAImage = WIACommDlg.ShowTransfer(WIAitem, WIA.FormatID.wiaFormatJPEG, False)
    30. Dim BytePuffer As Byte() = CType(WIAImage.FileData.BinaryData, Byte())
    31. Dim MemStream As MemoryStream = New MemoryStream(BytePuffer)
    32. Dim BildZwischenspeicher As Image = Image.FromStream(MemStream)
    33. Dim KleinesBild As New Bitmap(BildZwischenspeicher)
    34. If File.Exists(WIAZieldatei) Then File.Delete(WIAZieldatei)
    35. SaveJpeg(WIAZieldatei, KleinesBild, JPEGCompression)
    36. Return True
    37. Next
    39. Catch ex As Exception
    40. MsgBox("Scannen nicht möglich: " & ex.Message)
    41. Return False
    42. End Try
    43. Return False
    44. End Function
    46. ''' <summary>
    47. ''' Speichert ein Image als .JPEG Datei mit angegebener Qualität von 0 bis 100 (100=beste Qualität)
    48. ''' </summary>
    49. ''' <param name="path"></param>
    50. ''' <param name="img"></param>
    51. ''' <param name="quality"></param>
    52. ''' <remarks></remarks>
    53. Private Sub SaveJpeg(ByVal path As String, ByVal img As Image, ByVal quality As Long)
    54. Dim qualityParam As New EncoderParameter(Encoder.Quality, quality)
    55. Dim jpegCodec As ImageCodecInfo = GetEncoderInfo("image/jpeg")
    56. Dim encoderParams As New EncoderParameters(1)
    57. encoderParams.Param(0) = qualityParam
    58. img.Save(path, jpegCodec, encoderParams)
    59. End Sub
    61. Private Function GetEncoderInfo(ByVal mimeType As String) As ImageCodecInfo
    62. Dim codecs As ImageCodecInfo() = ImageCodecInfo.GetImageEncoders()
    63. For i As Integer = 0 To codecs.Length - 1
    64. If (codecs(i).MimeType = mimeType) Then
    65. Return codecs(i)
    66. End If
    67. Next i
    68. Return Nothing
    69. End Function
    71. End Module

    Bilder

    • 17102018202942.jpg

      66,85 kB, 469×308, 134 mal angesehen
    Liebe Grüße
    Roland Berghöfer

    Meine aktuellen und kostenlos verwendbaren Tools (mit VB.NET erstellt): freeremarkabletools.com | priconman.com | SimpleCalendar | AudibleTouch | BOComponent.com | bonit.at

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „dive26“ ()

    Hallo nochmal. Nun ist es 20 nach Mitternacht und ich habe nochmals alles überarbeitet.
    Bevor ich zu Bett gehe, hier nochmals mein Ergebnis.

    Ich habe nun ein Modul (ja ja, keine Klasse) geschrieben das folgendes für mich erledigen soll:

    1. Scanner auswählen (UI-Dialog)
    2. Scanndialog (UI)
    3. Fortschrittsanzeige
    4. Scan in Graustufen und falls das Bild breiter als X (in meinem Fall 1200) ist, dann wird es automatisch verkleinert
    5. Das Bild wird mit der gewählten Kompressionsrate abgespeichert
    6. DPI wird nicht vorgegeben, da diese in der UI (Punkt2) jederzeit überschrieben und gewählt werden kann/könnte

    Mein Anwendungsbereich: Archivierung von Lieferscheinen - Graustufen und eine Maximalbildgröße für Lesbarkeit und kleinster Dateigröße.


    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    2. Me.Cursor = Cursors.WaitCursor
    3. Dim ScanDatei As String = Path.Combine(BONitERP2_DatenOrdner, "demoscan.jpg")
    4. Dim Rueckgabewert As Boolean = WIAScan(ScanDatei, 2, 50)) 'Graustufen und 50% JPG Qualität
    5. If Rueckgabewert = True Then
    6. Dim BildSpeicher As Image = System.Drawing.Image.FromFile(ScanDatei)
    7. PictureBox5.Image = New Bitmap(BildSpeicher)
    8. BildSpeicher.Dispose()
    9. End If
    10. Me.Cursor = Cursors.Default
    11. End Sub


    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports System.Drawing.Imaging
    4. Module mdl_scanner
    6. ''' <summary>
    7. ''' 1. zeigt den Scannerdialog zur Auswahl des Scanners
    8. ''' 2. Scannt in der angegebenen Auflösung und im angegebenen Farbmodus
    9. ''' 3. Speichert die Datei an den angegebenen Zielpfad als jpg-Datei mit angegebener Kompression
    10. ''' </summary>
    11. ''' <param name="WIAZieldatei"></param>
    12. ''' <param name="WIAColorMode"></param>
    13. ''' <returns></returns>
    14. ''' <remarks></remarks>
    15. Public Function WIAScan(WIAZieldatei As String, WIAColorMode As Integer, JPEGCompression As Long, Optional MaxBildBreite As Integer = 1200) As Boolean
    16. Try
    17. Dim WIACommDlg As New WIA.CommonDialog()
    18. Dim WIAImage As WIA.ImageFile
    19. WIAImage = WIACommDlg.ShowAcquireImage(WIA.WiaDeviceType.ScannerDeviceType, WIAColorMode, WIA.WiaImageBias.MinimizeSize, WIA.FormatID.wiaFormatJPEG, True, True, False)
    20. Dim BytePuffer As Byte() = CType(WIAImage.FileData.BinaryData, Byte())
    21. Dim MemStream As MemoryStream = New MemoryStream(BytePuffer)
    22. Dim BildZwischenspeicher As Image = Image.FromStream(MemStream)
    23. 'Hier könnte man das Bild noch verkleinern ... new Bitmap(image, neue Parameter)
    25. Dim BildBreite As Integer = BildZwischenspeicher.Width
    26. Dim BildHoehe As Integer = BildZwischenspeicher.Height
    27. Dim Ratio As Double = 0
    29. If BildZwischenspeicher.Width > 1200 Then
    30. 'auf MaxBildBreite verkleinern
    31. BildBreite = MaxBildBreite
    32. Ratio = 100 / BildZwischenspeicher.Width * BildBreite
    33. BildHoehe = CInt(BildZwischenspeicher.Height / 100 * Ratio)
    34. End If
    35. Dim KleinesBild As New Bitmap(BildZwischenspeicher, BildBreite, BildHoehe)
    36. If File.Exists(WIAZieldatei) Then File.Delete(WIAZieldatei)
    37. SaveJpeg(WIAZieldatei, KleinesBild, JPEGCompression)
    38. Return True
    39. Catch ex As Exception
    40. If ex.Message.Contains("0x80210015") Then
    41. MessageBox.Show("Kein WIA-fähiger Scanner auf Ihrem System gefunden!", "Scannen nicht möglich", MessageBoxButtons.OK, MessageBoxIcon.Stop)
    42. Else
    43. MessageBox.Show("Fehler beim Scannen: " & vbCrLf & ex.Message & vbCrLf & Err.Number.ToString, "Allgemeiner Scannerfeler", MessageBoxButtons.OK, MessageBoxIcon.Stop)
    44. End If
    45. Return False
    46. End Try
    47. Return False
    48. End Function
    50. ''' <summary>
    51. ''' Speichert ein Image als .JPEG Datei mit angegebener Qualität von 0 bis 100 (100=beste Qualität)
    52. ''' </summary>
    53. ''' <param name="path"></param>
    54. ''' <param name="img"></param>
    55. ''' <param name="quality"></param>
    56. ''' <remarks></remarks>
    57. Private Sub SaveJpeg(ByVal path As String, ByVal img As Image, ByVal quality As Long)
    58. Dim qualityParam As New EncoderParameter(Encoder.Quality, quality)
    59. Dim jpegCodec As ImageCodecInfo = GetEncoderInfo("image/jpeg")
    60. Dim encoderParams As New EncoderParameters(1)
    61. encoderParams.Param(0) = qualityParam
    62. img.Save(path, jpegCodec, encoderParams)
    63. End Sub
    65. Private Function GetEncoderInfo(ByVal mimeType As String) As ImageCodecInfo
    66. Dim codecs As ImageCodecInfo() = ImageCodecInfo.GetImageEncoders()
    67. For i As Integer = 0 To codecs.Length - 1
    68. If (codecs(i).MimeType = mimeType) Then
    69. Return codecs(i)
    70. End If
    71. Next i
    72. Return Nothing
    73. End Function
    74. End Module

    Liebe Grüße
    Roland Berghöfer

    Meine aktuellen und kostenlos verwendbaren Tools (mit VB.NET erstellt): freeremarkabletools.com | priconman.com | SimpleCalendar | AudibleTouch | BOComponent.com | bonit.at

    Danke @dive26 . Das mit dem Dialogfenster wusste ich schon.

    Ich möchte benutuzerabhängig (mithilfe einer XML-Datei oder der DB) einen bestimmten Scanner aufrufen ohne jedes Mal das Dialogfeld zu sehen. Deswegen die Frage nach dem Scannen über die IP-Adresse.


    Aber für deine Mühen hast du dir trotzdem den Code für convertToPDF verdient :D
    Ich benutze dafür die DLL von PdfSharp:

    VB.NET-Quellcode

    1. Public Sub convertToPDF(ms As Stream, sPfad As String)
    2. Dim pdf As New PdfSharp.Pdf.PdfDocument
    4. Dim page As PdfSharp.Pdf.PdfPage = pdf.AddPage
    6. Dim gfx As XGraphics = XGraphics.FromPdfPage(page)
    8. drawImage(gfx, ms, 0, 0, 605, 850)
    10. pdf.Save(sPfad)
    11. 'Process.Start(sPfad)
    12. End Sub
    14. Public Sub drawImage(gfx As XGraphics, ms As Stream, x As Integer, y As Integer, width As Integer, height As Integer)
    15. Dim image As XImage = XImage.FromStream(ms)
    16. gfx.DrawImage(image, x, y, width, height)
    17. End Sub
    We are all suckerz for something ...

    @GreenBear
    Wenn ich das richtig interpretiere, wird lediglich ein Bild ins PDF gespeichert? Also keine echte OCR.
    Das kann ich dann ja auch mit meiner VPE Komponente machen. Danke für den Tipp.

    Du könnstest einmalig mit ShowSelectDevice den Scanner wählen lassen und die Device-ID dann speichern.
    Wenn Du dann den Scanner ansprichst, dann gleich mit der Device-ID.

    VB.NET-Quellcode

    1. Dim WIACommDlg As New WIA.CommonDialog()
    2. Dim SelectedWIADevice As WIA.Device = WIACommDlg.ShowSelectDevice
    4. MsgBox("Device-ID zur Verwendung im nächsten DIREKTEN Aufruf des WIA Gerätes: " + SelectedWIADevice.DeviceID)

    Liebe Grüße
    Roland Berghöfer

    Meine aktuellen und kostenlos verwendbaren Tools (mit VB.NET erstellt): freeremarkabletools.com | priconman.com | SimpleCalendar | AudibleTouch | BOComponent.com | bonit.at