图片_缩放子程序放大后的图片会增加一行一列 - 精易论坛

[JavaScript] 纯文本查看 复制代码

.版本 2



.子程序 图片_缩放, 字节集, 公开

.参数 图片, 字节集

.参数 宽度, 整数型

.参数 高度, 整数型

.参数 无损, 逻辑型, 可空, 假为快速 真为无损，默认为假

.局部变量 对象, 对象

.局部变量 数据1, 整数型, , "0"

.局部变量 数据2, 整数型, , "0"

.局部变量 a, 整数型

.局部变量 b, 整数型

.局部变量 位图, 类_位图操作

.局部变量 c, 整数型

.局部变量 d, 整数型

.局部变量 图片缩放, 类_像素组



' 命令收集地址：https://bbs.125.la/forum.php?mod=viewthread&tid=14182970

CoInitialize (0)

对象.创建图片对象 (图片)

位图.从数据创建 (对象.取回图片 ())

CoUninitialize ()

图片缩放.位图_转_像素组 (位图, 数据1)

a ＝ 位图.取宽度 ()

b ＝ 位图.取高度 ()

c ＝ 宽度

d ＝ 高度

.判断开始 (无损 ＝ 假)

    图片缩放.像素组_缩放图片_快速 (数据1, a, b, c, d, 数据2)

.默认

    图片缩放.像素组_缩放图片_无损 (数据1, a, b, c, d, 数据2)

.判断结束

位图.创建空白位图 (1, 1, 24)

图片缩放.像素组_转_位图 (位图, 数据2, c, d)

返回 (位图.取出位图数据 ())

[JavaScript] 纯文本查看 复制代码

.版本 2



写到文件 (取运行目录 () ＋ “\001a.png”, 图片_缩放 (读入文件 (取运行目录 () ＋ “\001.png”), 72, 45, 假))

写到文件 (取运行目录 () ＋ “\001b.png”, 图片_缩放 (读入文件 (取运行目录 () ＋ “\001.png”), 720, 450, 假))