本文整理自网络，侵删。
从文件中读取图像类型文件扩展名的更改可以与图像格式不同，因此您需要从文件头读取图像类型。
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 getsys32path()得到系统system32路径
Delphi strtoint 将“字符型”转换成“整数型”
更多相关阅读请进入《Delphi》频道 >>
