Electronic Signature Pad

[reinaldocrespo]

Hi.

Has anyone used an electronic signature pad with fw? Any recommendations?

Thank you,


Reinaldo.

[George]

Reinaldo,
A few years ago I did some testing with Topaz ActiveX under xHarbour and FWH.
The Signature pad worked fine.

Regards,

George

[reinaldocrespo]

I think I will order a Topaz signature pad for testing. Thank you.

Reinaldo.

[PeterHarmes]

Hi Reinaldo,

We have also used the epad ink pad as well.

http://www.epadlink.com/index.php

Best regards,

Pete

[reinaldocrespo]

Hello everyone;

I just got my Topaz signature pad for testing. Does anyone have any code that I can see to get started using the Topaz OCX to capture a signature?

Thank you,


Reinaldo.

[George]

Reinaldo,
Review this code:

Code: Select all  Expand view

   lFound := IsActivex("SIGSIGN.SigSignCtrl.1")
    IF lFound = FALSE
        IF lMessage := MsgYesNo("TOPAZ signature pad is not installed." + CHR(13)+;
                                 "Do you want to cancel signature?", 'WARNING')
            RETURN FALSE
        ENDIF
     ENDIF

    oActive = TActiveX():New( oWnd, "SIGSIGN.SigSignCtrl.1",30,10, 100, 100 )
    oActive1 = TActiveX():New( oWnd, "SIGPLUS.SigPlusCtrl.1")

    oActive:WindowTitle = "Enter Agent Signature"

    lReturn := oActive:GetSignature()
    sCstring = oActive:SigString

  // --- Create TXT file containing digital signature
    nOutHandle := fcreate("AgSign.txt")
    if nOutHandle < 0
       msginfo("Unable to create AgSign.TXT file")
       return FALSE
    endif

    fwrite(nOutHandle, sCstring)
    oActive1:InitSigPlus()
    oActive1:SigString = sCstring
    oActive1:WriteImageFile(CurrentDirectory()+"\AG_SIGN.BMP")
    FClose(  nOutHandle )

    oActive:End()
    oActive1:End()
 

Regards,

George