[分享源码]易语言自动套版的简单例子

anyuezhiji

易语言套版例子.7z (2.68 MB, 下载次数: 38)

2024-7-14 18:22 上传

点击文件名下载附件
下载积分: 精币 -2 枚

使用以下模块和DLL（均已打包在压缩包中，解压可直接测试）：
Gdiplus类3.1.ec


精易模块11.1.5.ec
FreeImage.ec（修改增强版，支持透明图粘贴）
FreeImage.dll

属性框支持库 : https://125.confly.eu.org/forum.php?mod=viewthread&tid=14640294

更多套图模版可在PS自动套版的简单例子 使用ps_对象操作模块下载（本源码基于左边链接改的，不再需要Photoshop支持）
FreeImage.ec持续修改中，目前增加了对透明图粘贴的支持（另一个应用看这里透明图粘到背景抗锯齿解决方案）
接下来准备增加对透明gif动图粘贴到背景的支持


补充内容 (2024-7-17 17:23):
注意看后面，有更新

anyuezhiji

FreeImage.ec.zip (33.56 KB, 下载次数: 14)

2024-7-16 14:52 上传

点击文件名下载附件
下载积分: 精币 -2 枚

增加了一个函数，裁剪Ex，具体测试看这里

优化了粘贴透明图到，核心代码如下：

  

. ' 计次循环首 (粘贴宽, 计次宽)
. ' 如果真 (宽始 － 1 ＋ 计次宽 ＜ 1)
' 计次宽 ＝ 2 ＋ 宽始
' 到循环尾 ()
. ' 计次循环首 (粘贴高, 计次高)
. ' 如果真 (高始 － 1 ＋ 计次高 ＜ 1)
' 计次高 ＝ 2 ＋ 高始
' 到循环尾 ()
' 源位置 ＝ 计次宽 － 1 ＋ (计次高 － 1) × 源宽度 ＋ 1
' 目标位置 ＝ 宽始 － 1 ＋ 计次宽 － 1 ＋ (计次高 ＋ 高始 － 1) × 目标宽度 ＋ 1
' FreeImage_GetPixelColor (m_dib, 计次宽, 计次高, 源RGBA)
' FreeImage_GetPixelColor (p_dib, 计次宽 ＋ 宽始 － 1, 计次高 ＋ 高始 － 1, 目标RGBA)
' 目标RGBA.Red ＝ 到字节 ((到整数 (目标RGBA.Red) × 到整数 (目标RGBA.Reserved) × (255 － 到整数 (源RGBA.Reserved)) ＼ 255 ＋ 到整数 (源RGBA.Red) × 到整数 (源RGBA.Reserved)) ＼ 255)
' 目标RGBA.Blue ＝ 到字节 ((到整数 (目标RGBA.Blue) × 到整数 (目标RGBA.Reserved) × (255 － 到整数 (源RGBA.Reserved)) ＼ 255 ＋ 到整数 (源RGBA.Blue) × 到整数 (源RGBA.Reserved)) ＼ 255)
' 目标RGBA.Green ＝ 到字节 ((到整数 (目标RGBA.Green) × 到整数 (目标RGBA.Reserved) × (255 － 到整数 (源RGBA.Reserved)) ＼ 255 ＋ 到整数 (源RGBA.Green) × 到整数 (源RGBA.Reserved)) ＼ 255)
' 目标RGBA.Reserved ＝ 到字节 ((255 × 255 － (255 － 到整数 (目标RGBA.Reserved)) × (255 － 到整数 (源RGBA.Reserved))) ＼ 255)
' FreeImage_SetPixelColor (p_dib, 计次宽 ＋ 宽始 － 1, 计次高 ＋ 高始 － 1, 目标RGBA)
. ' 计次循环尾 ()
. ' 计次循环尾 ()
' 源像素 ＝ 取像素点阵 ()
' 目标像素 ＝ 粘贴到的目的FreeImage.取像素点阵 ()
源指针 ＝ 取像素点阵指针 ()
源字节集 ＝ 指针到字节集 (源指针 － 8, 8)
写到内存 (到整数 (源高度 × 源宽度 × 4), 到整数 (源指针 － 4), 4)
写到内存 (1, 到整数 (源指针 － 8), 4)
写到内存 (到整数 (源指针 － 8), 取变量地址 (源像素), 4)
目标指针 ＝ 粘贴到的目的FreeImage.取像素点阵指针 ()
目标字节集 ＝ 指针到字节集 (目标指针 － 8, 8)
写到内存 (到整数 (目标高度 × 目标宽度 × 4), 到整数 (目标指针 － 4), 4)
写到内存 (1, 到整数 (目标指针 － 8), 4)
写到内存 (到整数 (目标指针 － 8), 取变量地址 (目标像素), 4)
计次循环首 (粘贴宽, 计次宽)
如果真 (宽始 － 1 ＋ 计次宽 ＜ 1)
计次宽 ＝ 2 ＋ 宽始
到循环尾 ()
计次循环首 (粘贴高, 计次高)
如果真 (高始 － 1 ＋ 计次高 ＜ 1)
计次高 ＝ 2 ＋ 高始
到循环尾 ()
源位置 ＝ 计次宽 － 1 ��� (源高度 － 计次高) × 源宽度
目标位置 ＝ 宽始 － 1 ＋ 计次宽 － 1 ��� (目标高度 ��� (计次高 ＋ 高始 － 1)) × 目标宽度
源透明 ＝ 源像素 [4 ＋ 4 × 源位置]
目标透明 ＝ 目标像素 [4 ＋ 4 × 目标位置]
目标像素 [1 ＋ 4 × 目标位置] ＝ (目标像素 [1 ＋ 4 × 目标位置] × 目标透明 �� (255 － 源透明) ＼ 255 ＋ 源像素 [1 ＋ 4 × 源位置] × 源透明) ＼ 255  ' R
目标像素 [2 ＋ 4 × 目标位置] ＝ (目标像素 [2 ＋ 4 × 目标位置] × 目标透明 �� (255 － 源透明) ＼ 255 ＋ 源像素 [2 ＋ 4 × 源位置] × 源透明) ＼ 255  ' G
目标像素 [3 ＋ 4 × 目标位置] ＝ (目标像素 [3 ＋ 4 × 目标位置] × 目标透明 �� (255 － 源透明) ＼ 255 ＋ 源像素 [3 ＋ 4 × 源位置] × 源透明) ＼ 255  ' B
目标像素 [4 ＋ 4 × 目标位置] ＝ (255 × 255 ��� (255 － 目标透明) �� (255 － 源透明)) ＼ 255  ' A
计次循环尾 ()
计次循环尾 ()
写到内存 (目标字节集, 到整数 (目标指针 － 8), 8)
写到内存 (源字节集, 到整数 (源指针 － 8), 8)
写到内存 (0, 取变量地址 (源像素), 4)
写到内存 (0, 取变量地址 (目标像素), 4)
' 粘贴到的目的FreeImage.置像素点阵 (目标像素)
' 源像素 ＝ {  }
' 目标像素 ＝ {  }
' 源指针 ＝ 取像素点阵指针 ()
' 目标指针 ＝ 粘贴到的目的FreeImage.取像素点阵指针 ()
. ' 计次循环首 (粘贴宽, 计次宽)
. ' 如果真 (宽始 － 1 ＋ 计次宽 ＜ 1)
' 计次宽 ＝ 2 ＋ 宽始
' 到循环尾 ()
. ' 计次循环首 (粘贴高, 计次高)
. ' 如果真 (高始 － 1 ＋ 计次高 ＜ 1)
' 计次高 ＝ 2 ＋ 高始
' 到循环尾 ()
' 源位置 ＝ 计次宽 － 1 ＋ (源高度 － 计次高) × 源宽度
' 目标位置 ＝ 宽始 － 1 ＋ 计次宽 － 1 ＋ (目标高度 － (计次高 ＋ 高始 － 1)) × 目标宽度
' 源透明 ＝ 到整数 (指针到字节型 (源指针 ＋ 4 ＋ 4 × 源位置))
' 目标透明 ＝ 到整数 (指针到字节型 (目标指针 ＋ 4 ＋ 4 × 目标位置))
' 写到内存 (到字节 ((到整数 (指针到字节型 (目标指针 ＋ 1 ＋ 4 × 目标位置)) × 目标透明 × (255 － 源透明) ＼ 255 ＋ 到整数 (指针到字节型 (源指针 ＋ 1 ＋ 4 × 源位置)) × 源透明) ＼ 255), 目标指针 ＋ 1 ＋ 4 × 目标位置, 1)
' 写到内存 (到字节 ((到整数 (指针到字节型 (目标指针 ＋ 2 ＋ 4 × 目标位置)) × 目标透明 × (255 － 源透明) ＼ 255 ＋ 到整数 (指针到字节型 (源指针 ＋ 2 ＋ 4 × 源位置)) × 源透明) ＼ 255), 目标指针 ＋ 2 ＋ 4 × 目标位置, 1)
' 写到内存 (到字节 ((到整数 (指针到字节型 (目标指针 ＋ 3 ＋ 4 × 目标位置)) × 目标透明 × (255 － 源透明) ＼ 255 ＋ 到整数 (指针到字节型 (源指针 ＋ 3 ＋ 4 × 源位置)) × 源透明) ＼ 255), 目标指针 ＋ 3 ＋ 4 × 目标位置, 1)
' 写到内存 (到字节 ((255 × 255 － (255 － 目标透明) × (255 － 源透明)) ＼ 255), 目标指针 ＋ 4 ＋ 4 × 目标位置, 1)
. ' 计次循环尾 ()
. ' 计次循环尾 ()
. ' 如果 (粘贴到位置左边 ＜ 1)
' 左边 ＝ 1 － 粘贴到位置左边
' 左边 ＝ 1
. ' 如果 (粘贴到位置顶边 ＜ 1)
' 顶边 ＝ 1 － 粘贴到位置顶边
' 顶边 ＝ 1
' 右边 ＝ 粘贴宽 － 左边 ＋ 1
' 底边 ＝ 粘贴高 － 顶边 ＋ 1
' n_dib ＝ FreeImage_CreateView (m_dib, 左边, 顶边, 右边, 底边)
. ' 如果真 (n_dib ＝ 0)
' 返回 (假)
' FreeImage_Paste (p_dib, n_dib, 宽始, 高始, 256)
' FreeImage_Unload (n_dib)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> <br /> .' 计次循环首 (粘贴宽, 计次宽)<br />     .' 如果真 (宽始 － 1 ＋ 计次宽 ＜ 1)<br />         ' 计次宽 ＝ 2 ＋ 宽始<br />         ' 到循环尾 ()<br />     .如果真结束<br />     .' 计次循环首 (粘贴高, 计次高)<br />         .' 如果真 (高始 － 1 ＋ 计次高 ＜ 1)<br />             ' 计次高 ＝ 2 ＋ 高始<br />             ' 到循环尾 ()<br />         .如果真结束<br />         ' 源位置 ＝ 计次宽 － 1 ＋ (计次高 － 1) × 源宽度 ＋ 1<br />         ' 目标位置 ＝ 宽始 － 1 ＋ 计次宽 － 1 ＋ (计次高 ＋ 高始 － 1) × 目标宽度 ＋ 1<br />         ' FreeImage_GetPixelColor (m_dib, 计次宽, 计次高, 源RGBA)<br />         ' FreeImage_GetPixelColor (p_dib, 计次宽 ＋ 宽始 － 1, 计次高 ＋ 高始 － 1, 目标RGBA)<br />         ' 目标RGBA.Red ＝ 到字节 ((到整数 (目标RGBA.Red) × 到整数 (目标RGBA.Reserved) × (255 － 到整数 (源RGBA.Reserved)) ＼ 255 ＋ 到整数 (源RGBA.Red) × 到整数 (源RGBA.Reserved)) ＼ 255)<br />         ' 目标RGBA.Blue ＝ 到字节 ((到整数 (目标RGBA.Blue) × 到整数 (目标RGBA.Reserved) × (255 － 到整数 (源RGBA.Reserved)) ＼ 255 ＋ 到整数 (源RGBA.Blue) × 到整数 (源RGBA.Reserved)) ＼ 255)<br />         ' 目标RGBA.Green ＝ 到字节 ((到整数 (目标RGBA.Green) × 到整数 (目标RGBA.Reserved) × (255 － 到整数 (源RGBA.Reserved)) ＼ 255 ＋ 到整数 (源RGBA.Green) × 到整数 (源RGBA.Reserved)) ＼ 255)<br />         ' 目标RGBA.Reserved ＝ 到字节 ((255 × 255 － (255 － 到整数 (目标RGBA.Reserved)) × (255 － 到整数 (源RGBA.Reserved))) ＼ 255)<br />         ' FreeImage_SetPixelColor (p_dib, 计次宽 ＋ 宽始 － 1, 计次高 ＋ 高始 － 1, 目标RGBA)<br />     .' 计次循环尾 ()<br /> .' 计次循环尾 ()<br /> <br /> <br /> ' 源像素 ＝ 取像素点阵 ()<br /> ' 目标像素 ＝ 粘贴到的目的FreeImage.取像素点阵 ()<br /> 源指针 ＝ 取像素点阵指针 ()<br /> 源字节集 ＝ 指针到字节集 (源指针 － 8, 8)<br /> 写到内存 (到整数 (源高度 × 源宽度 × 4), 到整数 (源指针 － 4), 4)<br /> 写到内存 (1, 到整数 (源指针 － 8), 4)<br /> 写到内存 (到整数 (源指针 － 8), 取变量地址 (源像素), 4)<br /> 目标指针 ＝ 粘贴到的目的FreeImage.取像素点阵指针 ()<br /> 目标字节集 ＝ 指针到字节集 (目标指针 － 8, 8)<br /> 写到内存 (到整数 (目标高度 × 目标宽度 × 4), 到整数 (目标指针 － 4), 4)<br /> 写到内存 (1, 到整数 (目标指针 － 8), 4)<br /> 写到内存 (到整数 (目标指针 － 8), 取变量地址 (目标像素), 4)<br /> .计次循环首 (粘贴宽, 计次宽)<br />     .如果真 (宽始 － 1 ＋ 计次宽 ＜ 1)<br />         计次宽 ＝ 2 ＋ 宽始<br />         到循环尾 ()<br />     .如果真结束<br />     .计次循环首 (粘贴高, 计次高)<br />         .如果真 (高始 － 1 ＋ 计次高 ＜ 1)<br />             计次高 ＝ 2 ＋ 高始<br />             到循环尾 ()<br />         .如果真结束<br />         源位置 ＝ 计次宽 － 1 ＋ (源高度 － 计次高) × 源宽度<br />         目标位置 ＝ 宽始 － 1 ＋ 计次宽 － 1 ＋ (目标高度 － (计次高 ＋ 高始 － 1)) × 目标宽度<br />         源透明 ＝ 源像素 [4 ＋ 4 × 源位置]<br />         目标透明 ＝ 目标像素 [4 ＋ 4 × 目标位置]<br />         目标像素 [1 ＋ 4 × 目标位置] ＝ (目标像素 [1 ＋ 4 × 目标位置] × 目标透明 × (255 － 源透明) ＼ 255 ＋ 源像素 [1 ＋ 4 × 源位置] × 源透明) ＼ 255  ' R<br />         目标像素 [2 ＋ 4 × 目标位置] ＝ (目标像素 [2 ＋ 4 × 目标位置] × 目标透明 × (255 － 源透明) ＼ 255 ＋ 源像素 [2 ＋ 4 × 源位置] × 源透明) ＼ 255  ' G<br />         目标像素 [3 ＋ 4 × 目标位置] ＝ (目标像素 [3 ＋ 4 × 目标位置] × 目标透明 × (255 － 源透明) ＼ 255 ＋ 源像素 [3 ＋ 4 × 源位置] × 源透明) ＼ 255  ' B<br />         目标像素 [4 ＋ 4 × 目标位置] ＝ (255 × 255 － (255 － 目标透明) × (255 － 源透明)) ＼ 255  ' A<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 写到内存 (目标字节集, 到整数 (目标指针 － 8), 8)<br /> 写到内存 (源字节集, 到整数 (源指针 － 8), 8)<br /> 写到内存 (0, 取变量地址 (源像素), 4)<br /> 写到内存 (0, 取变量地址 (目标像素), 4)<br /> ' 粘贴到的目的FreeImage.置像素点阵 (目标像素)<br /> ' 源像素 ＝ {  }<br /> ' 目标像素 ＝ {  }<br /> <br /> <br /> ' 源指针 ＝ 取像素点阵指针 ()<br /> ' 目标指针 ＝ 粘贴到的目的FreeImage.取像素点阵指针 ()<br /> .' 计次循环首 (粘贴宽, 计次宽)<br />     .' 如果真 (宽始 － 1 ＋ 计次宽 ＜ 1)<br />         ' 计次宽 ＝ 2 ＋ 宽始<br />         ' 到循环尾 ()<br />     .如果真结束<br />     .' 计次循环首 (粘贴高, 计次高)<br />         .' 如果真 (高始 － 1 ＋ 计次高 ＜ 1)<br />             ' 计次高 ＝ 2 ＋ 高始<br />             ' 到循环尾 ()<br />         .如果真结束<br />         ' 源位置 ＝ 计次宽 － 1 ＋ (源高度 － 计次高) × 源宽度<br />         ' 目标位置 ＝ 宽始 － 1 ＋ 计次宽 － 1 ＋ (目标高度 － (计次高 ＋ 高始 － 1)) × 目标宽度<br />         ' 源透明 ＝ 到整数 (指针到字节型 (源指针 ＋ 4 ＋ 4 × 源位置))<br />         ' 目标透明 ＝ 到整数 (指针到字节型 (目标指针 ＋ 4 ＋ 4 × 目标位置))<br />         ' 写到内存 (到字节 ((到整数 (指针到字节型 (目标指针 ＋ 1 ＋ 4 × 目标位置)) × 目标透明 × (255 － 源透明) ＼ 255 ＋ 到整数 (指针到字节型 (源指针 ＋ 1 ＋ 4 × 源位置)) × 源透明) ＼ 255), 目标指针 ＋ 1 ＋ 4 × 目标位置, 1)<br />         ' 写到内存 (到字节 ((到整数 (指针到字节型 (目标指针 ＋ 2 ＋ 4 × 目标位置)) × 目标透明 × (255 － 源透明) ＼ 255 ＋ 到整数 (指针到字节型 (源指针 ＋ 2 ＋ 4 × 源位置)) × 源透明) ＼ 255), 目标指针 ＋ 2 ＋ 4 × 目标位置, 1)<br />         ' 写到内存 (到字节 ((到整数 (指针到字节型 (目标指针 ＋ 3 ＋ 4 × 目标位置)) × 目标透明 × (255 － 源透明) ＼ 255 ＋ 到整数 (指针到字节型 (源指针 ＋ 3 ＋ 4 × 源位置)) × 源透明) ＼ 255), 目标指针 ＋ 3 ＋ 4 × 目标位置, 1)<br />         ' 写到内存 (到字节 ((255 × 255 － (255 － 目标透明) × (255 － 源透明)) ＼ 255), 目标指针 ＋ 4 ＋ 4 × 目标位置, 1)<br />     .' 计次循环尾 ()<br /> .' 计次循环尾 ()<br /> <br /> <br /> .' 如果 (粘贴到位置左边 ＜ 1)<br />     ' 左边 ＝ 1 － 粘贴到位置左边<br /> .否则<br />     ' 左边 ＝ 1<br /> .如果结束<br /> .' 如果 (粘贴到位置顶边 ＜ 1)<br />     ' 顶边 ＝ 1 － 粘贴到位置顶边<br /> .否则<br />     ' 顶边 ＝ 1<br /> .如果结束<br /> ' 右边 ＝ 粘贴宽 － 左边 ＋ 1<br /> ' 底边 ＝ 粘贴高 － 顶边 ＋ 1<br /> ' n_dib ＝ FreeImage_CreateView (m_dib, 左边, 顶边, 右边, 底边)<br /> .' 如果真 (n_dib ＝ 0)<br />     ' 返回 (假)<br /> .如果真结束<br /> ' FreeImage_Paste (p_dib, n_dib, 宽始, 高始, 256)<br /> ' FreeImage_Unload (n_dib)

从注释掉的版本不难看出，尝试了多种方案，有的效果不行，比如FreeImage_Paste粘贴无透明效果了
FreeImage_Get/SetPixelColor效果不行速度慢等

最新优化，取像素点阵 ()需要从内存复制一份数据，干脆用改写内存的方式直接从原地址创建字节集来操作
创建字节集时破坏了8个字节，这会破坏图片的头部数据，所以先保存起来，处理完图片再写回去

注：
1、用这个函数把透明图粘贴到背景，不会因色差出现锯齿
2、如果是两个透明图粘贴，粘贴完还是透明的（只要两个图的非透明区域没重叠）

应该没法再优化了，除非上汇编或者多线程，或者直接改FreeImage的源码重编译DLL
多帧动图的读取、格式转换、保存、透明粘贴等功能后续陆续会做吧，不清楚有需要的么有需要的易友点个支持哦~

熊不熊

感谢分享，很给力！~

WSW120

谢谢分享

zifeiyu

6666666666666666666666

光影魔术

感谢分享源码

小虎来了

感谢分享

一指温柔

共同努力，共同进步

豆豆灰常开心

感谢分享，很给力！~

查过

感谢发布原创作品，精易因你更精彩！6666666666666