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 regularexpressions 正则表达式如何忽略大小写

Delphi比较两个位图是否相同

Delphi xe6 利用fastmm4检测内存泄漏

Delphi stringgrid 实例4 本例功能: 1、给每个单元格赋值 2、调整当前单元格位置：上下左右；

Delphi inifile to xml

Delphi 2009 之 tcategorypanelgroup[4]: height

Delphi firedac 下的 sqlite [2] - 第一个例子

Delphi xe5 android 调用 google zxing

Delphi中accesss实现树形结构查询系统

Delphi url解�a函��(by kingron)

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