画板法怎样获取图片的颜色？

hlzxcjx · 发表于 2025-4-29 21:35:00

用"画板1.取点()"的方法可获取画板上图片某点的颜色值，但如果图片大于画板框，这样就取不到画板框外的图片的颜色，这种情况应该怎样处理呢？

附代码：

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

按钮1.标题＝ “选择图片”

子程序名	返回值类型	公开	备注
_按钮1_被单击

变量名	类型	静态	数组	备注
图片宽度	整数型
图片高度	整数型
x	整数型
x索引	整数型
y	整数型
y索引	整数型
颜色值	整数型
红分量	整数型
绿分量	整数型
蓝分量	整数型
计算颜色值	整数型
图片路径	文本型
图片号	整数型

图片路径＝ “c:\1.jpg”
图片号＝载入图片 (图片路径)
画板1.画图片 (图片号, 0, 0, , , )
图片宽度＝画板1.取图片宽度 (图片号) ' 取图片宽度 (图片路径)
图片高度＝画板1.取图片高度 (图片号) ' 取图片高度 (图片路径)

计次循环首 (图片宽度, x)

x索引＝ x － 1

计次循环首 (图片高度, y)

y索引＝ y － 1

颜色值＝画板1.取点 (x索引, y索引)

红分量＝颜色值％ 256

绿分量＝颜色值 ÷ 256 ％ 256

蓝分量＝颜色值 ÷ 65536 ％ 256

计算颜色值＝红分量 × 65536 ＋绿分量 × 256 ＋蓝分量

如果真 (计算颜色值＜ 8000000)

信息框 (“发现颜色值小于8000000的像素！x索引=” ＋到文本 (x索引) ＋ “ y索引=” ＋到文本 (y索引), 0, “结果”, )

信息框 (“图片宽度=” ＋到文本 (图片宽度), 0, “图片高度=” ＋到文本 (图片高度), )

返回 ()

计次循环尾 ()

.版本 2<br />
<br />
.程序集 窗口程序集_启动窗口<br />
<br />
.子程序 __启动窗口_创建完毕<br />
<br />
按钮1.标题 ＝ “选择图片”<br />
<br />
.子程序 _按钮1_被单击<br />
.局部变量 图片宽度, 整数型<br />
.局部变量 图片高度, 整数型<br />
.局部变量 x, 整数型<br />
.局部变量 x索引, 整数型<br />
.局部变量 y, 整数型<br />
.局部变量 y索引, 整数型<br />
.局部变量 颜色值, 整数型<br />
.局部变量 红分量, 整数型<br />
.局部变量 绿分量, 整数型<br />
.局部变量 蓝分量, 整数型<br />
.局部变量 计算颜色值, 整数型<br />
.局部变量 图片路径, 文本型<br />
.局部变量 图片号, 整数型<br />
<br />
图片路径 ＝ “c:\1.jpg”<br />
图片号 ＝ 载入图片 (图片路径)<br />
<br />
画板1.画图片 (图片号, 0, 0, , , )<br />
图片宽度 ＝ 画板1.取图片宽度 (图片号)  ' 取图片宽度 (图片路径)<br />
<br />
图片高度 ＝ 画板1.取图片高度 (图片号)  ' 取图片高度 (图片路径)<br />
<br />
.计次循环首 (图片宽度, x)<br />
<br />
    x索引 ＝ x － 1<br />
<br />
    .计次循环首 (图片高度, y)<br />
<br />
        y索引 ＝ y － 1<br />
<br />
        颜色值 ＝ 画板1.取点 (x索引, y索引)<br />
        红分量 ＝ 颜色值 ％ 256<br />
        绿分量 ＝ 颜色值 ÷ 256 ％ 256<br />
        蓝分量 ＝ 颜色值 ÷ 65536 ％ 256<br />
        计算颜色值 ＝ 红分量 × 65536 ＋ 绿分量 × 256 ＋ 蓝分量<br />
<br />
        .如果真 (计算颜色值 ＜ 8000000)<br />
            信息框 (“发现颜色值小于8000000的像素！x索引=” ＋ 到文本 (x索引) ＋ “   y索引=” ＋ 到文本 (y索引), 0, “结果”, )<br />
            信息框 (“图片宽度=” ＋ 到文本 (图片宽度), 0, “图片高度=” ＋ 到文本 (图片高度), )<br />
            返回 ()<br />
        .如果真结束<br />
<br />
    .计次循环尾 ()<br />
.计次循环尾 ()

走一回 · 发表于 2025-4-30 09:33:14

这样就是没画到画板上，这怎么取得到呢？要么加大画板的尺寸到图片的尺寸。

Giggle梦痕 · 发表于 2025-4-30 10:52:29

缩放图片

w589321 · 发表于 2025-4-30 10:57:49

方法有很多，第一是用精易模块的“位图操作”或“位图处理”类，第二是用GDIPLUS处理，第三是用位图操作支持库。

hlzxcjx · 发表于 2025-4-30 17:35:59

w589321 发表于 2025-4-30 10:57
方法有很多，第一是用精易模块的“位图操作”或“位图处理”类，第二是用GDIPLUS处理，第三是用位图操作支 ...

位图检测颜色只支持bmp格式图片，对jpg或png要先转换，如果批量操作几千个图片，效率很低，有没有高效检测颜色的方法呢？

阿素里戈沃里嘚 · 发表于 2025-5-1 13:17:49

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕