Delphi 从文件中读取图像类型


本文整理自网络,侵删。

 
从文件中读取图像类型
文件扩展名的更改可以与图像格式不同,因此您需要从文件头读取图像类型。

const   
  US_BITMAP_TYPE = $4D42;   
  US_JPEG_TYPE   = $FFFFD8FF;   
  US_GIF_TYPE    = $4947;   
  US_WMF_TYPE    = $FFFFCDD7;   
US_TIF_TYPE    = $4949;   
US_PCX_TYPE    = $50A;   
US_PSD_TYPE    = $4238;   
US_PNG_TYPE    = $5089; 

procedure TfrmMain.Button1Click(Sender: TObject); 
var   MyType: SmallInt;   
MyFile: TFileStream;   sTemp: string; 
begin   
MyFile := TFileStream.Create('.\MainButtons.png', fmOpenRead + fmShareDenyNone);   
MyFile.Read(MyType, SizeOf(MyType));   
sTemp := '';   
case MyType of    
 US_BITMAP_TYPE: sTemp := 'BMP 文件';     
US_JPEG_TYPE: sTemp := 'JPEG 文件';     
US_GIF_TYPE: sTemp := 'GIF 文件';     
US_WMF_TYPE: sTemp := 'WMF 文件';     
US_TIF_TYPE: sTemp := 'TIF 文件';     
US_PCX_TYPE: sTemp := 'PCX 文件';    
 US_PSD_TYPE: sTemp := 'PSD 文件';     
US_PNG_TYPE: sTemp := 'PNG 文件';   
end;   
ShowMessage(sTemp);   

MyFile.Free; end;

相关阅读 >>

Delphi 提升程序进程权限为debug权限

Delphi中用拼音首字符序列来实现检索功能

Delphi sametext

Delphi xe 与plc通讯(intcpserver 二进制)

Delphi中指针和地址切换的方法

Delphi 上次访问该文件的时间

Delphi 用tidsmip和tidmessage发送邮件

Delphi 给 tcombobox 添加图标

Delphi制作外挂的操作技巧

提供文件操作 单元

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...