png透明，把png某种颜色替换为透明

small莲

找了这个png透明解法好久，终于找到了正确解法，重新发一帖子方便你们下载。
这个源码是从原贴直接下载的，你们可以去原贴下载。原贴里没有附上模块，为了方便我直接在压缩包里附上了模块。

该源码是@Death·hacker所编写。
原贴地址：https://125.confly.eu.org/forum.php?mod=viewthread&tid=13615615
png透明.zip (339.12 KB, 下载次数: 429)

2020-4-14 19:49 上传

点击文件名下载附件
下载积分: 精币 -2 枚

雨落无声

大批量修改像素数据应该用锁定位图方式去操作！置某点颜色效率很差的！同样的图像，转换一次效率差10倍！

  

子程序名	返回值类型	公开	备 注
锁定数据法
参数名	类 型	参考	可空	数组	备 注
image	字节集
rgb	整数型

变量名	类 型	静态	数组	备 注
Color	整数型			ARGB
Bitmap	GP位图
BitmapData	位图数据
x	整数型
y	整数型
Pixel	整数型
t	整数型

Color ＝ RGB到ARGB (rgb, 255)
Bitmap.创建自字节集 (image)
Bitmap.锁定数据 (制矩形L (0, 0, Bitmap.取宽度 (), Bitmap.取高度 ()), 位或 ( #图像锁定模式_读, #图像锁定模式_写 ), #像素格式_32bppARGB, BitmapData)
变量循环首 (0, BitmapData.高度 － 1, 1, y)
变量循环首 (0, BitmapData.宽度 － 1, 1, x)
Pixel ＝ 指针到整数 (BitmapData.像素数据 ＋ y × BitmapData.跨步 ＋ x × 4)
如果真 (Pixel ＝ Color)
写字节 (BitmapData.像素数据 ＋ y × BitmapData.跨步 ＋ x × 4 ＋ 3, 0)

变量循环尾 ()
变量循环尾 ()
Bitmap.解锁数据 (BitmapData)
底图 ＝ Bitmap.保存到字节集 ( #图像格式_PNG )
Bitmap.销毁 ()

子程序名	返回值类型	公开	备 注
指针到整数	整数型
参数名	类 型	参考	可空	数组	备 注
指针	整数型

如果真 (IsBadReadPtr (指针, 4) ＝ 0)
置入代码 ({ 139, 69, 8, 139, 0, 201, 194, 4, 0 })
返回 (0)

子程序名	返回值类型	公开	备 注
写字节	逻辑型
参数名	类 型	参考	可空	数组	备 注
Ptr	整数型
Data	字节型

置入代码 ({ 139, 77, 8, 138, 69, 12, 136, 1, 201, 194, 8, 0 })
返回 (假)

.版本 2<br /> <br /> .子程序 锁定数据法<br /> .参数 image, 字节集<br /> .参数 rgb, 整数型<br /> .局部变量 Color, 整数型, , , ARGB <br /> .局部变量 Bitmap, GP位图<br /> .局部变量 BitmapData, 位图数据<br /> .局部变量 x, 整数型<br /> .局部变量 y, 整数型<br /> .局部变量 Pixel, 整数型<br /> .局部变量 t, 整数型<br /> <br /> Color ＝ RGB到ARGB (rgb, 255)<br /> Bitmap.创建自字节集 (image)<br /> Bitmap.锁定数据 (制矩形L (0, 0, Bitmap.取宽度 (), Bitmap.取高度 ()), 位或 (#图像锁定模式_读, #图像锁定模式_写), #像素格式_32bppARGB, BitmapData)<br /> .变量循环首 (0, BitmapData.高度 － 1, 1, y)<br />     .变量循环首 (0, BitmapData.宽度 － 1, 1, x)<br />         Pixel ＝ 指针到整数 (BitmapData.像素数据 ＋ y × BitmapData.跨步 ＋ x × 4)<br />         .如果真 (Pixel ＝ Color)<br />             写字节 (BitmapData.像素数据 ＋ y × BitmapData.跨步 ＋ x × 4 ＋ 3, 0)<br />         .如果真结束<br /> <br />     .变量循环尾 ()<br /> .变量循环尾 ()<br /> Bitmap.解锁数据 (BitmapData)<br /> 底图 ＝ Bitmap.保存到字节集 (#图像格式_PNG)<br /> Bitmap.销毁 ()<br /> <br /> <br /> .子程序 指针到整数, 整数型, 公开<br /> .参数 指针, 整数型<br /> <br /> .如果真 (IsBadReadPtr (指针, 4) ＝ 0)<br />     置入代码 ({ 139, 69, 8, 139, 0, 201, 194, 4, 0 })<br /> .如果真结束<br /> 返回 (0)<br /> <br /> .子程序 写字节, 逻辑型, 公开<br /> .参数 Ptr, 整数型<br /> .参数 Data, 字节型<br /> <br /> 置入代码 ({ 139, 77, 8, 138, 69, 12, 136, 1, 201, 194, 8, 0 })<br /> 返回 (假)

王者路太艰难

kyo9766

看一下算法，感谢分享

一剑磨十年

感谢分享~！！！！！！！

ck66

感谢分享~！！！！！！！

章若楠

看一下算法，感谢分享

552233

支持开源~！感谢分享

15339587789

牛得很牛得很牛得很牛得很牛得很牛得很牛得很牛得很牛得很牛得很牛得很牛得很牛得很

w3516330

感谢分享~~