Delphi GetFileType 判断图像文件类型

本文整理自网络，侵删。

 function GetFileType(FileName: String): string; var  MyImage:TMemoryStream;  Buffer:Word;  i:integer;begin  Result := 'Err';  MyImage:=TMemoryStream.Create;  try    MyImage.LoadFromFile(FileName);    MyImage.Position := 0;                      // 指针文件开头的位置    if MyImage.Size = 0 then Exit;              // 文件大小等于0退出    MyImage.ReadBuffer(Buffer,2);               // 读取文件的前２个字节[低位到高位]，放到Buffer里面    if Buffer=$4D42 then  Result :='BMP';    if Buffer=$D8FF then  Result :='JPEG';    if Buffer=$4947 then  Result :='GIFP';    if Buffer=$050A then  Result :='PCX';    if Buffer=$5089 then  Result :='PNG';    if Buffer=$4238 then  Result :='PSD';    if Buffer=$A659 then  Result :='RAS';    if Buffer=$DA01 then  Result :='SGI';    if Buffer=$4949 then  Result :='TIFF';  finally    MyImage.Free;                              // 释放内存流对象  end;end;
 

相关阅读 >>

Delphi字符串反转函数

Delphi trayicon控件,如何实现窗口最小化的时候到系统托盘？

Delphi写qq消息群发（模拟按键精灵）

Delphi异常死亡进程的自动复活

Delphi 精确打印image画布

Delphi中adoquery执行错误的捕捉

Delphi 关于 tregex.split()

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

Delphi10.3 构造生成输出json数据

Delphi获取dos命令行输出函数 运行cmd命令并获取结果【方法2】

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