Page 1 of 1

Electronic Signature Pad

Posted: Wed May 07, 2014 12:59 pm
by reinaldocrespo
Hi.

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

Thank you,


Reinaldo.

Re: Electronic Signature Pad

Posted: Wed May 07, 2014 2:03 pm
by George
Reinaldo,
A few years ago I did some testing with Topaz ActiveX under xHarbour and FWH.
The Signature pad worked fine.

Regards,

George

Re: Electronic Signature Pad

Posted: Wed May 07, 2014 3:24 pm
by reinaldocrespo
I think I will order a Topaz signature pad for testing. Thank you.

Reinaldo.

Re: Electronic Signature Pad

Posted: Fri May 09, 2014 8:58 am
by PeterHarmes
Hi Reinaldo,

We have also used the epad ink pad as well.

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

Best regards,

Pete

Re: Electronic Signature Pad

Posted: Sat May 17, 2014 5:38 pm
by 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.

Re: Electronic Signature Pad

Posted: Sun May 18, 2014 5:29 pm
by George
Reinaldo,
Review this code:

Code: Select all

    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