FreeImage3.18模块

布鲁惠斯

支持开源~！感谢分享

淑名夏凛月

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

ljx111

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

a019872140

呵呵还有人在搞这个东西

钱多多28

多谢分享，干货

xnf

6666666666666666666666666666666666666666666666666

2442295093

咸鱼666

Dana 发表于 2023-1-7 20:26
[e=1].版本 2
.支持库 spec

你用附件试试，我应该没弄错吧

亿万

支持开源~！感谢分享

Dana

咸鱼666 发表于 2023-1-7 18:45
一样的，你试试取某点颜色ex，取出来的还是有问题的

  

子程序名	返回值类型	公开	备 注
测试_像素点颜色

变量名	类 型	静态	数组	备 注
图像	FreeImage
RGBQUAD	RGBQUAD
结果	逻辑型
logo_png	字节集

结果 ＝ 图像.创建 (50, 50, 32)
调试输出 (结果, “创建 50*50 32位图”)
结果 ＝ 图像.取某点颜色Ex (5, 5, RGBQUAD)
调试输出 (“空白图 RGBA”, 结果, RGBQUAD.Red, RGBQUAD.Green, RGBQUAD.Blue, RGBQUAD.Reserved)
结果 ＝ 图像.填充背景 (RGBA到RGBQUAD ( #白色 ))
调试输出 (“填充背景 #白色”, 结果)
结果 ＝ 图像.取某点颜色Ex (5, 5, RGBQUAD)
调试输出 (“白色图 RGBA”, 结果, RGBQUAD.Red, RGBQUAD.Green, RGBQUAD.Blue, RGBQUAD.Reserved)
调试输出 (“白色图 RGB ”, 图像.取某点颜色 (5, 5), 到字节集 (图像.取某点颜色 (5, 5)))
' --- 以上输出结果
' >> 真 | “创建 50*50 32位图”
' >> “空白图 RGBA” | 真 | 0 | 0 | 0 | 0
' >> “填充背景 #白色” | 真
' >> “白色图 RGBA” | 真 | 255 | 255 | 255 | 255
' >> “白色图 RGB ” | 16777215 | 字节集:4{255,255,255,0}
' 测试图片
' logo_png ＝ HTTP读文件 (“”)
' 测试坐标 97,15 Photoshop数据 RGB(35,141,217) Op:100%
' 测试坐标 98,15 Photoshop数据 RGB(35,141,217) Op:47%
logo_png ＝ 读入文件 (取运行目录 () ＋ “/测试数据/logo.png”)
调试输出 (“logo_png”, 取字节集长度 (logo_png))
结果 ＝ 图像.载入数据 (logo_png, #FIF_PNG )
调试输出 (“载入数据”, 结果)
调试输出 (“97,15 RGB”, 到字节集 (图像.取某点颜色 (97, 15)))
调试输出 (“98,15 RGB”, 到字节集 (图像.取某点颜色 (98, 15)))
' --- 以上输出结果
' >> “logo_png” | 9656
' >> “载入数据” | 真
' >> “97,15 RGB” | 字节集:4{255,255,255,0}
' >> “98,15 RGB” | 字节集:4{255,255,255,0}
' *-.-
图像.翻转 (0)  ' 垂直翻转
调试输出 (“97,15 RGB”, 到字节集 (图像.取某点颜色 (97, 15)))
调试输出 (“98,15 RGB”, 到字节集 (图像.取某点颜色 (98, 15)))
图像.取某点颜色Ex (97, 15, RGBQUAD)
' +0.5 = 向上取整
调试输出 (“97,15 RGBA”, RGBQUAD.Red, RGBQUAD.Green, RGBQUAD.Blue, RGBQUAD.Reserved, “Op”, 到整数 (RGBQUAD.Reserved ÷ 255 × 100 ＋ 0.5))
图像.取某点颜色Ex (98, 15, RGBQUAD)
调试输出 (“98,15 RGBA”, RGBQUAD.Red, RGBQUAD.Green, RGBQUAD.Blue, RGBQUAD.Reserved, “Op”, 到整数 (RGBQUAD.Reserved ÷ 255 × 100 ＋ 0.5))
' --- 以上输出结果
' >> “97,15 RGB” | 字节集:4{35,141,217,0}
' >> “98,15 RGB” | 字节集:4{35,141,217,0}
' >> “97,15 RGBA” | 35 | 141 | 217 | 255 | “Op” | 100
' >> “98,15 RGBA” | 35 | 141 | 217 | 119 | “Op” | 47

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 测试_像素点颜色<br /> .局部变量 图像, FreeImage<br /> .局部变量 RGBQUAD, RGBQUAD<br /> .局部变量 结果, 逻辑型<br /> .局部变量 logo_png, 字节集<br /> <br /> 结果 ＝ 图像.创建 (50, 50, 32)<br /> 调试输出 (结果, “创建 50*50 32位图”)<br /> 结果 ＝ 图像.取某点颜色Ex (5, 5, RGBQUAD)<br /> 调试输出 (“空白图 RGBA”, 结果, RGBQUAD.Red, RGBQUAD.Green, RGBQUAD.Blue, RGBQUAD.Reserved)<br /> 结果 ＝ 图像.填充背景 (RGBA到RGBQUAD (#白色))<br /> 调试输出 (“填充背景 #白色”, 结果)<br /> 结果 ＝ 图像.取某点颜色Ex (5, 5, RGBQUAD)<br /> 调试输出 (“白色图 RGBA”, 结果, RGBQUAD.Red, RGBQUAD.Green, RGBQUAD.Blue, RGBQUAD.Reserved)<br /> 调试输出 (“白色图 RGB ”, 图像.取某点颜色 (5, 5), 到字节集 (图像.取某点颜色 (5, 5)))<br /> ' --- 以上输出结果<br /> ' >> 真 | “创建 50*50 32位图”<br /> ' >> “空白图 RGBA” | 真 | 0 | 0 | 0 | 0<br /> ' >> “填充背景 #白色” | 真<br /> ' >> “白色图 RGBA” | 真 | 255 | 255 | 255 | 255<br /> ' >> “白色图 RGB ” | 16777215 | 字节集:4{255,255,255,0}<br /> <br /> ' 测试图片<br /> ' logo_png ＝ HTTP读文件 (“<img id="aimg_Lz3e7" onclick="zoom(this, this.src, 0, 0, 0)" class="zoom" src="https://bbs.125.la/static/image/common/logo.png" onmouseover="img_onmouseoverfunc(this)" lazyloadthumb="1" border="0" alt="" />”)<br /> ' 测试坐标 97,15 Photoshop数据 RGB(35,141,217) Op:100%<br /> ' 测试坐标 98,15 Photoshop数据 RGB(35,141,217) Op:47%<br /> logo_png ＝ 读入文件 (取运行目录 () ＋ “/测试数据/logo.png”)<br /> 调试输出 (“logo_png”, 取字节集长度 (logo_png))<br /> 结果 ＝ 图像.载入数据 (logo_png, #FIF_PNG)<br /> 调试输出 (“载入数据”, 结果)<br /> 调试输出 (“97,15 RGB”, 到字节集 (图像.取某点颜色 (97, 15)))<br /> 调试输出 (“98,15 RGB”, 到字节集 (图像.取某点颜色 (98, 15)))<br /> ' --- 以上输出结果<br /> ' >> “logo_png” | 9656<br /> ' >> “载入数据” | 真<br /> ' >> “97,15 RGB” | 字节集:4{255,255,255,0}<br /> ' >> “98,15 RGB” | 字节集:4{255,255,255,0}<br /> ' *-.-<br /> 图像.翻转 (0)  ' 垂直翻转<br /> 调试输出 (“97,15 RGB”, 到字节集 (图像.取某点颜色 (97, 15)))<br /> 调试输出 (“98,15 RGB”, 到字节集 (图像.取某点颜色 (98, 15)))<br /> 图像.取某点颜色Ex (97, 15, RGBQUAD)<br /> ' +0.5 = 向上取整<br /> 调试输出 (“97,15 RGBA”, RGBQUAD.Red, RGBQUAD.Green, RGBQUAD.Blue, RGBQUAD.Reserved, “Op”, 到整数 (RGBQUAD.Reserved ÷ 255 × 100 ＋ 0.5))<br /> 图像.取某点颜色Ex (98, 15, RGBQUAD)<br /> 调试输出 (“98,15 RGBA”, RGBQUAD.Red, RGBQUAD.Green, RGBQUAD.Blue, RGBQUAD.Reserved, “Op”, 到整数 (RGBQUAD.Reserved ÷ 255 × 100 ＋ 0.5))<br /> ' --- 以上输出结果<br /> ' >> “97,15 RGB” | 字节集:4{35,141,217,0}<br /> ' >> “98,15 RGB” | 字节集:4{35,141,217,0}<br /> ' >> “97,15 RGBA” | 35 | 141 | 217 | 255 | “Op” | 100<br /> ' >> “98,15 RGBA” | 35 | 141 | 217 | 119 | “Op” | 47