Gdi拼接图片

懿Yi

这个拼接的图片宽度导致显示不全
怎么才能让他取最大的一张图宽度
或者取第一张图的宽度再拼接

  

子程序名	返回值类型	公开	备 注
图片_拼接	字节集
参数名	类 型	参考	可空	数组	备 注
地址	文本型

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

如果真 (取数组成员数 (地址) ＞ 0)
重定义数组 (GP图像, 假, 取数组成员数 (地址))
计次循环首 (取数组成员数 (地址), i)
GP图像 [i].创建自字节集 (读入文件 (地址 [i]))
宽度 ＝ GP图像 [i].取宽度 ()
高度 ＝ 高度 ＋ GP图像 [i].取高度 ()
计次循环尾 ()
GP位图.创建自像素格式 (宽度, 高度)
GP图形.创建自图像 (GP位图)
GP图形.置平滑模式 ( #平滑模式_最佳质量 )
变量循环首 (取数组成员数 (GP图像), 1, -1, i)
高度 ＝ 高度 － GP图像 [i].取高度 ()
GP图形.画图像 (GP图像 [i], 0, 高度)
GP图像 [i].销毁 ()
变量循环尾 ()
输出 ＝ GP位图.保存到字节集 ( #图像格式_PNG )
GP图形.销毁 ()
GP位图.销毁 ()
返回 (输出)

.版本 2<br /> <br /> .子程序 图片_拼接, 字节集<br /> .参数 地址, 文本型, 数组<br /> .局部变量 GP位图, GP位图<br /> .局部变量 GP图形, GP图形<br /> .局部变量 GP图像, GP图像, , "0"<br /> .局部变量 宽度, 整数型<br /> .局部变量 高度, 整数型<br /> .局部变量 输出, 字节集<br /> .局部变量 i, 整数型<br /> <br /> .如果真 (取数组成员数 (地址) ＞ 0)<br />     重定义数组 (GP图像, 假, 取数组成员数 (地址))<br />     .计次循环首 (取数组成员数 (地址), i)<br />         GP图像 <i>.创建自字节集 (读入文件 (地址 <i>))<br />         宽度 ＝ GP图像 <i>.取宽度 ()<br />         高度 ＝ 高度 ＋ GP图像 <i>.取高度 ()<br />     .计次循环尾 ()<br />     GP位图.创建自像素格式 (宽度, 高度)<br />     GP图形.创建自图像 (GP位图)<br />     GP图形.置平滑模式 (#平滑模式_最佳质量)<br />     .变量循环首 (取数组成员数 (GP图像), 1, -1, i)<br />         高度 ＝ 高度 － GP图像 <i>.取高度 ()<br />         GP图形.画图像 (GP图像 <i>, 0, 高度)<br />         GP图像 <i>.销毁 ()<br />     .变量循环尾 ()<br />     输出 ＝ GP位图.保存到字节集 (#图像格式_PNG)<br />     GP图形.销毁 ()<br />     GP位图.销毁 ()<br /> .如果真结束<br /> 返回 (输出)

补充内容 (2024-5-9 11:39):
图片宽度是随机的 有宽图有窄图

人善帝王心

盲改  不知道对不！

  

子程序名	返回值类型	公开	备 注
图片_拼接	字节集
参数名	类 型	参考	可空	数组	备 注
地址	文本型

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

如果真 (取数组成员数 (地址) ＞ 0)
重定义数组 (GP图像, 假, 取数组成员数 (地址))
计次循环首 (取数组成员数 (地址), i)
GP图像 [i].创建自字节集 (读入文件 (地址 [i]))
如果真 (GP图像 [i].取宽度 ()>宽度)
宽度 ＝ GP图像 [i].取宽度 ()
高度 ＝ 高度 ＋ GP图像 [i].取高度 ()
计次循环尾 ()
GP位图.创建自像素格式 (宽度, 高度)
GP图形.创建自图像 (GP位图)
GP图形.置平滑模式 ( #平滑模式_最佳质量 )
变量循环首 (取数组成员数 (GP图像), 1, -1, i)
高度 ＝ 高度 － GP图像 [i].取高度 ()
GP图形.画图像 (GP图像 [i], 0, 高度)
GP图像 [i].销毁 ()
变量循环尾 ()
输出 ＝ GP位图.保存到字节集 ( #图像格式_PNG )
GP图形.销毁 ()
GP位图.销毁 ()
返回 (输出)

.版本 2<br /> <br /> .子程序 图片_拼接, 字节集<br /> .参数 地址, 文本型, 数组<br /> .局部变量 GP位图, GP位图<br /> .局部变量 GP图形, GP图形<br /> .局部变量 GP图像, GP图像, , "0"<br /> .局部变量 宽度, 整数型<br /> .局部变量 高度, 整数型<br /> .局部变量 输出, 字节集<br /> .局部变量 i, 整数型<br /> <br /> .如果真 (取数组成员数 (地址) ＞ 0)<br />     重定义数组 (GP图像, 假, 取数组成员数 (地址))<br />     .计次循环首 (取数组成员数 (地址), i)<br />         GP图像 <i>.创建自字节集 (读入文件 (地址 <i>))<br />         .如果真 (GP图像 <i>.取宽度 ()>宽度)<br />             宽度 ＝ GP图像 <i>.取宽度 ()<br />         .如果真结束<br />         高度 ＝ 高度 ＋ GP图像 <i>.取高度 ()<br />     .计次循环尾 ()<br />     GP位图.创建自像素格式 (宽度, 高度)<br />     GP图形.创建自图像 (GP位图)<br />     GP图形.置平滑模式 (#平滑模式_最佳质量)<br />     .变量循环首 (取数组成员数 (GP图像), 1, -1, i)<br />         高度 ＝ 高度 － GP图像 <i>.取高度 ()<br />         GP图形.画图像 (GP图像 <i>, 0, 高度)<br />         GP图像 <i>.销毁 ()<br />     .变量循环尾 ()<br />     输出 ＝ GP位图.保存到字节集 (#图像格式_PNG)<br />     GP图形.销毁 ()<br />     GP位图.销毁 ()<br /> .如果真结束<br /> 返回 (输出)