JPG to TIF Group 4 Conversion

Hi,
  I'm having some issues converting a jpg type to a reasonable looking TIF. If I use a different image printer (Image001-OtherSoftware), I can get the image to look and physically print nicely. However, using the leadtools code the image looks horribly pixelated. What am I missing?

Attached are the sample files. Notice that I've tried LeadTools in both 100 and 600 resolutions.

    Public Shared Function ConvertJPGtoTIF(ByVal strImageFile As String) As String
        RasterCodecs.Startup()
        Dim codecs As New RasterCodecs, mDPI As Integer = 600

        'converting file
        Dim riConvertedImageFile As RasterImage = codecs.Load(strImageFile)
        codecs.Save(riConvertedImageFile, strConvertedJPGFilePath, RasterImageFormat.CcittGroup4, 0)
        riConvertedImageFile.Dispose()
        riConvertedImageFile = Nothing

        GC.Collect()                            'manually collection garbage, so the memory does not run out on large PDFs
        GC.WaitForPendingFinalizers()
        GC.Collect()
        GC.WaitForPendingFinalizers()

        RasterCodecs.Shutdown()
        Return strConvertedJPGFilePath
    End Function


-Kiima
LeadTools 16.5
WinForm VB.NET

The problem is that you're not taking control over the conversion from 24bpp color to 1bpp black and white.  RasterCodecs.Save will do some default conversions and usually just goes for the fastest method rather than the highest quality.  Use the ColorResolutionCommand to convert the image to 1bpp and specifying the desired flags for resampling the image data.

The other software appears to be some kind of print to file appliation.  It is upsizing the image based on the DPI you provided so it has more data to work with.  The RasterImage.XResolution and YResolution properties simply describe the image data.  You must proportionally resize the image data with the SizeCommand as well if you want it to be 600 DPI with the same print size.

Here's an example and I've attached the resulting image:

' load original file
Dim riConvertedImageFile As RasterImage = codecs.Load(Application.StartupPath + "\..\..\..\image001.jpg")

' proportionally resize to 600 DPI
Dim mDPI As Integer = 600
Dim cmdSize As New SizeCommand()
cmdSize.Flags = RasterSizeFlags.Bicubic
cmdSize.Width = riConvertedImageFile.Width * (mDPI / riConvertedImageFile.XResolution)
cmdSize.Height = riConvertedImageFile.Height * (mDPI / riConvertedImageFile.YResolution)
cmdSize.Run(riConvertedImageFile)

' Set DPI
riConvertedImageFile.XResolution = mDPI
riConvertedImageFile.YResolution = mDPI

' convert to 1bpp
Dim cmdColorRes As New ColorResolutionCommand()
cmdColorRes.BitsPerPixel = 1
cmdColorRes.Colors = 2
cmdColorRes.DitheringMethod = RasterDitheringMethod.FloydStein
cmdColorRes.Mode = ColorResolutionCommandMode.InPlace
cmdColorRes.Order = RasterByteOrder.Bgr
cmdColorRes.PaletteFlags = ColorResolutionCommandPaletteFlags.Fixed
cmdColorRes.Run(riConvertedImageFile)

'save the image
codecs.Save(riConvertedImageFile, Application.StartupPath + "\..\..\..\out.tif", RasterImageFormat.CcittGroup4, 0)

Thanks so much! That's exactly what I was looking for. I had tried the SizeCommand, but was missing the ColorResolutionCommand.

Thanks again,
   -Kiima