有人会 BMP 图片转成画板格式么

liuzhimanong

我找了个源码，是图片二值化   可是图片必须要经过 画板 在取会了才可以二值化，有没有什么方法 不让图片到二值化

.版本 2
.支持库 BmpOperate

_启动窗口.画板1.底图 ＝ 图片到字节集
处理事件 ()
延时 (1800)
位图.载入数据 (_启动窗口.画板1.取图片 (, ))
.计次循环首 (位图.取高度 (), y)
    .计次循环首 (位图.取宽度 (), x)
        RGB ＝ 到字节集 (位图.取某点颜色 (x － 1, y － 1))
        颜色值 ＝ (RGB [1] ＋ RGB [2] ＋ RGB [3]) ÷ 3
        .如果 (150 ＜ 颜色值)
            位图.置某点颜色 (x － 1, y － 1, #白色)
        .否则
            位图.置某点颜色 (x － 1, y － 1, #黑色)
        .如果结束

    .计次循环尾 ()
.计次循环尾 ()
位图2.载入数据 (位图.取位图数据 ())
.计次循环首 (位图2.取高度 (), y2)
    .计次循环首 (位图2.取宽度 (), x1)
        .如果真 (位图2.取某点颜色 (x1 － 1, y2 － 1) ＝ #黑色)
            a ＝ 0
            .计次循环首 (8, i)
                x_ ＝ 多项选择 (i, 0, 1, 1, 1, 0, -1, -1, -1)
                y_ ＝ 多项选择 (i, -1, -1, 0, 1, 1, 1, 0, -1)
                .如果真 (位图2.取某点颜色 (x1 － 1 － x_, y2 － 1 － y_) ＝ #黑色)
                    a ＝ a ＋ 1
                .如果真结束

            .计次循环尾 ()
            .如果真 (a ≤ 清除的点)
                位图2.置某点颜色 (x1 － 1, y2 － 1, #白色)
            .如果真结束

        .如果真结束

    .计次循环尾 ()
.计次循环尾 ()
二值化返回值 ＝ 位图2.取位图数据 ()





补充内容 (2021-3-9 15:24):
有没有什么方法 不取画板的底图。 好像是要转换一下数据 有大佬知道么

fq19851220

  

图片bmp = 图片_转换 (图片到字节集, 1, , , )
位图.载入数据 (图片bmp)

.版本 2<br /> <br /> 图片bmp = 图片_转换 (图片到字节集, 1, , , )<br /> 位图.载入数据 (图片bmp)

fq19851220

fq19851220 发表于 2021-3-9 16:21
.版本 2

图片bmp = 图片_转换 (图片到字节集, 1, , , )

写错了 图片bmp  放在转换命令里  

liuzhimanong

fq19851220 发表于 2021-3-9 17:46
写错了 图片bmp  放在转换命令里

不用打开直接就可以转换了？

liuzhimanong

fq19851220 发表于 2021-3-9 15:23
.版本 2

图片bmp = 图片_转换 (图片到字节集, 1, , , )

大神我还有个算法 可以解决么

fq19851220

liuzhimanong 发表于 2021-3-11 18:31
大神我还有个算法 可以解决么

可以发发看看难度

liuzhimanong

fq19851220 发表于 2021-3-11 19:28
可以发发看看难度

在我另外一个帖子里 看看我帖子 算法那个