自己写的图片拼接，参考精易模块写的

╰仅冇旳執著

两张图片拼成一张，支持上下拼接和左右拼接，支持自定义底色

希望加入精易模块，方便使用，毕竟个人认为两张图拼接用的会比较多点

  

子程序名	返回值类型	公开	备 注
图片_拼接1	字节集		两张图片拼接为一张，支持上下拼接和左右拼接，图片自动居中
参数名	类 型	参考	可空	数组	备 注
图片1	字节集
图片2	字节集
拼接方式	逻辑型				上下拼接传入：真 左右拼接传入：假
合成底色	整数型				默认白底

变量名	类 型	静态	数组	备 注
_图片1	字节集
_图片2	字节集
局_总位图	类_位图操作
局_单位图	类_位图操作
局_宽度	整数型
局_高度	整数型
局_拼接结果	字节集
y	整数型
x	整数型
局_左边	整数型
局_顶边	整数型

图片_转换 (图片1, 1, , _图片1)
图片_转换 (图片2, 1, , _图片2)
如果真 (合成底色 ＝ 0)
合成底色 ＝ #白色
如果 (拼接方式)
' 上下拼接取最宽宽度
局_宽度 ＝ 图片_取宽度 (_图片1)
如果真 (局_宽度 ＜ 图片_取宽度 (_图片2))
局_宽度 ＝ 图片_取宽度 (_图片2)

' 上下拼接取两张图片高度和
局_高度 ＝ 图片_取高度 (_图片1) ＋ 图片_取高度 (_图片2)
局_总位图.创建空白位图 (局_宽度, 局_高度, 32)
计次循环首 (局_宽度, x)
计次循环首 (局_高度, y)
局_总位图.置某点颜色 (x － 1, y － 1, 合成底色)
计次循环尾 ()
计次循环尾 ()
局_左边 ＝ 0
如果真 (图片_取宽度 (_图片1) ≠ 局_宽度)
局_左边 ＝ 到整数 ( (局_宽度 － 图片_取宽度 (_图片1)) ÷ 2)
局_单位图.从数据创建 (_图片1)
局_单位图.复制到 (局_总位图, 0, 0, 图片_取宽度 (_图片1), 图片_取高度 (_图片1), 局_左边, 0)
处理事件 ()
局_左边 ＝ 0
如果真 (图片_取宽度 (_图片2) ≠ 局_宽度)
局_左边 ＝ 到整数 ( (局_宽度 － 图片_取宽度 (_图片2)) ÷ 2)

局_单位图.从数据创建 (_图片2)
局_单位图.复制到 (局_总位图, 0, 0, 图片_取宽度 (_图片2), 图片_取高度 (_图片2), 局_左边, 图片_取高度 (_图片1))
处理事件 ()



' 左右拼接取最高高度
局_高度 ＝ 图片_取高度 (_图片1)
如果真 (局_高度 ＜ 图片_取高度 (_图片2))
局_高度 ＝ 图片_取高度 (_图片2)

' 左右拼接取两张图片宽度和
局_宽度 ＝ 图片_取宽度 (_图片1) ＋ 图片_取宽度 (_图片2)
局_总位图.创建空白位图 (局_宽度, 局_高度, 32)
计次循环首 (局_宽度, x)
计次循环首 (局_高度, y)
局_总位图.置某点颜色 (x － 1, y － 1, 合成底色)
计次循环尾 ()
计次循环尾 ()
局_顶边 ＝ 0
如果真 (图片_取高度 (_图片1) ≠ 局_高度)
局_顶边 ＝ 到整数 ( (局_高度 － 图片_取高度 (_图片1)) ÷ 2)

局_单位图.从数据创建 (_图片1)
局_单位图.复制到 (局_总位图, 0, 0, 图片_取宽度 (_图片1), 图片_取高度 (_图片1), 0, 局_顶边)
处理事件 ()
局_顶边 ＝ 0
如果真 (图片_取高度 (_图片2) ≠ 局_高度)
局_顶边 ＝ 到整数 ( (局_高度 － 图片_取高度 (_图片2)) ÷ 2)

局_单位图.从数据创建 (_图片2)
局_单位图.复制到 (局_总位图, 0, 0, 图片_取宽度 (_图片2), 图片_取高度 (_图片2), 图片_取宽度 (_图片1), 局_顶边)
处理事件 ()
局_拼接结果 ＝ 局_总位图.取出位图数据 ()
返回 (局_拼接结果)

.版本 2<br /> <br /> .子程序 图片_拼接1, 字节集, 公开, 两张图片拼接为一张，支持上下拼接和左右拼接，图片自动居中<br /> .参数 图片1, 字节集<br /> .参数 图片2, 字节集<br /> .参数 拼接方式, 逻辑型, , 上下拼接传入：真 左右拼接传入：假<br /> .参数 合成底色, 整数型, 可空, 默认白底<br /> .局部变量 _图片1, 字节集<br /> .局部变量 _图片2, 字节集<br /> .局部变量 局_总位图, 类_位图操作<br /> .局部变量 局_单位图, 类_位图操作<br /> .局部变量 局_宽度, 整数型<br /> .局部变量 局_高度, 整数型<br /> .局部变量 局_拼接结果, 字节集<br /> .局部变量 y, 整数型<br /> .局部变量 x, 整数型<br /> .局部变量 局_左边, 整数型<br /> .局部变量 局_顶边, 整数型<br /> <br /> 图片_转换 (图片1, 1, , _图片1)<br /> 图片_转换 (图片2, 1, , _图片2)<br /> .如果真 (合成底色 ＝ 0)<br />     合成底色 ＝ #白色<br /> .如果真结束<br /> .如果 (拼接方式)<br />     ' 上下拼接取最宽宽度<br />     局_宽度 ＝ 图片_取宽度 (_图片1)<br />     .如果真 (局_宽度 ＜ 图片_取宽度 (_图片2))<br />         局_宽度 ＝ 图片_取宽度 (_图片2)<br />     .如果真结束<br /> <br />     ' 上下拼接取两张图片高度和<br />     局_高度 ＝ 图片_取高度 (_图片1) ＋ 图片_取高度 (_图片2)<br /> <br /> <br />     局_总位图.创建空白位图 (局_宽度, 局_高度, 32)<br /> <br /> <br />     .计次循环首 (局_宽度, x)<br />         .计次循环首 (局_高度, y)<br />             局_总位图.置某点颜色 (x － 1, y － 1, 合成底色)<br />         .计次循环尾 ()<br />     .计次循环尾 ()<br /> <br /> <br />     局_左边 ＝ 0<br />     .如果真 (图片_取宽度 (_图片1) ≠ 局_宽度)<br />         局_左边 ＝ 到整数 ((局_宽度 － 图片_取宽度 (_图片1)) ÷ 2)<br />     .如果真结束<br />     局_单位图.从数据创建 (_图片1)<br />     局_单位图.复制到 (局_总位图, 0, 0, 图片_取宽度 (_图片1), 图片_取高度 (_图片1), 局_左边, 0)<br /> <br />     处理事件 ()<br />     局_左边 ＝ 0<br />     .如果真 (图片_取宽度 (_图片2) ≠ 局_宽度)<br />         局_左边 ＝ 到整数 ((局_宽度 － 图片_取宽度 (_图片2)) ÷ 2)<br />     .如果真结束<br /> <br />     局_单位图.从数据创建 (_图片2)<br />     局_单位图.复制到 (局_总位图, 0, 0, 图片_取宽度 (_图片2), 图片_取高度 (_图片2), 局_左边, 图片_取高度 (_图片1))<br /> <br />     处理事件 ()<br /> <br /> <br /> .否则<br /> <br /> <br />     ' 左右拼接取最高高度<br />     局_高度 ＝ 图片_取高度 (_图片1)<br />     .如果真 (局_高度 ＜ 图片_取高度 (_图片2))<br />         局_高度 ＝ 图片_取高度 (_图片2)<br />     .如果真结束<br /> <br />     ' 左右拼接取两张图片宽度和<br />     局_宽度 ＝ 图片_取宽度 (_图片1) ＋ 图片_取宽度 (_图片2)<br /> <br /> <br />     局_总位图.创建空白位图 (局_宽度, 局_高度, 32)<br /> <br /> <br />     .计次循环首 (局_宽度, x)<br />         .计次循环首 (局_高度, y)<br />             局_总位图.置某点颜色 (x － 1, y － 1, 合成底色)<br />         .计次循环尾 ()<br />     .计次循环尾 ()<br /> <br /> <br />     局_顶边 ＝ 0<br />     .如果真 (图片_取高度 (_图片1) ≠ 局_高度)<br />         局_顶边 ＝ 到整数 ((局_高度 － 图片_取高度 (_图片1)) ÷ 2)<br />     .如果真结束<br /> <br />     局_单位图.从数据创建 (_图片1)<br />     局_单位图.复制到 (局_总位图, 0, 0, 图片_取宽度 (_图片1), 图片_取高度 (_图片1), 0, 局_顶边)<br /> <br />     处理事件 ()<br />     局_顶边 ＝ 0<br />     .如果真 (图片_取高度 (_图片2) ≠ 局_高度)<br />         局_顶边 ＝ 到整数 ((局_高度 － 图片_取高度 (_图片2)) ÷ 2)<br />     .如果真结束<br /> <br />     局_单位图.从数据创建 (_图片2)<br />     局_单位图.复制到 (局_总位图, 0, 0, 图片_取宽度 (_图片2), 图片_取高度 (_图片2), 图片_取宽度 (_图片1), 局_顶边)<br /> <br />     处理事件 ()<br /> <br /> .如果结束<br /> 局_拼接结果 ＝ 局_总位图.取出位图数据 ()<br /> 返回 (局_拼接结果)

补充内容 (2019-4-4 11:57):
有易友反馈说有bug会导致拼接的图片上面是黑的，如果有遇到请使用精易模块7.2以上版本，7.2已经收录了该子程序

漫天飞心

luoling555 发表于 2024-1-16 22:06
楼主，没想明白，为什么拼接出来的图片那么大，而且拼接的速度很慢，有没有更优化的方法 ...

因为是位图bmp，可以输出来后用图片_转换1压缩下图片大小，但是确实非常慢

luoling555

楼主，没想明白，为什么拼接出来的图片那么大，而且拼接的速度很慢，有没有更优化的方法

乐呵熊

学习下~~谢谢

乐呵熊

学习下~~谢谢

Strator

正好是我需 要的，

zaochen0391

有bug 会崩溃 多线程会加大崩溃几率

猫的树和我的你

问一下 不需要居中下面图片怎么弄

zhangyingxin

快速回复可获得精币

long5tianxia

很不错的源码，需要用。就是写出jpg占内存大了很多。需要在转化一下才小点。

epwne

        支持开源~！感谢分享