关于图片某色置透明度问题

EvenKing

图1
图2

问:如何将图一的白色部分替换成透明，然后直接输出成文件
论坛内的 莫_图片置某色透明() 不知什么原因也无法使用(无输出)
望各位dalao解决
以下是源码

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类 型	静态	数组	备 注
R	整数型
G	整数型
B	整数型
图片	字节集

图片 ＝ 读入文件 (“C:\Users\Administrator\Desktop\E.png”)
图片_取像素RGB (图片, 10, 10, R, G, B)
写到文件 (“C:\Users\Administrator\Desktop\2.png”, 图片置某色透明 (图片, 取颜色值 (R, G, B), 10, 100, ))
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
图片置某色透明	字节集
参数名	类 型	参考	可空	数组	备 注
参数_图片	字节集
参数_颜色值	整数型
参数_偏差值	整数型				偏差范围
参数_透明度	整数型				默认全透明 0-255  255为不透明 0为全透明
参数_错误信息	文本型

变量名	类 型	静态	数组	备 注
GP位图	GP位图
k	整数型
g	整数型
g_i	整数型
k_i	整数型
位图	位图
局_临时颜色	整数型
局_返回图片	字节集

如果真 (参数_图片 ＝ {  })
调试输出 (“传递进来的图片为空”)
返回 ({  })

k ＝ 图片_取宽度 (参数_图片)
g ＝ 图片_取宽度 (参数_图片)
画板_
如果真 (k ＝ 0 或 g ＝ 0)
调试输出 (“宽度 或 高度为空”)
返回 ({  })
如果真 (参数_透明度 ＜ 0)
参数_透明度 ＝ 0
如果真 (参数_透明度 ＞ 255)
参数_透明度 ＝ 255
位图.载入shuj (参数_图片)
GP位图.创建自像素格式 (k, g, #像素格式_32bppARGB )
计次循环首 (g, g_i)
计次循环首 (k, k_i)
局_临时颜色 ＝ 位图.取某点颜色 (k_i, g_i)
如果 (局_临时颜色 ≤ 参数_颜色值 ＋ 参数_偏差值 且 局_临时颜色 ≥ 参数_颜色值 － 参数_偏差值)
GP位图.置某点颜色 (k_i, g_i, RGB到ARGB ( #黑色, 参数_透明度))
GP位图.置某点颜色 (k_i, g_i, RGB到ARGB (局_临时颜色, ))

计次循环尾 ()
计次循环尾 ()
局_返回图片 ＝ GP位图.保存到字节集 (, )
GP位图.销毁 ()
返回 (局_返回图片)

i支持库列表	支持库注释
BmpOperate	位图操作支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 BmpOperate<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 R, 整数型<br /> .局部变量 G, 整数型<br /> .局部变量 B, 整数型<br /> .局部变量 图片, 字节集<br /> <br /> 图片 ＝ 读入文件 (“C:\Users\Administrator\Desktop\E.png”)<br /> 图片_取像素RGB (图片, 10, 10, R, G, B)<br /> 写到文件 (“C:\Users\Administrator\Desktop\2.png”, 图片置某色透明 (图片, 取颜色值 (R, G, B), 10, 100, ))<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 图片置某色透明, 字节集, 公开<br /> .参数 参数_图片, 字节集<br /> .参数 参数_颜色值, 整数型<br /> .参数 参数_偏差值, 整数型, 可空, 偏差范围<br /> .参数 参数_透明度, 整数型, 可空, 默认全透明 0-255  255为不透明 0为全透明 <br /> .参数 参数_错误信息, 文本型, 参考 可空<br /> .局部变量 GP位图, GP位图<br /> .局部变量 k, 整数型<br /> .局部变量 g, 整数型<br /> .局部变量 g_i, 整数型<br /> .局部变量 k_i, 整数型<br /> .局部变量 位图, 位图<br /> .局部变量 局_临时颜色, 整数型<br /> .局部变量 局_返回图片, 字节集<br /> <br /> .如果真 (参数_图片 ＝ {  })<br />     调试输出 (“传递进来的图片为空”)<br />     返回 ({  })<br /> .如果真结束<br /> <br /> k ＝ 图片_取宽度 (参数_图片)<br /> g ＝ 图片_取宽度 (参数_图片)<br /> 画板_<br /> .如果真 (k ＝ 0 或 g ＝ 0)<br />     调试输出 (“宽度 或 高度为空”)<br />     返回 ({  })<br /> .如果真结束<br /> .如果真 (参数_透明度 ＜ 0)<br />     参数_透明度 ＝ 0<br /> .如果真结束<br /> .如果真 (参数_透明度 ＞ 255)<br />     参数_透明度 ＝ 255<br /> .如果真结束<br /> 位图.载入shuj (参数_图片)<br /> GP位图.创建自像素格式 (k, g, #像素格式_32bppARGB)<br /> .计次循环首 (g, g_i)<br />     .计次循环首 (k, k_i)<br />         局_临时颜色 ＝ 位图.取某点颜色 (k_i, g_i)<br />         .如果 (局_临时颜色 ≤ 参数_颜色值 ＋ 参数_偏差值 且 局_临时颜色 ≥ 参数_颜色值 － 参数_偏差值)<br />             GP位图.置某点颜色 (k_i, g_i, RGB到ARGB (#黑色, 参数_透明度))<br />         .否则<br />             GP位图.置某点颜色 (k_i, g_i, RGB到ARGB (局_临时颜色, ))<br />         .如果结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 局_返回图片 ＝ GP位图.保存到字节集 (, )<br /> GP位图.销毁 ()<br /> 返回 (局_返回图片)

陌上人如玉

https://bbs.125.la/thread-14312123-1-1.html

EvenKing

补图1 补图2

EvenKing

陌上人如玉 发表于 2020-6-11 14:38
https://bbs.125.la/thread-14312123-1-1.html

111.e例程中的创建字节流对象是什么子程序，刚找了好久没找到...