Hello!
I am running this procedure before I to save to PDF and TIFF (to ensure the target to be not to big):
procedure TImgCollection.ResampleAll;
var
i: integer;
begin
for i := 0 to MView.ImageCount-1 do
begin
MView.MIO.Params[i].TIFF_Compression := ioTIFF_JPEG;
MView.MIO.Params[i].PDF_Compression := ioPDF_LZW;
end;
MView.IEMBitmap.ResampleAll(900, 900, rfLanczos3, True, True);
end;
The case is:
- I start a new component sessión, then I aquire from scanner a few images, and then I save to PDF.
- Then I save the same content to a TIFF.
- Then I do MView.Clear;
- Then I load the saved TIFF.
- Then I save to a new PDF.
Always the last saved PDF is 30% bigger than the first one.
Is there something I am missing?
Thank you!