i had developed an activex component for fingerprint capture in IE. the activex dll loads the scanner dll and initialize the scanner for fingerprint capture. if the scanner initialized then i show a popup which was created using c++ showdialog method. the popup appears then user place the fingerprint and the user place the finger on the scanner and fingerprint captures, for the following process i created a function named scannerTest() in activex dll. Then i created a obj for activex dll class using VB script, in the button click event i call scannerTest() function. The fingerprint capture popup shows properly when the capture button click in IE8. while the same thing i did in IE9 the popup not appears at first time and the popup appears in the next click.while i run my app in ie9 compatibility mode the popup appears. The same issue in IE10 also. how can i rectify this. sorry for my bad English and thanks in advance. please do the needful. my sample code is given below.
HTML:
<! DOCTYPE html> <head> <script language="vbscript" type="text/vbscript" src="LegendScript.vbs"> </script> </head> <body> <input type="hidden" id="ijkl" name="921" Value = "1"/> <input type="hidden" id="lmno" name="18947" Value = "1"/> <input type="hidden" id="fid" name="fid" Value = "1"/> <input type="hidden" id="txtEnrol" name="efgh" /> <input type="hidden" id="txtHiddenImage" name="mnop" /> <input type="hidden" id="txtRecog" name="abcd" /> <input type="button" language = "vbscript" id="btnEnrol" value="Generalization" onclick="GetFeatureAccrual ijkl.Value, fid.Value, txtEnrol, txtHiddenImage" /> <input type="button" language = "vbscript" id="btnRecog" value="Recognition" onClick="GetFeature lmno.Value, fid.Value, txtRecog" /> </body> </html>
VBScript:
Function scannerTest(sTellerID, sFingerID, IdOfHiddenTextField) Dim Obj If (IdOfHiddenTextField Is Nothing) Then MsgBox "Invalid Hidden Fiedld ID Received", vbInformation, "BOB FI BMA Application" ElseIf (sTellerID = "") Then MsgBox "TellerID ID Is Empty", vbInformation, "BOB FI BMA Application" Else Set Obj = CreateObject ("BOB_FI_API.Legend") Dim ret Dim length Obj.EnableLog = 1 Obj.GetFeature sTellerID, cLng("1") IdOfHiddenTextField.Value = Obj.Feature Dim sContent obj.ServerData = "1234567" sContent = obj.DllData If (IdOfHiddenTextField.Value <> "") Then MsgBox "Scanner working properly" End If End If End Function