TIOMultiParams.DuplicateCompressionInfo
Declaration
procedure DuplicateCompressionInfo(IncludePDFInfo: Boolean = False);
Description
Clone the compression information from idx 0 to all frames of the current image.
If
IncludePDFInfo=True, PDF page properties are also duplicated.
The following properties are duplicated:
General-
BitsPerSample-
SamplesPerPixelTIFF-
TIFF_Compression-
TIFF_PhotometInterpret-
TIFF_PlanarConf-
TIFF_Orientation-
TIFF_EnableAdjustOrientation-
TIFF_JPEGQuality-
TIFF_JPEGColorSpace-
TIFF_FillOrder-
TIFF_ZIPCompression-
TIFF_StripCount-
TIFF_Normalize32fImagesGIF-
GIF_InterlacedICO-
ICO_FormatPS-
PS_CompressionPDF-
PDF_Compression-
PDF_PaperWidth (if
IncludePDFInfo=True)
-
PDF_PaperHeight (if
IncludePDFInfo=True)
-
PDF_PageMargin (if
IncludePDFInfo=True)
-
PDF_ImageOptions (if
IncludePDFInfo=True)
DICOM-
DICOM_Range-
DICOM_Compression-
DICOM_JPEGQuality-
DICOM_J2000RateSome other compression properties are also duplicated (though not used by multi-frame formats):
JPEG_ColorSpace,
JPEG_Quality,
JPEG_DCTMethod,
JPEG_CromaSubsampling,
JPEG_OptimalHuffman,
JPEG_Smooth,
JPEG_Progressive,
J2000_ColorSpace,
J2000_Rate,
J2000_ScalableBy,
J2000_SubSamplingH,
J2000_SubSamplingV,
J2000_Reduce,
J2000_Quality,
PNG_Interlaced,
PNG_Filter,
PNG_Compression,
TGA_Compressed,
TGA_GrayLevel,
PCX_Version,
PCX_Compression,
BMP_Version,
BMP_Compression,
BMP_HandleTransparency,
HDP_ImageQuality,
HDP_LosslessIEN_Compression,
SVG_ImageCompression,
PSD_LargeDocumentFormatExamples
// Change the compression method for a TIFF file
MBitmap := TIEMultiBitmap.create;
MBitmap.ParamsEnabled := True;
MBitmap.Read( 'C:\MyImage.tiff' );
MBitmap.Params[ 0 ].TIFF_Compression := ioTIFF_G4FAX;
MBitmap.DuplicateCompressionInfo();
MBitmap.Write( 'C:\OutImage.tiff' );
MBitmap.Free;
// Create a multi-frame DICOM image from a source file list
procedure TForm1.CreateMultiDicom(sl: TStrings; SaveFilename: string);
var
mbmp: TIEMultiBitmap;
bmp : TIEBitmap;
i: Integer;
begin
mbmp := TIEMultiBitmap.Create;
for i := 0 to sl.count-1 do
begin
bmp := TIEBitmap.Create();
bmp.ParamsEnabled := True;
bmp.Read(sl[i]);
mbmp.AppendImage(bmp);
bmp.Free;
end;
// Ensure all frames of DICOM are same size
for I := 1 to mbmp.Count - 1 do
begin
bmp := mbmp.GetTIEBitmap( I );
bmp.Resample( mbmp.ImageWidth[0], mbmp.ImageHeight[0], rfFastLinear );
mbmp.ReleaseBitmap( I, True );
end;
// Ensure all frames of DICOM have same duplication and pixel format info
mbmp.DuplicateCompressionInfo();
mbmp.Write( SaveFilename, ioDICOM );
mbmp.free;
end;
// Save all pages to PDF (A4) with centered images (and no scaling of small images)
ImageEnMView1.MIO.Params[0].PDF_PaperSize := iepA4;
ImageEnMView1.MIO.Params[0].PDF_PageMargin := Round( 0.25 * 72 ); // 1/4 inch
ImageEnMView1.MIO.Params[0].PDF_ImageOptions := [iepioShrinkOnly, iepioCentered];
ImageEnMView1.MIO.DuplicateCompressionInfo(TRUE);
ImageEnMView1.MIO.SaveToFilePDF('d:\test.pdf');