图片相似度对比

墨影0620

前排声明：源码非原创，为复制别人优化的。
优化内容：完善调用机制，实质可以很方便的复制到您的程序里进行调用！

  

子程序名	返回值类型	公开	备 注
图片对比	整数型
参数名	类 型	参考	可空	数组	备 注
图1路径	文本型
图2路径	文本型
是否取不同	逻辑型				留空默认为假，取相同（即相似度），真为取不同，假为取相同
完成后删除	逻辑型				留空默认为假，不删除
临时文件路径	文本型				留空则以运行目录作为临时文件路径,末尾不需要加文件名和“\”
临时文件名称	文本型				留空默认为“临时位图”，不需要加后缀！

变量名	类 型	静态	数组	备 注
位图1	位图
位图2	位图
x	整数型
y	整数型
总点	整数型
相同	整数型
不同	整数型

临时文件路径 ＝ 选择 (是否为空 (临时文件路径), 取运行目录 (), 临时文件路径)
临时文件名称 ＝ 选择 (是否为空 (临时文件名称), “临时位图”, 临时文件名称)
转换到BMP (图1路径, 取运行目录 () ＋ “\” ＋ 临时文件名称 ＋ “1.bmp”)
转换到BMP (图2路径, 取运行目录 () ＋ “\” ＋ 临时文件名称 ＋ “2.bmp”)
位图1.载入文件 (取运行目录 () ＋ “\” ＋ 临时文件名称 ＋ “1.bmp”)
位图2.载入文件 (取运行目录 () ＋ “\” ＋ 临时文件名称 ＋ “2.bmp”)
计次循环首 (位图1.取宽度 (), x)
计次循环首 (位图1.取高度 (), y)
总点 ＝ 总点 ＋ 1
判断 (位图1.取某点颜色 (x － 1, y － 1) ＝ 位图2.取某点颜色 (x － 1, y － 1))
相同 ＝ 相同 ＋ 1
不同 ＝ 不同 ＋ 1

计次循环尾 ()
计次循环尾 ()
调试输出 (总点, 相同, 不同, 相似度)
如果真 (完成后删除)
删除文件 (取运行目录 () ＋ “\” ＋ 临时文件名称 ＋ “1.bmp”)
删除文件 (取运行目录 () ＋ “\” ＋ 临时文件名称 ＋ “2.bmp”)
如果 (是否取不同)
返回 (不同 ÷ 总点 × 100)
返回 (相同 ÷ 总点 × 100)

i支持库列表	支持库注释
BmpOperate	位图操作支持库
eImgConverter	图像格式转换支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 BmpOperate<br /> .支持库 eImgConverter<br /> .支持库 spec<br /> <br /> .子程序 图片对比, 整数型<br /> .参数 图1路径, 文本型<br /> .参数 图2路径, 文本型<br /> .参数 是否取不同, 逻辑型, 可空, 留空默认为假，取相同（即相似度），真为取不同，假为取相同<br /> .参数 完成后删除, 逻辑型, 可空, 留空默认为假，不删除<br /> .参数 临时文件路径, 文本型, 可空, 留空则以运行目录作为临时文件路径,末尾不需要加文件名和“\”<br /> .参数 临时文件名称, 文本型, 可空, 留空默认为“临时位图”，不需要加后缀！<br /> .局部变量 位图1, 位图<br /> .局部变量 位图2, 位图<br /> .局部变量 x, 整数型<br /> .局部变量 y, 整数型<br /> .局部变量 总点, 整数型<br /> .局部变量 相同, 整数型<br /> .局部变量 不同, 整数型<br /> <br /> 临时文件路径 ＝ 选择 (是否为空 (临时文件路径), 取运行目录 (), 临时文件路径)<br /> 临时文件名称 ＝ 选择 (是否为空 (临时文件名称), “临时位图”, 临时文件名称)<br /> 转换到BMP (图1路径, 取运行目录 () ＋ “\” ＋ 临时文件名称 ＋ “1.bmp”)<br /> 转换到BMP (图2路径, 取运行目录 () ＋ “\” ＋ 临时文件名称 ＋ “2.bmp”)<br /> 位图1.载入文件 (取运行目录 () ＋ “\” ＋ 临时文件名称 ＋ “1.bmp”)<br /> 位图2.载入文件 (取运行目录 () ＋ “\” ＋ 临时文件名称 ＋ “2.bmp”)<br /> .计次循环首 (位图1.取宽度 (), x)<br />     .计次循环首 (位图1.取高度 (), y)<br />         总点 ＝ 总点 ＋ 1<br />         .判断开始 (位图1.取某点颜色 (x － 1, y － 1) ＝ 位图2.取某点颜色 (x － 1, y － 1))<br />             相同 ＝ 相同 ＋ 1<br />         .默认<br />             不同 ＝ 不同 ＋ 1<br />         .判断结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 调试输出 (总点, 相同, 不同, 相似度)<br /> .如果真 (完成后删除)<br />     删除文件 (取运行目录 () ＋ “\” ＋ 临时文件名称 ＋ “1.bmp”)<br />     删除文件 (取运行目录 () ＋ “\” ＋ 临时文件名称 ＋ “2.bmp”)<br /> .如果真结束<br /> .如果 (是否取不同)<br />     返回 (不同 ÷ 总点 × 100)<br /> .否则<br />     返回 (相同 ÷ 总点 × 100)<br /> .如果结束

glts1

图片相似度好像不容易啊

淘气小阿飞

看这个！学习一下~~~~~~~~~~~~~！

皮皮驴

好久以前看过图片相似度对比 这个写法效率会不会低一些 而且确实楼上说的一样 缩略图或者压缩后比较可能会不好比较

ttt0410

这样的我做过，效率差了，特别图片大的时候，也不好用于找图或者缩略图等比较

全村最帅

看看好不好,能套到项目上

已注销456802

学习学习。我

懒人定制软件

新技能已get√  

一粒红尘

相同的图片所谓一个像素 相似度 应该为0

wang123zha

代码有点繁琐