ImageEn, unit iexBitmaps

TIOParams.ResetInfo

TIOParams.ResetInfo


Declaration

procedure ResetInfo(ResetItems: TIEMetaInfoItems = []);


Description

Clear the meta-data within the current image to reduce its file size.
You can use ContainsInfo to determine what meta-data your file contains.

Note: Clearing InputICCProfile or JPEG_MarkerList may change the display of JPEG files that make use of an ICC Profile.

If Values for ResetItems is [] then all items are cleared. Values for ResetItems:
Value Description
ierAnnotations Clears ImageEnAnnot and ImagingAnnot
ierDicomTags Resets DICOM_Tags and DICOM position info
ierEXIF Calls ResetEXIF
ierICC Resets InputICCProfile
ierIPTC Resets IPTC_Info
ierJPEGMarkers Clears JPEG_MarkerList. Note: Does not remove ICC Profile Marker unless ierICC is also included
ierXMP Clears XMP_Info
ierOtherTextMeta Clears GIF_Comments, PNG_TextKeys, PNG_TextValues, TIFF_DocumentName, TIFF_ImageDescription, TIFF_PageName, IEN_Description, PDF Properties, TGA_Author, TGA_Descriptor, TGA_ImageName, PXM_Comments

This can be used to reduce the size of images.

The following operations are performed:
 Resets IPTC_Info
 Clears ImageEnAnnot
 Clears ImagingAnnot
 Clears JPEG_MarkerList
 Calls ResetEXIF to clear EXIF data
 Clears GIF_Comments
 Resets DICOM_Tags and DICOM position info
 Clears IEN_Description
 Clears PNG meta-data: PNG_TextKeys and PNG_TextValues
 Clears TIFF meta-data: TIFF_DocumentName, TIFF_ImageDescription and TIFF_PageName
 Clears TGA meta-data: TGA_Author, TGA_Descriptor and TGA_ImageName
 Clears PXM_Comments
 Clears XMP_Info
 Clears all PDF Properties
 Resets InputICCProfile


Demo

Demo  Demos\InputOutput\BatchConvert\BatchConvert.dpr


Example

// Clear all meta-data
ImageEnView1.IO.Params.ResetInfo();

// Clear meta-data excluding the ICC profile and JPEG_MarkerList
ImageEnView1.IO.Params.ResetInfo([ ierAnnotations, ierDicomTags, ierEXIF, ierIPTC, ierXMP, ierOtherTextMeta ]);

// Strip all tags from a dicom file
ImageEnView1.IO.LoadFromFile( OpenImageEnDialog1.FileName );
if  ImageEnView1.IO.Params.FileType = ioDICOM then
begin
  ImageEnView1.IO.Params.ResetInfo([ierDicomTags]);
  destFN := ChangeFileExt( ImageEnView1.IO.Params.FileName, '-ExclTags.dicom' );
  ImageEnView1.IO.InjectDICOMTags( ImageEnView1.IO.Params.FileName, destFN );
end;