圖片的格式很多，一個圖片文件的後綴名並不能說明這個圖片的真正格式什麼，那麼如何獲取圖片的格式呢？我想到了幾個簡單但有效的方法，那就是讀取圖片文件的文件頭標識。我們知道各種格式的圖片的文件頭標識識不同的，因此我們可以通過判斷文件頭的標識來識別圖片格式。
我對各種格式的圖片文件頭標識進行了分析，不僅查找資料，也用十六進制編輯器察看過圖片的文件頭，以下是我收集、分析的結果，供大家參考。
1.JPEG
- 文件頭標識 (2 bytes): $ff, $d8 (SOI) (JPEG 文件標識)
- 文件結束標識 (2 bytes): $ff, $d9 (EOI)
2.TGA
- 未壓縮的前5字節 00 00 02 00 00
- RLE壓縮的前5字節 00 00 10 00 00
3.PNG
- 文件頭標識 (8 bytes) 89 50 4E 47 0D 0A 1A 0A
4.GIF
- 文件頭標識 (6 bytes) 47 49 46 38 39(37) 61
5.BMP
- 文件頭標識 (2 bytes) 42 4D
6.PCX
- 文件頭標識 (2 bytes) 0A 05
7.TIFF
- 文件頭標識 (2 bytes) 4D 4D 或 49 49
8.ICO
- 文件頭標識 (8 bytes) 00 00 01 00 01 00 20 20
9.CUR
- 文件頭標識 (8 bytes) 00 00 02 00 01 00 20 20
10.RIFF
- 文件頭標識 (4 bytes) 46 4F 52 4D
11.ANI
- 文件頭標識 (4 bytes) 52 49 46 46
根據這些文件頭標識的收集，我可以寫一個識別圖像格式的模塊了。但是在寫這個模塊之前可以對收集到的文件頭標識進行優化，使得程序中字符串比對次數儘量的少。
1.JPEG我們知需要比對文件頭的$ff, $d8這兩個字符，而不用讀取最後的兩個結束標識了。
2.TGA，ICO，CUR只需比對第三個與第五個字符即可。
3.PNG比對[89][50]這兩個字符。
4.GIF比對[47][49][46]與第五個字符。
廢話不多說了，利用內存流來判斷文件的格式，其實判斷文件的前幾個字節就可以簡單的判斷這個文件是什麼類型的文件，例如
jpg文件 是 FFD8 (從低位到高位就要反過來 D8FF 下面都是一樣)
BMP文件 是 424D ---4D42
其他的我就不一一列舉了，想知道跟多文件類型分別是用什麼字符作爲文件的開頭的話，下載個C32asm或者UE等這類16進制編輯器就可以看到了。
procedure TForm1.Button1Click(Sender: TObject); //Button1的單擊事件
var //聲明變量
MyImage:TMemoryStream; //內存流對象
Buffer:Word;
i:integer;
begin
if OpenDialog1.Execute then //OpenDialog1是一個文件打開對話框，在Delphi組件面版的Dialog頁中可以找到。
begin
MyImage:=TMemoryStream.Create; //建立內存流對象
try
MyImage.LoadFromFile(OpenDialog1.FileName); //把剛剛用戶選擇的文件載入到內存流中
MyImage.Position := 0; //移動指針到最開頭的位置
if MyImage.Size = 0 then //如果文件大小等於0，那麼
begin
//錯誤
ShowMessage('錯誤');
Exit;
end;
MyImage.ReadBuffer(Buffer,2); //讀取文件的前２個字節，放到Buffer裏面
if Buffer=$4D42 then //如果前兩個字節是以4D42[低位到高位]
begin
ShowMessage('BMP'); //那麼這個是BMP格式的文件
end
else if Buffer=$D8FF then //如果前兩個字節是以D8FF[低位到高位]
begin
//JPEG
ShowMessage('JPEG'); //........一樣 下面不註釋了
end
else if Buffer=$4947 then
begin
//GIF
ShowMessage('GIF');
end
else if Buffer=$050A then
begin
//PCX
ShowMessage('PCX');
end
else if Buffer=$5089 then
begin
//PNG
ShowMessage('PNG');
end
else if Buffer=$4238 then
begin
//PSD
ShowMessage('PSD');
end
else if Buffer=$A659 then
begin
//RAS
ShowMessage('RAS');
end
else if Buffer=$DA01 then
begin
//SGI
ShowMessage('SGI');
end
else if Buffer=$4949 then
begin
//TIFF
ShowMessage('TIFF');
end
else //如是其他類型的文件的話，直接顯示錯誤
begin
//ERR
ShowMessage('ERR');
end; //if
end; //if
finally
MyImage.Free; //釋放內存流對象
end;
end;