delphi 如何读取文件头 判断文件类型

本文整理自网络，侵删。

 
functiom 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 让label 始终在form的正中显示

Delphi tms web core 在线pdf教程

Delphi 从一个html返回所有的图片链接

Delphi png 图片的十六进制字符流

Delphi xe datasnap服务器获取客户端ip地址

Delphi中使用内联变量(inline variables) 的5个理由

Delphi 随便找个网站获取格林威治时间, 并转换到北京时间

Delphi串口api函数

Delphi删除文件夹

Delphi pchar和array [0..255] of char的区别

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

转载请注明出处：木庄网络博客 » delphi 如何读取文件头 判断文件类型