GDIPLUS合成图片在本机没问题，服务器上报错

shijy675497282 · 发表于 2019-1-15 16:56:55

Gdiplus初始化 ()
返回 (图片拼接 (取运行目录 () ＋ “\_1_” ＋随机时间戳＋ “.jpg”, 取运行目录 () ＋ “\” ＋二维码文件名, 真, 取运行目录 () ＋ “\” ＋最后合并图))

子程序名	返回值类型	公开	备注
图片拼接	文本型
参数名	类型	参考	可空	数组	备注
图片一	文本型
图片二	文本型
纵横方向	逻辑型				可为空,默认为横向,不真表示纵向
保存路径	文本型

变量名	类型	静态	数组	备注
内存图形	GP内存图形
图像	GP图像
图像1	GP图像
位图	GP位图
画刷	GP纯色画刷
图一	尺寸F
图二	尺寸F
宽	整数型
高	整数型
合并图	字节集
图像格式	文本型

图像.创建自文件 (图片一)
图一＝图像.取物理尺寸 ()
图像格式＝图像.取原始格式 ()
图像1.创建自文件 (图片二)
图二＝图像1.取物理尺寸 ()

判断 (纵横方向)

判断 (图一.宽度＞图二.宽度)

宽＝图一.宽度

宽＝图二.宽度

高＝图一.高度＋图二.高度

判断 (图一.高度＞图二.高度)

高＝图一.高度

高＝图二.高度

宽＝图一.宽度＋图二.宽度

如果真 (位图.创建自像素格式 (宽, 高, #像素格式_32bppRGB ) ＝假)

输出调试文本 (“创建底板出错”)

返回 (“创建画刷失败”)

如果真 (内存图形.创建自图像 (位图) ＝假)

输出调试文本 (“创建位图失败”)

返回 (“创建画刷失败”)

如果真 (画刷.创建 (RGB到ARGB ( #白色 )) ＝假)

输出调试文本 (“创建画刷失败”)

返回 (“创建画刷失败”)

如果真 (内存图形.填充矩形 (画刷, 0, 0, 宽, 高) ＝假)

输出调试文本 (“填充画板底色失败”)

返回 (“填充画板底色失败”)

如果真 (内存图形.画图像缩放 (图像, 0, 0, 图一.宽度, 图一.高度, ) ＝假) ' //画出第一张图

输出调试文本 (“在底板上画上第一张图失败”)

判断 (纵横方向) ' //根据纵横方向,画出第二张图,纵向为真,横向为假

内存图形.画图像缩放 (图像1, 0, 图一.高度, 图二.宽度, 图二.高度, )

内存图形.画图像缩放 (图像1, 图一.宽度, 0, 图二.宽度, 图二.高度, )

合并图＝位图.保存到字节集 (图像格式, ) ' //按原数据格式保存图片

如果真 (合并图＝ { })

输出调试文本 (“保存图片到字节集失败”)

如果真 (取反 (是否为空 (保存路径))) ' //直接保存已经合并的图片

位图.保存到文件 (保存路径, 图像格式) ' //按原数据格式保存图片

图像.销毁 ()
图像1.销毁 ()
内存图形.销毁 ()
画刷.销毁 ()
输出调试文本 (“合并成功”)
返回 (保存路径)

.版本 2<br />
<br />
<br />
<br />
Gdiplus初始化 ()<br />
<br />
<br />
<br />
返回 (图片拼接 (取运行目录 () ＋ “\_1_” ＋ 随机时间戳 ＋ “.jpg”, 取运行目录 () ＋ “\” ＋ 二维码文件名, 真, 取运行目录 () ＋ “\” ＋ 最后合并图))<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
.版本 2<br />
<br />
<br />
<br />
.子程序 图片拼接, 文本型, 公开<br />
<br />
.参数 图片一, 文本型<br />
<br />
.参数 图片二, 文本型<br />
<br />
.参数 纵横方向, 逻辑型, 可空, 可为空,默认为横向,不真表示纵向<br />
<br />
.参数 保存路径, 文本型, 可空<br />
<br />
.局部变量 内存图形, GP内存图形<br />
<br />
.局部变量 图像, GP图像<br />
<br />
.局部变量 图像1, GP图像<br />
<br />
.局部变量 位图, GP位图<br />
<br />
.局部变量 画刷, GP纯色画刷<br />
<br />
.局部变量 图一, 尺寸F<br />
<br />
.局部变量 图二, 尺寸F<br />
<br />
.局部变量 宽, 整数型<br />
<br />
.局部变量 高, 整数型<br />
<br />
.局部变量 合并图, 字节集<br />
<br />
.局部变量 图像格式, 文本型<br />
<br />
<br />
<br />
图像.创建自文件 (图片一)<br />
<br />
图一 ＝ 图像.取物理尺寸 ()<br />
<br />
图像格式 ＝ 图像.取原始格式 ()<br />
<br />
<br />
<br />
图像1.创建自文件 (图片二)<br />
<br />
图二 ＝ 图像1.取物理尺寸 ()<br />
<br />
<br />
<br />
.判断开始 (纵横方向)<br />
<br />
    .判断开始 (图一.宽度 ＞ 图二.宽度)<br />
<br />
        宽 ＝ 图一.宽度<br />
<br />
    .默认<br />
<br />
        宽 ＝ 图二.宽度<br />
<br />
    .判断结束<br />
<br />
<br />
<br />
    高 ＝ 图一.高度 ＋ 图二.高度<br />
<br />
.默认<br />
<br />
<br />
<br />
    .判断开始 (图一.高度 ＞ 图二.高度)<br />
<br />
        高 ＝ 图一.高度<br />
<br />
    .默认<br />
<br />
        高 ＝ 图二.高度<br />
<br />
    .判断结束<br />
<br />
<br />
<br />
    宽 ＝ 图一.宽度 ＋ 图二.宽度<br />
<br />
.判断结束<br />
<br />
<br />
<br />
.如果真 (位图.创建自像素格式 (宽, 高, #像素格式_32bppRGB) ＝ 假)<br />
<br />
    输出调试文本 (“创建底板出错”)<br />
<br />
    返回 (“创建画刷失败”)<br />
<br />
.如果真结束<br />
<br />
<br />
<br />
.如果真 (内存图形.创建自图像 (位图) ＝ 假)<br />
<br />
    输出调试文本 (“创建位图失败”)<br />
<br />
    返回 (“创建画刷失败”)<br />
<br />
.如果真结束<br />
<br />
<br />
<br />
.如果真 (画刷.创建 (RGB到ARGB (#白色)) ＝ 假)<br />
<br />
    输出调试文本 (“创建画刷失败”)<br />
<br />
    返回 (“创建画刷失败”)<br />
<br />
.如果真结束<br />
<br />
<br />
<br />
.如果真 (内存图形.填充矩形 (画刷, 0, 0, 宽, 高) ＝ 假)<br />
<br />
    输出调试文本 (“填充画板底色失败”)<br />
<br />
    返回 (“填充画板底色失败”)<br />
<br />
.如果真结束<br />
<br />
<br />
<br />
.如果真 (内存图形.画图像缩放 (图像, 0, 0, 图一.宽度, 图一.高度, ) ＝ 假)  ' //画出第一张图<br />
<br />
    输出调试文本 (“在底板上画上第一张图失败”)<br />
<br />
.如果真结束<br />
<br />
<br />
<br />
.判断开始 (纵横方向)  ' //根据纵横方向,画出第二张图,纵向为真,横向为假<br />
<br />
    内存图形.画图像缩放 (图像1, 0, 图一.高度, 图二.宽度, 图二.高度, )<br />
<br />
<br />
<br />
.默认<br />
<br />
    内存图形.画图像缩放 (图像1, 图一.宽度, 0, 图二.宽度, 图二.高度, )<br />
<br />
<br />
<br />
.判断结束<br />
<br />
<br />
<br />
合并图 ＝ 位图.保存到字节集 (图像格式, )  ' //按原数据格式保存图片<br />
<br />
<br />
<br />
.如果真 (合并图 ＝ {  })<br />
<br />
    输出调试文本 (“保存图片到字节集失败”)<br />
<br />
.如果真结束<br />
<br />
<br />
<br />
.如果真 (取反 (是否为空 (保存路径)))  ' //直接保存已经合并的图片<br />
<br />
    位图.保存到文件 (保存路径, 图像格式)  ' //按原数据格式保存图片<br />
<br />
.如果真结束<br />
<br />
<br />
<br />
图像.销毁 ()<br />
<br />
图像1.销毁 ()<br />
<br />
内存图形.销毁 ()<br />
<br />
画刷.销毁 ()<br />
<br />
<br />
<br />
输出调试文本 (“合并成功”)<br />
<br />
<br />
<br />
返回 (保存路径)

用的GDIPLUS类2.4.1，合成两张图片。在我电脑上是没问题的，正常。放到windows server2012服务器上 AMD核心的，执行到这里就停止运行。