最近想把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
如您从本文得到了有价值的信息或帮助,请考虑扫描文末二维码捐赠和鼓励。
如本文对您有用,捐赠和留言 将是对我最好的支持~(捐赠可转为站内积分)
如愿意,请向朋友推荐本站,谢谢。
尊重他人劳动成果。转载请务必附上原文链接,我将感激不尽。