Delphi图片格式判断

本文整理自网络，侵删。

 
procedure TForm1.CheckImgType(fn: string);
var
  MyImage: TMemoryStream;
  Buffer: Word;
  i: integer;
begin
  MyImage := TMemoryStream.Create;
  try
    MyImage.LoadFromFile(fn);
    MyImage.Position := 0;
    if MyImage.Size = 0 then
    begin
      ShowMessage('错误');
      Exit;
    end;
    MyImage.ReadBuffer(Buffer, 2);
    if Buffer = $4D42 then
    begin
      ShowMessage('BMP');
    end
    else if Buffer = $D8FF then
    begin
      ShowMessage('JPEG');
    end
    else if Buffer = $4947 then
    begin
      ShowMessage('GIF');
    end
    else if Buffer = $050A then
    begin
      ShowMessage('PCX');
    end
    else if Buffer = $5089 then
    begin
      ShowMessage('PNG');
    end
    else if Buffer = $4238 then
    begin
      ShowMessage('PSD');
    end
    else if Buffer = $A659 then
    begin
      ShowMessage('RAS');
    end
    else if Buffer = $DA01 then
    begin
      ShowMessage('SGI');
    end
    else if Buffer = $4949 then
    begin
      ShowMessage('TIFF');
    end
    else //如是其他类型的文件的话，直接显示错误
    begin
      ShowMessage('ERR');
    end;

  finally
    MyImage.Free;
  end;
end;
 

相关阅读 >>

Delphi运行时的问题，cannot focus a disabled or invisible window！

Delphi 进程程序多开调用单元

Delphi 获取系统托盘程序列表

Delphi xe5 使用 android 内置函数几个小测试

Delphi 获取用户当前的windows临时文件夹

Delphi货币类型转中文大写金额

Delphi debug和release区别

Delphi 如何将颜色值转换为灰度颜色值？

Delphi读取文本文件的最后一行

Delphi 清空dbgrd和stringgrid

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi图片格式判断