我用这个子程序放大图片,放大后的图片在图片框中总是在前面多出一行一列的像素点。
你们看看是不是创建空白位图时的1行一列没有去掉。
[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)
返回 (位图.取出位图数据 ())
|