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