GetImageInformation Example for Delphi

var
   msg: String;
begin
   { move to the first image element }
   LEADDicom1.FindFirstElement(TAG_PIXEL_DATA, false);

   LEADDicom1.GetImageInformation(0);
   msg := 'Compression: ' + IntToStr(LEADDicom1.ImageInfo.Compression) + #13 + #10;
   msg := msg + 'Photometric: ' + IntToStr(LEADDicom1.ImageInfo.Photometric) + ' - ' + LEADDicom1.ImageInfo.PhotometricString + #13 + #10;
   msg := msg + 'Rows x Columns: ' + IntToStr(LEADDicom1.ImageInfo.Rows) + ' x ' + IntToStr(LEADDicom1.ImageInfo.Columns) + #13 + #10;

   msg := msg + 'Bits Allocated: ' + IntToStr(LEADDicom1.ImageInfo.BitsAllocated) + #13 + #10;
   msg := msg + 'Bits Stored: ' + IntToStr(LEADDicom1.ImageInfo.BitsStored) + #13 + #10;
   msg := msg + 'High Bit: ' + IntToStr(LEADDicom1.ImageInfo.HighBit) + #13 + #10;
   msg := msg + 'Pixel Representation: ' + IntToStr(LEADDicom1.ImageInfo.PixelRepresentation) + #13#10;
   msg := msg + 'Planar Configuration: ' + IntToStr(LEADDicom1.ImageInfo.PlanarConfiguration) + #13#10;
   msg := msg + 'ResolutionX: ' + IntToStr(LEADDicom1.ImageInfo.ResolutionX) + #13#10;
   msg := msg + 'ResolutionY: ' + IntToStr(LEADDicom1.ImageInfo.ResolutionY) + #13#10;
   msg := msg + 'SmallestImagePixelValue: ' + IntToStr(LEADDicom1.ImageInfo.SmallestImagePixelValue) + #13#10;
   msg := msg + 'SmallestImagePixelValueFlag: ' + IntToStr(LEADDicom1.ImageInfo.SmallestImagePixelValueFlag) + #13#10;
   msg := msg + 'LargestImagePixelValue: ' + IntToStr(LEADDicom1.ImageInfo.LargestImagePixelValue) + #13#10;
   msg := msg + 'LargestImagePixelValueFlag: ' + IntToStr(LEADDicom1.ImageInfo.LargestImagePixelValueFlag) + #13#10;
   msg := msg + 'RedEntries: ' + IntToStr(LEADDicom1.ImageInfo.RedEntries) +#13#10;
   msg := msg + 'RedFirst: ' + IntToStr(LEADDicom1.ImageInfo.RedFirst) +#13#10;
   msg := msg + 'RedBits: ' + IntToStr(LEADDicom1.ImageInfo.RedBits) +#13#10;
   msg := msg + 'GreenEntries: ' + IntToStr(LEADDicom1.ImageInfo.GreenEntries) + #13#10;
   msg := msg + 'GreenFirst: ' + IntToStr(LEADDicom1.ImageInfo.GreenFirst) + #13#10;
   msg := msg + 'GreenBits: ' + IntToStr(LEADDicom1.ImageInfo.GreenBits) + #13#10;
   msg := msg + 'BlueEntries: ' + IntToStr(LEADDicom1.ImageInfo.BlueEntries) + #13#10;
   msg := msg + 'BlueFirst: ' + IntToStr(LEADDicom1.ImageInfo.BlueFirst) + #13#10;
   msg := msg + 'BlueBits: ' + IntToStr(LEADDicom1.ImageInfo.BlueBits) + #13#10;
   msg := msg + 'PaletteEntries: ' + IntToStr(LEADDicom1.ImageInfo.PaletteEntries) + #13#10;
   msg := msg + 'PaletteFirst: ' + IntToStr(LEADDicom1.ImageInfo.PaletteFirst) + #13#10;
   msg := msg + 'BitsPerPixel: ' + IntToStr(LEADDicom1.ImageInfo.BitsPerPixel) + #13#10;
   msg := msg + 'Gray: ' + IntToStr(LEADDicom1.ImageInfo.Gray) + #13#10;
   msg := msg + 'Frames: ' + IntToStr(LEADDicom1.ImageInfo.Frames) +#13#10;

   ShowMessage(msg);
end;