网站首页
网站导航
Ctrl+D收藏
首 页
代码段
源码包
文档库
工具箱
代码语言
.
CSharp
.
JS
Java
Asp.Net
C
MSSQL
PHP
Css
PLSQL
Python
Shell
EBS
ASP
Perl
ObjC
VB.Net
VBS
MYSQL
GO
Delphi
AS
DB2
Domino
Rails
ActionScript
Scala
代码分类
文件
系统
字符串
数据库
网络相关
图形/GUI
多媒体
算法
游戏
Jquery
Extjs
Android
HTML5
菜单
网页交互
WinForm
控件
企业应用
安全与加密
脚本/批处理
开放平台
其它
【
Delphi
】
返回指定bitmap图片的尺寸
作者:
jellyvice
/ 发布于
2013-12-3
/
381
function GetBMPSize(const FileName: string): Types.TSize; type // Union of two different versions of windows bitmap info records TBitmapInfo = packed record case Byte of 0: (Core: Windows.TBitmapCoreHeader); // early version 1: (Ext: Windows.TBitmapInfoHeader); // later version end; const cSignature = $4D42; // bitmap file signature var FileHeader: Windows.TBitmapFileHeader; // bmp file header record BmpInfo: TBitmapInfo; // bmp info record union FS: Classes.TFileStream; // stream onto bmp file BytesRead: Integer; // bytes read from stream begin Result.cx := 0; Result.cy := 0; if (FileName = '') or not SysUtils.FileExists(FileName) then Exit; FS := Classes.TFileStream.Create( FileName, SysUtils.fmOpenRead or SysUtils.fmShareDenyNone ); try // Read file header and check signature BytesRead := FS.Read(FileHeader, SizeOf(FileHeader)); if BytesRead <> SizeOf(FileHeader) then Exit; if FileHeader.bfType <> cSignature then Exit; // Read bitmap info record (varies according to bmp type) BytesRead := FS.Read(BmpInfo, SizeOf(BmpInfo)); if BytesRead < SizeOf(DWORD) then Exit; // couldn't read length field if BytesRead < Integer(BmpInfo.Ext.biSize) then Exit; // couldn't read whole info header record if BmpInfo.Ext.biSize = SizeOf(BmpInfo.Ext) then begin // later version Result.cx := BmpInfo.Ext.biWidth; Result.cy := BmpInfo.Ext.biHeight; end else begin // early version Result.cx := BmpInfo.Core.bcWidth; Result.cy := BmpInfo.Core.bcHeight; end; finally FS.Free; end; end;
评论列表
本站所提供的代码,版权归原作者所有,若有侵犯作者版权,请与我们联系,我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。
试试其它关键字
bitmap图片
同语言下
.
多边形面积
.
限定软件使用时间
.
获取磁盘空间大小
.
窗口文字淡入淡出渐变效果
.
创建开机启动项
.
检测并枚举系统安装的打印机
.
实现保存和读取图片
.
字符串分隔函数
.
将BMP格式图形转化为JPG格式
.
解析FTP地址
可能有用的
.
android 通过Build获取手机硬件信息
.
Android代码获取手机品牌、手机型号、手机唯一序列号
.
SQL SERVER 查询每日新增用户数量、次留数量
.
获取浏览器滚动条宽度
.
利用Cookie保存数据,在浏览器页面显示用户上次访问时
.
Map集合中嵌套list
.
html5将文字生成图片
.
文字浮在图片上方
.
HTML中怎样在图片的右边显示文字
.
利用ffmpeg将MP4文件切成ts和m3u8
jellyvice
贡献的其它代码
(
28
)
.
返回双精度浮点数数组的最大值2
.
返回一个双精度浮点数数组的最大值
.
检查指定数字是否是质数
.
两个数的最大公约数
.
把一个缓冲区里的字节输出成16进制表示格式
.
Graphic转换成Bitmap
.
获取一个图标或光标的热点位置
.
返回Gif图片的尺寸
.
返回指定bitmap图片的尺寸
.
检查系统中是否包含指定的字体
地图
本站
我们
服务
版权
联系
回馈
博客