Help

Hello,

Can you please tell provide me with the following:

1-
What Programming language and LEADTOOLS programming interface (.NET, DLL API, C++ Class Library, etc.) are you using?

2- What LEADTOOLS version (13, 14, 14.5, 15, etc.) are you using?

3-
How are you saving the image exactly? If you are facing an error, can you tell me the exact error message that you are getting?

Hello,
1.
I recommend that you use the GrayScale(8) method without the ColorRes method, because in your case it adds nothing.

2.
All 8-bit images (and less) in LEADTOOLS have palettes. The grayscale images will have a grayscale palette.

There
is a flag in the toolkit to store TIFF images as grayscale without a palette,
like the attached NoPalette.tif. Is this what you want? This flag is only
available in LEADTOOLS Raster Imaging Pro or higher toolkits, so if you need it, please send me your LEADTOOLS Pro serial number to support@leadtools.com.

File Attachment(s):

Sample.zip (1,139kb) downloaded 20 time(s).

We wanted to test product possibilities (LT Document Imaging Suite 14.5), and we have some problems with grayscale 8 bits pictures.

We tried a simple exemple :

·         Load a tif image (8 bits, grayscale, 300 dpi).

·         Save the image
in another file by a new LeadImage (and even without a new LeadImage, directly with the first one).

But when we checked the file with Kodak Imaging (windows 2000), the file is recognized as 256 colors and not as 256 grayscale. The problem is probably the palette which is used, so how to set some palette, and keep parameters to save the file ?

This is our code with Delphi  :

    Src.Load(‘c:\in.tif’, 0, 0, 1);

    if (Src.IsGrayscale <> GRAY_NO) then

        begin

   
            Dst.PaintSizeUseDPI := True;

   
            Dst.CreateBitmap(Round(Src.RgnWidth), Round(Src.RgnHeight), Dst.BitmapBits);

   
            // Dst.Fill(RGB(255, 255, 255));

   
            MyDC  := Src.GetClientDC;

   
            MyDDB := Src.GetDDB(MyDC);

   
            MyPalette := Src.GetBitmapPalette(MyDC);

   
            Dst.SetDDB(MyDC, MyDDB, MyPalette);

// Src.SetRgnRect (0, 0, Src.BitmapWidth, Src.BitmapHeight, L_RGN_SET);

   
            // Dst.SetRgnRect (0, 0, Src.BitmapWidth, Src.BitmapHeight, L_RGN_SET);

   
            //
Dst.CombineExt (0, 0, Src.RgnWidth, Src.RgnHeight, Src.Bitmap, 0, 0, CB_OP_AND + CB_DST_NOP);

   
            // Dst.ForceRepaint;

   
            Dst.Save ('C:\out.tif', Src.InfoFormat, Src.InfoBits, 0, SAVE_OVERWRITE);

        end;

Thanks.

The ability to save a TIF file without a flag is not available in the VCL interface.

However,
there are Pascal (Delphi) wrappers for our
DLLs, and since you have a LEADTOOLS Document Imaging toolkit, these wrappers should be installed on your PC under LEADTOOLS14.5\USES
 

Also,
you can use the DLL functions such as L_SaveBitmap with the image from the LEAD
VCL controls. To do that, pass the VCL control's Bitmap property as the BITMAPHANDLE pointer needed for these functions such as:
L_SaveBitmap('filename', pBitmapHandle(LEADImage1.bitmap), ...)