易语言如何实现图片的剪裁与黏贴

一只编程小菜鸟

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
_Ge	整数型		0
i	整数型
w_sep	整数型
h_sep	整数型
x	整数型
y	整数型
img	字节集
small	字节集

img ＝ 读入文件 (取运行目录 () ＋ “\test.jpg”)
_Ge ＝ { 39, 38, 48, 49, 41, 40, 46, 47, 35, 34, 50, 51, 33, 32, 28, 29, 27, 26, 36, 37, 31, 30, 44, 45, 43, 42, 12, 13, 23, 22, 14, 15, 21, 20, 8, 9, 25, 24, 6, 7, 3, 2, 0, 1, 11, 10, 4, 5, 19, 18, 16, 17 }
w_sep ＝ 10
h_sep ＝ 80
计次循环首 (取数组成员数 (_Ge), i)
x ＝ _Ge [i] ％ 26 × 12 ＋ 1
如果 (_Ge [i] ＞ 25)
y ＝ h_sep
y ＝ 0
small ＝ 裁剪图片 (img, x, y, x ＋ w_sep, y ＋ h_sep)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
裁剪图片	字节集
参数名	类 型	参考	可空	数组	备 注
参_图片	字节集				图片字节集
参_图片左边	整数型				截图的图片左边
参_图片顶边	整数型				截图的图片顶边
参_图片宽度	整数型				截图的图片宽度
参_图片高度	整数型				截图的图片高度

变量名	类 型	静态	数组	备 注
位图	位图
临时位图	位图
图片高度	整数型
图片宽度	整数型
局_目标文件名	文本型
原图片宽度	整数型
原图片高度	整数型

原图片宽度 ＝ 图片_取宽度 (参_图片)
原图片高度 ＝ 图片_取高度 (参_图片)
图片宽度 ＝ 参_图片宽度 － 参_图片左边
图片高度 ＝ 参_图片高度 － 参_图片顶边
位图.创建 (原图片宽度, 原图片高度, 24, )
位图.载入数据 (到位图 (参_图片))
临时位图.创建 (图片宽度, 图片高度, 24, #白色 )
位图.复制到 (参_图片左边, 参_图片顶边, 图片宽度, 图片高度, 临时位图, 0, 0, )
返回 (临时位图.取位图数据 ())

子程序名	返回值类型	公开	备 注
到位图	字节集
参数名	类 型	参考	可空	数组	备 注
图片数据	字节集

变量名	类 型	静态	数组	备 注
图片	对象
图	字节集

CoInitialize (0)
图 ＝ 图片数据
如果真 (取字节集左边 (图, 2) ≠ { 66, 77 } 或 取字节集数据 (图, #短整数型, 29) ＞ 8)
图片.创建图片对象 (图)
图 ＝ 图片.取回图片 ()
图片.清除 ()
CoUninitialize ()
返回 (图)

i支持库列表	支持库注释
BmpOperate	位图操作支持库

.版本 2<br /> .支持库 BmpOperate<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 _Ge, 整数型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 w_sep, 整数型<br /> .局部变量 h_sep, 整数型<br /> .局部变量 x, 整数型<br /> .局部变量 y, 整数型<br /> .局部变量 img, 字节集<br /> .局部变量 small, 字节集<br /> <br /> img ＝ 读入文件 (取运行目录 () ＋ “\test.jpg”)<br /> <br /> _Ge ＝ { 39, 38, 48, 49, 41, 40, 46, 47, 35, 34, 50, 51, 33, 32, 28, 29, 27, 26, 36, 37, 31, 30, 44, 45, 43, 42, 12, 13, 23, 22, 14, 15, 21, 20, 8, 9, 25, 24, 6, 7, 3, 2, 0, 1, 11, 10, 4, 5, 19, 18, 16, 17 }<br /> w_sep ＝ 10<br /> h_sep ＝ 80<br /> .计次循环首 (取数组成员数 (_Ge), i)<br />     x ＝ _Ge <i> ％ 26 × 12 ＋ 1<br />     .如果 (_Ge <i> ＞ 25)<br />         y ＝ h_sep<br />     .否则<br />         y ＝ 0<br />     .如果结束<br />     small ＝ 裁剪图片 (img, x, y, x ＋ w_sep, y ＋ h_sep)<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 裁剪图片, 字节集, 公开<br /> .参数 参_图片, 字节集, , 图片字节集<br /> .参数 参_图片左边, 整数型, , 截图的图片左边<br /> .参数 参_图片顶边, 整数型, , 截图的图片顶边<br /> .参数 参_图片宽度, 整数型, , 截图的图片宽度<br /> .参数 参_图片高度, 整数型, , 截图的图片高度<br /> .局部变量 位图, 位图<br /> .局部变量 临时位图, 位图<br /> .局部变量 图片高度, 整数型<br /> .局部变量 图片宽度, 整数型<br /> .局部变量 局_目标文件名, 文本型<br /> .局部变量 原图片宽度, 整数型<br /> .局部变量 原图片高度, 整数型<br /> <br /> 原图片宽度 ＝ 图片_取宽度 (参_图片)<br /> 原图片高度 ＝ 图片_取高度 (参_图片)<br /> 图片宽度 ＝ 参_图片宽度 － 参_图片左边<br /> 图片高度 ＝ 参_图片高度 － 参_图片顶边<br /> 位图.创建 (原图片宽度, 原图片高度, 24, )<br /> 位图.载入数据 (到位图 (参_图片))<br /> 临时位图.创建 (图片宽度, 图片高度, 24, #白色)<br /> 位图.复制到 (参_图片左边, 参_图片顶边, 图片宽度, 图片高度, 临时位图, 0, 0, )<br /> 返回 (临时位图.取位图数据 ())<br /> <br /> .子程序 到位图, 字节集<br /> .参数 图片数据, 字节集, 参考<br /> .局部变量 图片, 对象<br /> .局部变量 图, 字节集<br /> <br /> CoInitialize (0)<br /> 图 ＝ 图片数据<br /> .如果真 (取字节集左边 (图, 2) ≠ { 66, 77 } 或 取字节集数据 (图, #短整数型, 29) ＞ 8)<br />     图片.创建图片对象 (图)<br />     图 ＝ 图片.取回图片 ()<br />     图片.清除 ()<br /> .如果真结束<br /> CoUninitialize ()<br /> 返回 (图)

在代码中 我剪裁出了一张small图片 如何将每次循环的small图片黏贴到一张新图片上，最终返回一张新图片

花间一壶酒

得看你是只需要将裁剪好的图片合成到另一张图片里  还是要再增加文字之类的内容了  如果只是需要合成到另一张图片  用位图方式就能处理  如果是要增加文字之类的特效  就需要用到gdi内存画板之类的模块了

7ian

这就要用到gdi先画一张大图，再把两张图画进去

asasqwwq

ZC图像库：https://www.eyuyan.la/post/11970.html


补充内容 (2023-10-23 17:44):
https://bbs.125.la/forum.php?mod=viewthread&tid=14761443
内存画板：图片对象.复制部分(复制区域, 要复制的图片)

军大衣

不太清楚，感谢

1026360899

我觉得用内存画板最好  我之前都是用内存画板的