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;

推荐分享