图片比较,结果输出

lorrell

我要比较两个图片内容是否一样,之前看到前辈写的代码,可是怎么没有对比结果显示呢,这部分应该怎么写

lorrell

#include <GUIConstants.au3>
#include<ButtonConstants.au3>
#include<WindowsConstants.au3>
Opt("PixelCoordMode", 2)

Global $Color=0xEF0000
Global $Pic
Global $U32
Global $GDI

GUICreate("", 313, 201)
$Path1 = GUICtrlCreateInput("Muestra2.bmp", 24, 48, 193, 21)
$Path2 = GUICtrlCreateInput("Muestra1.bmp", 24, 92, 193, 21)
$Browse1 = GUICtrlCreateButton("Browse", 226, 48, 61, 23, 0)
$Browse2 = GUICtrlCreateButton("Browse", 226, 92, 61, 23, 0)
$compare = GUICtrlCreateButton("&Compare", 95, 152, 127, 31, $BS_DEFPUSHBUTTON)
GUICtrlCreateGroup(" Paths ", 8, 14, 293, 123)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Browse1
            $newPath=FileOpenDialog("",@MyDocumentsDir,"(*.jpg;*bmp)") 
            if Not @error Then
                GUICtrlSetData($Path1,$newPath)
            EndIf
        Case $Browse2
            $newPath=FileOpenDialog("",@MyDocumentsDir,"(*.jpg;*bmp)") 
            if Not @error Then
                GUICtrlSetData($Path2,$newPath)
            EndIf
        Case $compare
            $Pic1Path=GUICtrlRead($Path1)
            $Pic2Path=GUICtrlRead($Path2)
            $U32=DllOpen("user32.dll")
            $GDI=DllOpen("GDI32.dll")
            $Test = Compare($Pic1Path,$Pic2Path, 200,200)
            DllClose($U32)
            DllClose($U32)
            MsgBox(4144,"",$Test)
    EndSwitch
WEnd

Func Compare($Pic1, $Pic2, $Width, $Height)
    Local $Color[$Width + 1][$Height + 1], $Color2[$Width + 1][$Height + 1], $Var = 0
    $Test = GUICreate("", $Width, $Height, -1, -1, $WS_POPUP,$WS_EX_TOPMOST)
    GUISetState()
    
    $Pic = GUICtrlCreatePic($Pic1, "", "", $Width, $Height)
    
    For $y = 1 To $Height
        For $x = 1 To $Width
            $Color[$x][$y] = PixelGetColor($x, $y)
        Next
    Next
    GUICtrlSetImage($Pic, $Pic2)
    For $y = 1 To $Height
        For $x = 1 To $Width
            $Color2[$x][$y] = PixelGetColor($x, $y)
            If $Color[$x][$y] = $Color2[$x][$y] Then 
                $Var += 1
            Else
                dibujar($x,$y)
            EndIf
        Next
    Next
    $Need = $Height * $Width
    $Result = ($Var / $Need) * 100
;~     GUIDelete($Test)
    Return Round($Result, 1) & "%  " & $Var
EndFunc   ;==>Compares

Func dibujar($nX,$nY)
    $hand = DllCall($U32,"int", "GetDC", "hwnd",GUICtrlGetHandle($Pic)); 0)
    $pen = DllCall($GDI, "int", "CreatePen", "int", 0 , "int",2, "int", $Color)
    DllCall($GDI, "int", "SelectObject", "int", $hand[0], "int", $pen[0])
    DllCall($GDI, "int", "MoveToEx", "hwnd", $hand[0], "int",$nX, "int", $nY, "int", 0)
    DllCall($GDI, "int", "LineTo", "hwnd", $hand[0], "int", $nX, "int", $nY)
EndFunc

zch11230

楼主能否提供个示例文件测试  阿福前辈有一个作品是找图的  我改了点东西作为他用 不知道是否适用于楼主的需求。

auto

回复 3# zch11230

请教 一下
    因为有背景的问题，是否可以做相似度来找图，即和原图达85%的相似度之类，来用识别数字和英文，

cumtljj

回复 4# auto


    可以使用大漠插件……找图找字找色挺好使的

auto

回复 5# cumtljj


    有没有实际使用的例子？？？

joyran

cumtljj

回复 6# auto


    可以在论坛搜索

cumtljj

图片为bmp就行了 插件百度一下吧

$dll_path=@ScriptDir & '\dm.dll'
Global $DM = _RegDM($dll_path)
If IsObj($DM) Then
        $ver = $DM.Ver()
                
;~         MsgBox(0,0,'> 插件版本：' & $ver & @CRLF)
Else
        MsgBox(64, '提示：', '注册大漠插件失败！！！')
        Exit
EndIf
        
Func _RegDM($dll_path)
        Local $obj = ObjCreate("dm.dmsoft")
        If Not IsObj($obj) Then
                RunWait(@ComSpec & ' /c regsvr32 /s ' & FileGetShortName($dll_path), '', @SW_HIDE)
                $obj = ObjCreate("dm.dmsoft")
        EndIf
        Return $obj
        EndFunc
;********************************以上是注册插件命令,需要使用时,直接复制上面的代码即可**********
;~ ;屏幕识别
Local $i ,$b,$c         
$a=TimerInit()
$i=$dm.findpicE(0,0,@DesktopWidth,@DesktopHeight,"C:\Documents and Settings\Administrator\桌面\1.bmp",000000,1,0)
$c=StringSplit($i,"|")
If  $c[1]>=0 Then
        $b=TimerDiff($a) 
                MouseMove($c[2],$c[3])
        MsgBox(0,0,'找到啦'&@CRLF&"找图总用时:"&$b&@CRLF&"坐标："&$c[2]&","&$c[3])
      
Else
        MsgBox(16,'错误',"没有匹配的图",3)
EndIf

回复 6# auto

auto

回复 9# cumtljj


    win8 ,注册显示成功，但是绑定窗口失败。参数换了好几个，就没有成功过

cumtljj

回复 10# auto


    绑定什么窗口？这个不需要什么绑定窗口啊？ 还有就是大漠插件在win8上可能运行有问题