topic-14234

Board index FiveWin for Harbour/xHarbour ActiveX problem

Page: 1 2 (18 posts)

Posts: 1

Joined: Wed Jun 16, 2010 04:25 AM

Re: ActiveX problem
Posted: Wed Jun 16, 2010 05:27 AM

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

Posts: 990

Joined: Thu Nov 17, 2005 05:49 PM

Re: ActiveX problem
Posted: Wed Jun 16, 2010 12:39 PM

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

Posts: 603

Joined: Sun May 04, 2008 08:44 PM

Re: ActiveX problem
Posted: Wed Jun 16, 2010 03:18 PM

Try this way:

Code (fw): Select all Collapse

#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

Page: 1 2 (18 posts)

FiveTech Support Forums

Continue the discussion