GetImageInformation Example for C++Builder

   AnsiString msg;

   /* move to the first image element */
   LEADDicom1->FindFirstElement(TAG_PIXEL_DATA, false);

   LEADDicom1->GetImageInformation(0);
   msg = "Compression: " + IntToStr(LEADDicom1->ImageInfo.Compression) + "\n";
   msg = msg + "Photometric: " + IntToStr(LEADDicom1->ImageInfo.Photometric) + " - " + LEADDicom1->ImageInfo.PhotometricString + "\n";
   msg = msg + "Rows x Columns: " + IntToStr(LEADDicom1->ImageInfo.Rows) + " x " + IntToStr(LEADDicom1->ImageInfo.Columns) + "\n";

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

   ShowMessage(msg);