|
- .版本 2
- .支持库 BmpOperate
- .支持库 eAPI
- .支持库 eImgConverter
- .程序集 程序集1
- .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
- _临时子程序 () ' 在初始化代码执行完毕后调用测试代码
- 返回 (0) ' 可以根据您的需要返回任意数值
- .子程序 _临时子程序
- .局部变量 位图, 位图
- .如果真 (位图_载入图片文件 (“in.png”, 位图) = 假)
- 信息框 (“载入失败!”, 0, , )
- 结束 ()
- .如果真结束
- 信息框 (格式化文本 (“in.png 的宽度:%d 高度:%d”, 位图.取宽度 (), 位图.取高度 ()), 0, , )
- .子程序 位图_载入图片文件, 逻辑型, 公开, 从图片文件载入位图,支持 JPEG、BMP、TIFF、PNG、PCX、PCD 等格式,成功返回真,失败返回假
- .参数 图片文件名, 文本型, , 如果是PNG格式,将丢失透明图层
- .参数 输出位图, 位图, 参考, 载入后将转换成BMP格式 并以位图数据类型传出,并转换到24位位图
- .局部变量 临时文件名, 文本型
- .局部变量 成功, 逻辑型
- .如果真 (文件头检测 (图片文件名, “BM”))
- 返回 (输出位图.载入文件 (图片文件名))
- .如果真结束
- 临时文件名 = 取临时文件名 ()
- .如果真 (转换到BMP (图片文件名, 临时文件名) ≠ 1)
- 删除文件 (临时文件名)
- 返回 (假)
- .如果真结束
- 成功 = 输出位图.载入文件 (临时文件名)
- .如果真 (输出位图.取位深度 () ≠ 24)
- 输出位图 = 输出位图.转换位深度 (24)
- .如果真结束
- 删除文件 (临时文件名)
- 返回 (成功)
- .子程序 文件头检测, 逻辑型
- .参数 文件名, 文本型
- .参数 文件头, 文本型
- .局部变量 文件号, 整数型
- .局部变量 匹配, 逻辑型
- 文件号 = 打开文件 (文件名, #读入, #无限制)
- .如果真 (文件号 = 0)
- 返回 (假)
- .如果真结束
- 匹配 = 读入文本 (文件号, 取文本长度 (文件头)) = 文件头
- 关闭文件 (文件号)
- 返回 (匹配)
复制代码 |
|