用Delphi從內存流中判斷圖片格式

利用內存流來判斷文件的格式，其實判斷文件的前幾個字節就可以簡單的判斷這個文件是什麼類型的文件，例如

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;