hi
dim compare
set compare = create("mercury.compare")
fi= f1 path(image)
f2=f2 path
while isequalbin(f1,f2,0,1)
msgbox "f1,f2 equal"
else
msgbox"f1,f2 is not equal"
wend
thanks and regards
anilbabu
On Fri, Feb 12, 2010 at 9:35 AM, MREETYUNJAYA DAAS <
[email protected]> wrote:
> Hi Frnds,
>
> Can anyone please tell me how to compare two swf files for text images
> basically a ebook using QTP.
> e
> Regard's
> Mreetyunjaya
>
> On Thu, Feb 11, 2010 at 7:54 PM, Manjeet Singh <[email protected]>wrote:
>
>> Hi,
>> Try to use below code:-
>>
>> Dim actualbmp,expectedbmp
>> actualbmp=CaptureBitmap_Example
>> Browser("man").Page("Login"),"C:\actualbitmap"
>> expectedbmp=CaptureBitmap_Example
>> Browser("man").Page("Login"),"C:\actualbitmap1"
>>
>> CompareBitmap actualbmp, expectedbmp
>>
>> Function CaptureBitmap_Example(Obj,strfileName)
>> Obj.capturebitmap strfileName & ".png"
>> CaptureBitmap_Example=strfileName & ".png"
>> End Function
>>
>> Function CompareBitmap(actualbmp, expectedbmp)
>> Dim WshShell, oExec
>> Set WshShell = CreateObject("WScript.Shell")
>> Set oExec = WshShell.Exec("fc /b"&actualbmp&" "&expectedbmp)
>> output = oExec.StdOut.ReadAll()
>> If Instr(1,output, "no differences encountered", 1) Then
>> MsgBox "Success"
>> Else
>> MsgBox "Failure"
>> End If
>> End Function
>>
>> Thanks & Regards,
>> Manjeet Singh
>>
>>
>>
>>
>> On Thu, Feb 11, 2010 at 2:15 PM, Anamika aaa <[email protected]>wrote:
>>
>>> hi ,
>>>
>>> can anyone please tell me how to compare the image files with different
>>> background but the image is similar using QTP.
>>>
>>>
>>> Regards,
>>> anamika
>>>
>>> --
>>> You received this message because you are subscribed to the Google
>>> "QTP - HP Quick Test Professional - Automated Software Testing"
>>> group.
>>> To post to this group, send email to [email protected]
>>> To unsubscribe from this group, send email to
>>> [email protected]<mercuryqtp%[email protected]>
>>> For more options, visit this group at
>>> http://groups.google.com/group/MercuryQTP?hl=en
>>
>>
>> --
>> You received this message because you are subscribed to the Google
>> "QTP - HP Quick Test Professional - Automated Software Testing"
>> group.
>> To post to this group, send email to [email protected]
>> To unsubscribe from this group, send email to
>> [email protected]<mercuryqtp%[email protected]>
>> For more options, visit this group at
>> http://groups.google.com/group/MercuryQTP?hl=en
>>
>
>
>
> --
> "This email and any attachments thereto may contain private, confidential,
> and privileged material for the sole use of the intended recipient. Any
> review, copying, or distribution of this email (or any attachments thereto)
> by others is strictly prohibited. If you are not the intended recipient,
> please contact the sender immediately and permanently delete the original
> and any copies of this email and any attachments thereto."
>
> --
> You received this message because you are subscribed to the Google
> "QTP - HP Quick Test Professional - Automated Software Testing"
> group.
> To post to this group, send email to [email protected]
> To unsubscribe from this group, send email to
> [email protected]<mercuryqtp%[email protected]>
> For more options, visit this group at
> http://groups.google.com/group/MercuryQTP?hl=en
>
--
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
