Bildkompression ändern

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von -Franky-.

    Bildkompression ändern

    Hallo,

    ich versuche ein VB6-Scanprogramm nachzubauen, dieses mal mit WIA statt mit Twain. Der Probleme waren viele, die meisten sind gelöst. Ich habe im folgenden Code die Problemstellen markiert. Da die Dateien mit rund 2 MB viel zu groß geworden sind und der einzige Unterschied zu den VB6-Scans, der mir auffiel, die verwendete Kompression ist, wollte ich auf das Faxformat komprimieren.

    Zum einen weiß ich nicht, wie ich den Encoder handhaben soll - den Quellcode habe ich aus einem Forum. Zum anderen funktioniert hier bei meinem Einzugsscanner, der viele Blätter nacheinander einziehen kann, die Erkennung, ob noch ein Papier einliegt (bScanHasMorePages), nicht, der documentHandlingStatus.Value() ist immer 5 - da habe ich mir erstmal mit der Abfrage eines Fehlercodes geholfen - gar nicht schön und wohl auch nicht ganz korrekt :(

    Ich habe die Fehlerstellen mit {!} und mit Pfeilen markiert. Vllt. hat ja jmd. eine Idee ;)

    VB.NET-Quellcode

    1. Imports WIA
    2. ...
    4. Dim bHasMorePages As Boolean = True
    5. Dim n As Integer = 0
    6. While bHasMorePages
    7. Dim image As WIA.ImageFile = Nothing
    8. Dim Item As WIA.Item = TryCast(device.Items(1), WIA.Item)
    9. Try
    10. Dim WiaCommonDialog As WIA.CommonDialog = New WIA.CommonDialog()
    11. image = DirectCast(WiaCommonDialog.ShowTransfer(Item, WIA.FormatID.wiaFormatTIFF, False), WIA.ImageFile)
    13. Dim imageBytes = CType(image.FileData.BinaryData, Byte())
    14. Dim ms = New System.IO.MemoryStream(imageBytes)
    15. Dim img As System.Drawing.Image = System.Drawing.Image.FromStream(ms)
    16. 'Umwandeln in Graustufen
    17. Dim newBitmap As Bitmap = New Bitmap(image.Width, image.Height)
    18. Using g As Graphics = Graphics.FromImage(newBitmap)
    19. Dim colorMatrix As System.Drawing.Imaging.ColorMatrix = New System.Drawing.Imaging.ColorMatrix(New Single()() {New Single() {0.3F, 0.3F, 0.3F, 0, 0}, New Single() {0.59F, 0.59F, 0.59F, 0, 0}, New Single() {0.11F, 0.11F, 0.11F, 0, 0}, New Single() {0, 0, 0, 1, 0}, New Single() {0, 0, 0, 0, 1}})
    20. Dim imageAttributes As System.Drawing.Imaging.ImageAttributes = New System.Drawing.Imaging.ImageAttributes
    21. imageAttributes.SetColorMatrix(colorMatrix)
    22. g.DrawImage(img, New Rectangle(0, 0, img.Width, img.Height), 0, 0, img.Width, img.Height, GraphicsUnit.Pixel, imageAttributes)
    23. End Using
    24. 'Grosses Bild speichern - funktioniert
    25. Dim sFileName2 As String = "C:\tmp\PictureGrey_" & n.ToString() & ".tif"
    26. newBitmap.Save(sFileName2, System.Drawing.Imaging.ImageFormat.Tiff)
    28. 'Bildkompression ändern - funktioniert nicht
    29. Dim myImageCodecInfo() As System.Drawing.Imaging.ImageCodecInfo
    30. '------->
    31. myImageCodecInfo = {!}myImageCodecInfo.GetEncoderInfo("image/tiff")
    32. Dim myEncoder As System.Drawing.Imaging.Encoder
    33. myEncoder = System.Drawing.Imaging.Encoder.Compression
    34. Dim myEncoderParameters As System.Drawing.Imaging.EncoderParameters
    35. myEncoderParameters = New System.Drawing.Imaging.EncoderParameters(1)
    36. '------->
    37. Dim myEncoderParameter As {!}EncoderParameter
    38. myEncoderParameter = New System.Drawing.Imaging.EncoderParameter(myEncoder, System.Drawing.Imaging.EncoderValue.CompressionCCITT4)
    39. myEncoderParameters.Param(0) = myEncoderParameter
    41. '------->
    42. newBitmap.{!}Save(sFileName2, myImageCodecInfo, myEncoderParameters)
    44. Catch ex As Exception
    45. '------->
    46. If Err.Number = {!}-2145320957 Then
    47. 'Nichts mehr einzuziehen
    48. Exit Sub
    49. End If
    50. MessageBox.Show("Error : " + ex.Message)
    51. Finally
    52. Item = Nothing
    53. Dim documentHandlingSelect As [Property] = Nothing
    54. Dim documentHandlingStatus As [Property] = Nothing
    55. For Each prop As [Property] In device.Properties
    56. If prop.PropertyID = WIA_PROPERTIES.WIA_DPS_DOCUMENT_HANDLING_SELECT Then
    57. documentHandlingSelect = prop
    58. End If
    59. If prop.PropertyID = WIA_PROPERTIES.WIA_DPS_DOCUMENT_HANDLING_STATUS Then
    60. documentHandlingStatus = prop
    61. End If
    62. Next
    63. bHasMorePages = False
    64. If documentHandlingSelect IsNot Nothing Then
    65. If (Convert.ToUInt32(documentHandlingSelect.Value()) And WIA_DPS_DOCUMENT_HANDLING_SELECT.FEEDER) <> 0 Then
    66. bHasMorePages = ((Convert.ToUInt32(documentHandlingStatus.Value()) And WIA_DPS_DOCUMENT_HANDLING_STATUS.FEED_READY) <> 0)
    67. End If
    68. End If
    69. n += 1
    70. End Try
    71. End While


    *Topic verschoben*

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    @Zenker Hmm. GetEncoderInfo ist kein Member von ImageCodecInfo! k.A. wo Du das her kopiert hast. Wenn dann wäre GetEncoderInfo eine eigenständige Funktion der Dir den passenden Encoder zurück gibt.

    Ansonsten: k.A. wann da was an der GDI+ geändert wurde. Anscheinend muss das Bild nicht mehr im 1bppIndexed-Format vorliegen damit ein TIFF mit CCITT4 gespeichert werden kann. War aber mal so. ;)
    Mfg -Franky-

Facebook
Telefonspende