ActiveX problem

[sukesh]

Hi
I am also having the same problem while using VBScript with integrisign. Did you find out the solution for this...if so could you please share it
Thanks & Regard
Sukesh

[reinaldocrespo]

Sukes;

Nope. No luck. I lost that potential customer. But, I would still love to find a signing pad that can be used and controlled from FW. Please get back if you are able to make any progress.

thank you,



Reinaldo.

[lailton.webmaster]

Try this way:

Code: Select all  Expand view

#include "Fivewin.ch"

function main

local oAct, oWnd

define window ownd

 oAct:=TActiveX(oWnd,"esW25COM.esCapture")
 oAct:bOnEvent:={|e,a| Evento(e,a) }
 oAct:SignDlgCaption("IntegriSign Signature Capture")
 oAct:HashData("string txthashdata") // txtHashData.Text
 oAct:Cross = Cross_ON // you need know value of cross_on
 oAct:StartSign( cA,cB ) // cmbBut.ListIndex, chkAppOptions(6).Value

activate window ownd

return nil

function Evento( wEvent, aParams )
local i

 msginfo( wEvent , "Evento" )

 if ( valtype( aParams ) == "A" )
     
    for i = 1 to len( aParams )
        Msginfo(aParams[i],"Params")
    next i

 elseif ( ValType( aParams ) == "C" )
   
    Msginfo(aParams,"Params")

 endif

return nil