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

small莲

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

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

2020-4-14 19:49 上传

点击文件名下载附件

雨落无声

大批量修改像素数据应该用锁定位图方式去操作！置某点颜色效率很差的！同样的图像，转换一次效率差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 /> 返回 (假)

ferfor

必须支持一下

莫尔多瓦

必须支持一下

wdjyltzh01

必须支持一下

远程V维护

精易论坛龙

感谢分享

zhaode2888

感谢分享

2045109515

66666666666666666666666666666

lcz1012

试试看好用不

wangwi39421

看一下这个，正需要，谢谢