gdiplus模块 操作,调试没问题 编译后运行崩溃
代码如下
.版本 2
.子程序 批量合成
.局部变量 k, 整数型
.局部变量 当前目录, 文本型
.局部变量 目录名, 文本型
.局部变量 m, 整数型
.局部变量 longth, 整数型
.局部变量 文件数组, 文本型, , "0"
.局部变量 文件数量, 整数型
.局部变量 p, 整数型
.局部变量 当前素材路径, 文本型
.局部变量 新文件名, 文本型
.局部变量 n, 整数型
.局部变量 素材pic, 字节集
连续赋值 (真, Batton_批量合成.禁止, Batton_设置素材目录.禁止, Batton_设置底图.禁止, 纵向滚动条1.禁止)
.计次循环首 (_子目录数量, k)
当前目录 = _子目录数组 [k]
m = 倒找文本 (当前目录, “\”, , 假)
longth = 取文本长度 (当前目录)
目录名 = 取文本中间 (当前目录, m + 1, longth - m)
.判断开始 (文件是否存在 (取运行目录 () + “\成品\” + 目录名))
目录_清空 (取运行目录 () + “\成品\” + 目录名, )
.默认
目录_创建 (取运行目录 () + “\成品\” + 目录名)
.判断结束
文件数量 = 文件_枚举 (当前目录, “*.*”, 文件数组, 真, )
n = 0
.计次循环首 (文件数量, p)
当前素材路径 = 文件数组 [p]
.如果真 (寻找文本 (当前素材路径, “.png”, , 假) ≠ -1 或 寻找文本 (当前素材路径, “.jpg”, , 假) ≠ -1)
n = n + 1
新文件名 = 取运行目录 () + “\成品\” + 目录名 + “\” + 到文本 (n) + “.png”
素材pic = 读入文件 (当前素材路径)
单一合成 (素材pic, 目录名, 新文件名)
.如果真结束
.计次循环尾 ()
.计次循环尾 ()
连续赋值 (假, Batton_批量合成.禁止, Batton_设置素材目录.禁止, Batton_设置底图.禁止, 纵向滚动条1.禁止)
信息框 (“批量合成完毕”, 64, , )
.子程序 单一合成
.参数 素材pic, 字节集
.参数 目录名, 文本型
.参数 文件名, 文本型
.局部变量 GP图形, GP图形
.局部变量 底图图片, GP图像
.局部变量 素材图片, GP图像
.局部变量 GP位图, GP位图
.局部变量 bin, 字节集
.局部变量 素材高度, 整数型
.局部变量 GP字体, GP字体
.局部变量 GP纯色画刷, GP纯色画刷
.局部变量 GP文本格式, GP文本格式
.局部变量 矩形, 矩形F
.局部变量 str, 文本型
底图图片.创建自字节集 (_底图pic, )
素材图片.创建自字节集 (素材pic, )
素材高度 = 素材图片.取高度 ()
GP位图.创建自像素格式 (450, 800, #像素格式_32bppRGB)
GP图形.创建自图像 (GP位图)
GP图形.画图像 (底图图片, 0, 0)
GP图形.画图像 (素材图片, 0, _素材顶边)
.判断开始 (_加粗 = 真 且 _倾斜 = 真)
GP字体.创建自名称 (_字体.字体名称, _字体.字体大小, #字体风格_加粗倾斜, )
.判断 (_加粗 = 真)
GP字体.创建自名称 (_字体.字体名称, _字体.字体大小, #字体风格_加粗, )
.判断 (_倾斜 = 真)
GP字体.创建自名称 (_字体.字体名称, _字体.字体大小, #字体风格_倾斜, )
.默认
GP字体.创建自名称 (_字体.字体名称, _字体.字体大小, #字体风格_普通, )
.判断结束
GP文本格式.创建自通用默认 ()
GP文本格式.置对齐 (#文本对齐_靠近)
GP文本格式.置行对齐 (#文本对齐_居中)
GP纯色画刷.创建 (RGB到ARGB (#白色, ))
矩形 = 制矩形F (_文字左边, _文字顶边, 260, 100)
GP图形.置平滑模式 (#平滑模式_最佳质量)
GP图形.置算法模式 (#算法模式_高质量双三次)
GP图形.画文本 (目录名, GP字体, GP纯色画刷, 矩形, GP文本格式)
GP位图.保存到文件 (文件名, #图像格式_PNG, )
GP纯色画刷.销毁 ()
GP文本格式.销毁 ()
GP字体.销毁 ()
GP图形.销毁 ()
GP位图.销毁 ()
素材图片.销毁 ()
底图图片.销毁 ()
|