I tried a lot, but couldn't get any feedback from the code below.
The code seems to work ok because it doesn't give any error and creates the diff.png image.
But it doesn't give any feedback for debug.print
I''ve tried nearly every combination and and about to go nuts.
Can anybody help ?
PS. I'm using VBA under Access 2007
Code: Select all
Private Sub TestCompare()
Dim imgMagick
Dim strMsg As String
Set imgMagick = CreateObject("ImageMagickObject.MagickImage.1")
strMsg = imgMagick.Compare("-metric", "PSNR", "c:\test.jpg ", "c:\test2.jpg ", "c:\diff.png ")
Debug.Print strMsg
Set imgMagick = Nothing
End Sub