易语言 字节集转位图源码（exe转图片）

 

 

.版本 2
.支持库 BmpOperate

.子程序 字节集到图片, 字节集, 公开
.参数 字节集, 字节集
.参数 图片宽度, 整数型, 可空
.局部变量 i1, 整数型
.局部变量 图片, 位图
.局部变量 i, 整数型
.局部变量 ii, 整数型
.局部变量 i2, 整数型
.局部变量 余数, 整数型
.局部变量 次数, 整数型
.局部变量 新字节集, 字节集

.如果真 (图片宽度 ≤ 0)
图片宽度 ＝ 50
.如果真结束
新字节集 ＝ 到字节集 (到文本 (取字节集长度 (字节集))) ＋ 到字节集 (“|”) ＋ 字节集
i1 ＝ 取字节集长度 (新字节集)
余数 ＝ i1 ％ 图片宽度
.如果 (余数 ＝ 0)
次数 ＝ i1 ÷ 图片宽度
.否则
次数 ＝ i1 ÷ 图片宽度 ＋ 1
.如果结束
图片.创建 (图片宽度, 次数, 32, )
.计次循环首 (次数, i)
.计次循环首 (图片宽度, ii)
处理事件 ()
i2 ＝ i2 ＋ 1
.如果真 (i2 ≤ i1)
图片.置某点颜色 (ii － 1, i － 1, 到数值 (新字节集 [i2]))
.如果真结束

.计次循环尾 ()
.计次循环尾 ()
返回 (图片.取位图数据 ())

.子程序 图片到字节集, 字节集, 公开, 雪域冰狐 QQ：463018614
.参数 图片数据, 字节集
.局部变量 图片, 位图
.局部变量 i, 整数型
.局部变量 i1, 整数型
.局部变量 字节, 字节型, , "0"
.局部变量 颜色, 整数型
.局部变量 字节集, 字节集
.局部变量 字节集长度, 整数型

图片.载入数据 (图片数据)
.计次循环首 (图片.取高度 (), i)
.计次循环首 (图片.取宽度 (), i1)
处理事件 ()
颜色 ＝ 图片.取某点颜色 (i1 － 1, i － 1)
加入成员 (字节, 到字节 (颜色))
.计次循环尾 ()
.计次循环尾 ()
字节集 ＝ 到字节集 (字节)
i ＝ 寻找字节集 (字节集, 到字节集 (“|”), )
字节集长度 ＝ 到数值 (到文本 (取字节集左边 (字节集, i － 1)))
字节集 ＝ 取字节集左边 (取字节集右边 (字节集, 取字节集长度 (字节集) － i), 字节集长度)
返回 (字节集)