Site icon 时鹏亮的Blog

易语言如何把PNG转BMP 示例代码

请知悉:本文最近一次更新为 4年 前,文中内容可能已经过时。

最近想把PNG转BMP,用易语言怎么实现呢?示例代码如下:

.版本 2

.子程序 _按钮1_被单击
.局部变量 BMP数据, 字节集

BMP数据 = PNG转BMP (读入文件 (“C:\test.png”), 画板1, #白色)
写到文件 (“C:\dump.bmp”, BMP数据)


.子程序 PNG转BMP, 字节集
.参数 PNG数据, 字节集
.参数 辅助画板, 画板
.参数 填充底色, 整数型
.局部变量 临时, 字节集
.局部变量 图像宽度, 整数型
.局部变量 图像高度, 整数型
.局部变量 BMP数据, 字节集

.如果真 (取字节集左边 (PNG数据, 8) ≠ { 137, 80, 78, 71, 13, 10, 26, 10 })
返回 ({ }) ' 如果不是PNG文件,则返回空字节集
.如果真结束

临时 = 取字节集中间 (PNG数据, 17, 4)
图像宽度 = 位或 (左移 (临时 [1], 24), 左移 (临时 [2], 16), 左移 (临时 [3], 8), 临时 [4])
临时 = 取字节集中间 (PNG数据, 21, 4)
图像高度 = 位或 (左移 (临时 [1], 24), 左移 (临时 [2], 16), 左移 (临时 [3], 8), 临时 [4])

辅助画板.宽度 = 图像宽度
辅助画板.高度 = 图像高度
辅助画板.自动重画 = 真
辅助画板.画板背景色 = 填充底色 ' 设置底色
辅助画板.底图 = PNG数据

返回 (辅助画板.取图片 (, ))

特别鸣谢

以上代码转载自:凌晨孤星png图片转bmp


如您从本文得到了有价值的信息或帮助,请考虑扫描文末二维码捐赠和鼓励。

尊重他人劳动成果。转载请务必附上原文链接,我将感激不尽。


与《易语言如何把PNG转BMP 示例代码》相关的博文:

Exit mobile version