|

楼主 |
发表于 2025-2-11 04:21:50
|
显示全部楼层
内蒙古自治区乌海市
修改图片 (图路径, 35666, 23140 修改后路径, 100) 尺寸太大就会提示溢出
.子程序 修改图片, 逻辑型, 公开, 本子程序处理图片尺寸大小
.参数 源图片地址, 文本型
.参数 图片宽度, 整数型
.参数 图片高度, 整数型
.参数 目标图片地址, 文本型
.参数 图像品质高低, 整数型,
.局部变量 数据, 字节集
.局部变量 i, 整数型
.局部变量 返回数据, 整数型
画板1.宽度 = 图片宽度
画板1.高度 = 图片高度
i = 载入图片 (源图片地址)
画板1.画图片 (i, 0, 0, 画板1.宽度, 画板1.高度, )
数据 = 画板1.取图片 (画板1.宽度, 画板1.高度)
写到文件 (目标图片地址, 数据)
卸载图片 (i) ' ***
返回数据 = 转换到JPG (目标图片地址, 目标图片地址, 假, 图像品质高低, 真, 0)
画板1.清除 (0, 0, 画板1.宽度, 画板1.高度)
数据 = { }
.如果 (返回数据 = 1)
返回 (真)
.否则
返回 (假)
|
|