请问如何做批量拼图？

loonghuang

这是我的源码，我想实现的是批量把4个文件夹的图片拼成一个宫格图（工作需要），但是在GP图像加载方面一直没有进展，导出的图片是黑屏……请大佬们帮忙解惑！！多谢！！ 图片拼接.rar (1.1 MB, 下载次数: 6)

2023-6-12 00:18 上传

点击文件名下载附件

afu45

  

子程序名	返回值类型	公开	备 注
图片_合并_换行	字节集
参数名	类 型	参考	可空	数组	备 注
参地址	文本型
每行数量	整数型

变量名	类 型	静态	数组	备 注
GP位图	GP位图
GP图形	GP图形
GP图像	GP图像		0
宽度	整数型
高度	整数型
输出	字节集
i	整数型
left	整数型
top	整数型
width	整数型
height	整数型

如果真 (取数组成员数 (参地址) ＞ 0)
重定义数组 (GP图像, 假, 取数组成员数 (参地址))
计次循环首 (取数组成员数 (参地址), i)
GP图像 [i].创建自字节集 (网页_访问_对象 (参地址 [i], , , , , , , , , , , , , , , , , , ), )
如果真 (i ＝ 1)
width ＝ GP图像 [1].取宽度 ()
height ＝ GP图像 [1].取高度 ()

计次循环尾 ()
宽度 ＝ 每行数量 × width
高度 ＝ 到整数 (取数组成员数 (参地址) ＼ 每行数量 ＋ 选择 (取数组成员数 (参地址) ％ 每行数量 ＝ 0, 0, 1)) × height
GP位图.创建自像素格式 (宽度, 高度)
GP图形.创建自图像 (GP位图)
GP图形.置平滑模式 ( #平滑模式_最佳质量 )
计次循环首 (取数组成员数 (GP图像), i)
如果 ( (i － 1) ％ 每行数量 ＝ 0)
left ＝ 0
如果真 (i ＞ 1)
top ＝ top ＋ height

left ＝ left ＋ width
GP图形.画图像 (GP图像 [i], left, top)
GP图像 [i].销毁 ()
计次循环尾 ()
输出 ＝ GP位图.保存到字节集 ( #图像格式_PNG )
GP图形.销毁 ()
GP位图.销毁 ()
返回 (输出)

.版本 2<br /> <br /> .子程序 图片_合并_换行, 字节集<br /> .参数 参地址, 文本型, 数组<br /> .参数 每行数量, 整数型<br /> .局部变量 GP位图, GP位图<br /> .局部变量 GP图形, GP图形<br /> .局部变量 GP图像, GP图像, , "0"<br /> .局部变量 宽度, 整数型<br /> .局部变量 高度, 整数型<br /> .局部变量 输出, 字节集<br /> .局部变量 i, 整数型<br /> .局部变量 left, 整数型<br /> .局部变量 top, 整数型<br /> .局部变量 width, 整数型<br /> .局部变量 height, 整数型<br /> <br /> .如果真 (取数组成员数 (参地址) ＞ 0)<br />     重定义数组 (GP图像, 假, 取数组成员数 (参地址))<br />     .计次循环首 (取数组成员数 (参地址), i)<br />         GP图像 <i>.创建自字节集 (网页_访问_对象 (参地址 <i>, , , , , , , , , , , , , , , , , , ), )<br />         .如果真 (i ＝ 1)<br />             width ＝ GP图像 [1].取宽度 ()<br />             height ＝ GP图像 [1].取高度 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     宽度 ＝ 每行数量 × width<br />     高度 ＝ 到整数 (取数组成员数 (参地址) ＼ 每行数量 ＋ 选择 (取数组成员数 (参地址) ％ 每行数量 ＝ 0, 0, 1)) × height<br />     GP位图.创建自像素格式 (宽度, 高度)<br />     GP图形.创建自图像 (GP位图)<br />     GP图形.置平滑模式 (#平滑模式_最佳质量)<br />     .计次循环首 (取数组成员数 (GP图像), i)<br />         .如果 ((i － 1) ％ 每行数量 ＝ 0)<br />             left ＝ 0<br />             .如果真 (i ＞ 1)<br />                 top ＝ top ＋ height<br />             .如果真结束<br /> <br />         .否则<br />             left ＝ left ＋ width<br />         .如果结束<br />         GP图形.画图像 (GP图像 <i>, left, top)<br />         GP图像 <i>.销毁 ()<br />     .计次循环尾 ()<br />     输出 ＝ GP位图.保存到字节集 (#图像格式_PNG)<br />     GP图形.销毁 ()<br />     GP位图.销毁 ()<br /> .如果真结束<br /> 返回 (输出)

图片批量拼接.e (1.23 MB, 下载次数: 20)

2023-6-12 09:00 上传

点击文件名下载附件

mingyanxing

学习了 谢谢啦