不通过扩展名判断图像文件格式

　　编制一个小程序，需要判断图像文件格式。从网上搜索到，文件头第1个字节：１、$00 Icon；２、$42 Bmp；３、$FF JPEG 。据此进行判断。

　　此外，Jpeg文件的格式是以$FF $D8开头的，以$FF $D9结尾。但是有时候也并不一定以$FF $D9结尾，因为一般Jpeg解读代码读到$FF $D9的时候就终止解读了，但文件并不一定非要结束，可以继续有内容。有的Jpeg文件会在文件末尾加入额外内容，作为隐藏内容藏在文件中。就是所云的图片中隐藏的秘密。

　　综上所述，为了快速判断文件的图像内容是不是Jpeg文件格式的，可以预读一下文件头，如果是以$FF $D8开头，我们就可以认为文件是合法的Jpeg编码格式。

Delphi代码如下：
function IsGoodJpeg(fn: String): Boolean;
var
strm: TFileStream;
ch1, ch2: Byte;
n: Integer;
begin
Result := False;
if not FileExists(fn) then
Exit;

ch1 := $00;
ch2 := $00;
strm := TFileStream.Create(fn, fmOpenRead);
try
n := SizeOf(ch1);
if strm.Size > (n * 4) then
begin
strm.Read(ch1, n);
strm.Read(ch2, n);
if (ch1 = $ff) and (ch2 = $d8) then
Result := True;
end;
finally
strm.Free;
end;
end;