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);               // 读取文件的前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;

相关阅读 >>

vclzip 3.10.1的简单使用示例

Delphi 用正则表达式检查一个串是否是电信的手机号

Delphi 判断时间是否合法 -isvaliddatetime、isvaliddate、isvalidtime、isvaliddateday

汇编基础知识

Delphi android检查互联网连接

Delphi中组件panel、splitter、groupbox、按钮组件(checkbox...)、计时器、滚动条、多选卡

如何让dbgrid显示序号?

Delphi 中 image 控件加载bmp、jpg、gif、png等图片的办法

Delphi 数组复制利用copymemory 最为完美

Delphi 通过memorystream 传递image1数据

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...