Declaration
function FindStreamFormat(Stream: TStream): TIOFileType;
Description
Returns the format of the file found in a stream by reading the file header.
Some formats
cannot be detected by content alone. Sony ARW and Kodak DCR are TIFF internally so will return as ioTIFF. WBMP and Implicit Dicom will return as ioUnknown.
Example
Stream1.Position := 0;
if FindStreamFormat( Stream1 ) = ioBMP then
ShowMessage( 'It is a bitmap' );