GetImageInformation Example for Delphi

var
   strMsg: String;
begin
   LEADDicomDS1.GetImageInformation(0);
    strMsg:= 'Compression: ' + IntToStr(LEADDicomDS1.ImageInfo.Compression) + Chr(13) + Chr(10);
    strMsg:= strMsg + 'Photometric: ' + IntToStr(LEADDicomDS1.ImageInfo.Photometric) + ' - ' + LEADDicomDS1.ImageInfo.PhotometricString + Chr(13) + Chr(10);
    strMsg:= strMsg + 'Rows x Columns: ' + IntToStr(LEADDicomDS1.ImageInfo.Rows) + ' x ' + IntToStr(LEADDicomDS1.ImageInfo.Columns) + Chr(13) + Chr(10);
    strMsg:= strMsg + 'Bits Allocated: ' + IntToStr(LEADDicomDS1.ImageInfo.BitsAllocated) + Chr(13) + Chr(10);
    strMsg:= strMsg + 'Bits Stored: ' + IntToStr(LEADDicomDS1.ImageInfo.BitsStored) + Chr(13) + Chr(10);
    strMsg:= strMsg + 'High Bit: ' + IntToStr(LEADDicomDS1.ImageInfo.HighBit) + Chr(13) + Chr(10);
    strMsg:= strMsg + 'Pixel Representation: ' + IntToStr(LEADDicomDS1.ImageInfo.PixelRepresentation) + Chr(13) + Chr(10);
    strMsg:= strMsg + 'Planar Configuration: ' + IntToStr(LEADDicomDS1.ImageInfo.PlanarConfiguration) + Chr(13) + Chr(10);
    strMsg:= strMsg + 'ResolutionX: ' + IntToStr(LEADDicomDS1.ImageInfo.ResolutionX) + Chr(13) + Chr(10);
    strMsg:= strMsg + 'ResolutionY: ' + IntToStr(LEADDicomDS1.ImageInfo.ResolutionY) + Chr(13) + Chr(10);
    strMsg:= strMsg + 'SmallestImagePixelValue: ' + IntToStr(LEADDicomDS1.ImageInfo.SmallestImagePixelValue) + Chr(13) + Chr(10);
    strMsg:= strMsg + 'SmallestImagePixelValueFlag: ' + BoolToStr(LEADDicomDS1.ImageInfo.SmallestImagePixelValueFlag) + Chr(13) + Chr(10);
    strMsg:= strMsg + 'LargestImagePixelValue: ' + IntToStr(LEADDicomDS1.ImageInfo.LargestImagePixelValue) + Chr(13) + Chr(10);
    strMsg:= strMsg + 'LargestImagePixelValueFlag: ' + BoolToStr(LEADDicomDS1.ImageInfo.LargestImagePixelValueFlag) + Chr(13) + Chr(10);
    strMsg:= strMsg + 'RedEntries: ' + IntToStr(LEADDicomDS1.ImageInfo.RedEntries) + Chr(13) + Chr(10);
    strMsg:= strMsg + 'RedFirst: ' + IntToStr(LEADDicomDS1.ImageInfo.RedFirst) + Chr(13) + Chr(10);
    strMsg:= strMsg + 'RedBits: ' + IntToStr(LEADDicomDS1.ImageInfo.RedBits) + Chr(13) + Chr(10);
    strMsg:= strMsg + 'GreenEntries: ' + IntToStr(LEADDicomDS1.ImageInfo.GreenEntries) + Chr(13) + Chr(10);
    strMsg:= strMsg + 'GreenFirst: ' + IntToStr(LEADDicomDS1.ImageInfo.GreenFirst) + Chr(13) + Chr(10);
    strMsg:= strMsg + 'GreenBits: ' + IntToStr(LEADDicomDS1.ImageInfo.GreenBits) + Chr(13) + Chr(10);
    strMsg:= strMsg + 'BlueEntries: ' + IntToStr(LEADDicomDS1.ImageInfo.BlueEntries) + Chr(13) + Chr(10);
    strMsg:= strMsg + 'BlueFirst: ' + IntToStr(LEADDicomDS1.ImageInfo.BlueFirst) + Chr(13) + Chr(10);
    strMsg:= strMsg + 'BlueBits: ' + IntToStr(LEADDicomDS1.ImageInfo.BlueBits) + Chr(13) + Chr(10);
    strMsg:= strMsg + 'PaletteEntries: ' + IntToStr(LEADDicomDS1.ImageInfo.PaletteEntries) + Chr(13) + Chr(10);
    strMsg:= strMsg + 'PaletteFirst: ' + IntToStr(LEADDicomDS1.ImageInfo.PaletteFirst) + Chr(13) + Chr(10);
    strMsg:= strMsg + 'BitsPerPixel: ' + IntToStr(LEADDicomDS1.ImageInfo.BitsPerPixel) + Chr(13) + Chr(10);
    strMsg:= strMsg + 'Gray: ' + BoolToStr(LEADDicomDS1.ImageInfo.Gray) + Chr(13) + Chr(10);
    strMsg:= strMsg + 'Frames: ' + IntToStr(LEADDicomDS1.ImageInfo.Frames) + Chr(13) + Chr(10);

    ShowMessage(strMsg);
end;