Delphi 判断是否为二进制文件


本文整理自网络,侵删。

 
function IsDFMBinary(FileName: string): Boolean;
var
  F: TFileStream;
  B: Byte;
begin
  B := 0;
  F := TFileStream.Create(FileName, fmOpenRead);
  try
    F.Read( B, 1 );
    Result := B = $FF;
  finally
    F.Free;
  end;
end;

相关阅读 >>

Delphi操作access

Delphi webbrowser 加载html成web

Delphi 查看所有的串口设备

Delphi 通过控件句柄获取控件实例

Delphi rest 服务器返回utf16编码转换成正常string

Delphi 字符串加密解密(不支持中文)

Delphi创建密钥文件

Delphi 全局变量 hinstance 到底是在什么时候赋值的?

Delphi idftp发送本机ip和外网ip

Delphi idftp连接

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



打赏

取消

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

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

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

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

评论

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