salve a tutti!
sto utilizzando pdfshap e mi ritrovo con un pdf che contiene una immagine con queste righe:

/Type /XObject
/Filter /CCITTFaxDecode
/Subtype /Image
/BitsPerComponent 1
/ColorSpace /DeviceGray
/DecodeParms 158 0 R
/Width 1654
/Height 2340
/Length 159 0 R
ho provato diverse soluzioni salvo accorgermi che non c'è un metodo diretto per estrarre l'immagine (fosse stata un jpg sarebbe stato più semplice)

l'unico che sembra funzionare è questo:
....Dim immagine As Bitmap = ExportAsPngImage(xObject)
immagine.Save(Application.StartupPath & "\pippo.tiff", ImageFormat.Tiff)
...
Private Shared Function ExportAsPngImage(ByVal image As PdfDictionary) As Bitmap
        Dim width As Integer = image.Elements.GetInteger(PdfImage.Keys.Width)
        Dim height As Integer = image.Elements.GetInteger(PdfImage.Keys.Height)
        Dim bitsPerComponent As Integer = image.Elements.GetInteger(PdfImage.Keys.BitsPerComponent)
        Dim canUnfilter = image.Stream.TryUnfilter()
        Dim decoded = image.Stream.Value
        Dim bmp As Bitmap = New Bitmap(width, height, System.Drawing.Imaging.PixelFormat.Format1bppIndexed)
        Dim bmpData As BitmapData = bmp.LockBits(New Rectangle(0, 0, bmp.Width, bmp.Height), ImageLockMode.[WriteOnly], bmp.PixelFormat)
        Marshal.Copy(decoded, 0, bmpData.Scan0, decoded.Length)
        bmp.UnlockBits(bmpData)
        Return bmp
    End Function
il problema è che l'immagine risulta quasi completamente nera tranne una manciata di righe in alto... come se non fosse corretta la decodifica delle stream
avete qualche idea?
grazie