易语言问题

xulei123

执行完最后图片显示正确，但是最后 编码_BASE64编码  出来的结果 不对，这个问题出在哪里？




.版本 2
.支持库 BmpOperate
.支持库 spec

.子程序 _按钮4_被单击
.局部变量 图片, 字节集
.局部变量 分割图, 字节集, , "5"
.局部变量 分割宽, 整数型
.局部变量 分割高, 双精度小数型
.局部变量 数组, 整数型, , "5"
.局部变量 合成图, 字节集, , "5"
.局部变量 图片1, 字节集
.局部变量 文本, 文本型
.局部变量 局_总位图, 类_位图操作
.局部变量 位图数据, 字节集
.局部变量 局_宽度, 整数型
.局部变量 局_高度, 整数型
.局部变量 局_文件数组名, 文本型, , "0"
.局部变量 局_计次, 整数型
.局部变量 上一次宽度, 整数型
.局部变量 局_取最大宽度, 整数型, , "0"
.局部变量 局_单位图, 类_位图操作



图片 ＝ 编码_BASE64解码A (到字节集 (#调), )
图片 ＝ 图片_转BMP (图片)
分割宽 ＝ 图片_取宽度 (图片)
分割高 ＝ 图片_取高度 (图片) ÷ 5
.计次循环首 (5, n)
    分割图 [n] ＝ 图片_取图片区域 (图片, 0, (n － 1) × 分割高, 分割宽, 分割高)
.计次循环尾 ()


图片框2.图片 ＝ 分割图 [1]
图片框3.图片 ＝ 分割图 [2]
图片框4.图片 ＝ 分割图 [3]
图片框5.图片 ＝ 分割图 [4]
图片框6.图片 ＝ 分割图 [5]

数组 ＝ { 5, 4, 2, 1, 3 }



.计次循环首 (5, n)

    局_单位图.从数据创建 (分割图 [数组 [n]])
    图片_转换 (分割图 [数组 [n]], 1, , 位图数据, )
    原始位图.载入数据 (位图数据)
    局_高度 ＝ 局_高度 ＋ 中间位图.取高度 () ＋ 原始位图.取高度 ()
    .如果 (中间位图.取宽度 () ＜ 原始位图.取宽度 ())
        目标位图.创建 (原始位图.取宽度 (), 原始位图.取高度 () ＋ 中间位图.取高度 (), 24, )
    .否则
        目标位图.创建 (中间位图.取宽度 (), 原始位图.取高度 () ＋ 中间位图.取高度 (), 24, )
    .如果结束
    中间位图.复制到 (0, 0, , , 目标位图, 0, 0, )
    原始位图.复制到 (0, 0, , , 目标位图, 0, 中间位图.取高度 (), )
    中间位图.载入数据 (目标位图.取位图数据 ())


.计次循环尾 ()
图片_转换 (目标位图.取位图数据 (), 2, , 位图数据, )
' 图片框22.图片 ＝ 合成图 [1]
' 图片框3.图片 ＝ 合成图 [2]
' 图片框4.图片 ＝ 合成图 [3]
' 图片框5.图片 ＝ 合成图 [4]
' 图片框6.图片 ＝ 合成图 [5]

' 图片 ＝ 图片_拼接1 (合成图 [1], 合成图 [2], 真)
' 图片 ＝ 图片_拼接1 (图片, 合成图 [3], 真)
' 图片 ＝ 图片_拼接1 (图片, 合成图 [4], 真)
' 图片1 ＝ 图片_拼接1 (图片, 合成图 [5], 真)
' 图片1 ＝ 图片_转BMP (图片1)

' 图片框1.图片 ＝ 图片1

图片框1.图片 ＝ 图片_缩放 (位图数据, 198, 132, )

文本 ＝ 编码_BASE64编码 (图片_缩放 (位图数据, 198, 132, ))
调试输出 (“*********************” ＋ 文本)




.子程序 图片_转BMP, 字节集, 公开
.参数 转换图片, 字节集
.局部变量 对象, 对象

对象.创建图片对象 (转换图片)
返回 (对象.取回图片 ())