Hello,
Has someone experiences with SmartCard readers and Fivewin.
Thanks in advance
Otto
#INCLUDE "patients.ch"
#INCLUDE "rgroup.ch"
//---------------------------------------------------------------------------------------
CLASS TTopazSignature
DATA bSave INIT { || .T. }
DATA bCleanUp, bDrawScreenPad
DATA bEventManager
DATA SigPlus1
DATA oImage
DATA oDlg, oBtn, oOwner
METHOD New( oOwner )
METHOD PickupSignature()
METHOD End()
END CLASS
//---------------------------------------------------------------------------------------
METHOD New( oOwner ) CLASS TTopazSignature
LOCAL oOkBMP, oClearBMP, oSignBMP
::oOwner := oOwner
TRY
::SigPlus1 := TActiveX():New( ::oOwner, "SIGPLUS.SigPlusCtrl.1", 0, 0, 0, 0 )
CATCH
MsgStop( "Topaz signature device could not be activated" )
RETURN NIL
END
IF !::SigPlus1:TabletConnectQuery()
MsgStop( "TOPAZ signature pad is not found or missing required components." )
RETURN NIL
ENDIF
::bCleanUp := { |o| ;
o:TabletState := 1,;
o:LCDRefresh( 0, 0, 0, 240, 64 ),; // 0 the display is cleared at the specified location
o:KeyPadClearHotSpotList(),;
o:LCDWriteFile( 1, 0, 0, 0, 240, 64, 0, "" ) ,; //CLEAR BACKGROUND MEMORY
o:SetSigWindow( 1, 0, 0, 240, 64 ),;
o:LCDSetWindow( 0, 0, 240, 64 ),;
o:LCDCaptureMode := 1,;
o:ClearTablet(),;
o:TabletState := 0 }
::bDrawScreenPad := < ||
::SigPlus1:LCDRefresh( 0, 0, 0, 240, 64 )
::SigPlus1:LCDCaptureMode := 2 //Sets mode so ink will not disappear after a few seconds
//Write BMP images out to the LCD 1X5 screen
oSignBMP := TImage():Define( "Pat_Sign_Line" ) //define a bmp for signature line a the bottom.
oClearBMP:= TImage():Define( "Pat_Sign_Clear" ) //define a bmp for clear signature button
oOkBMP := TImage():Define( "Pat_Sign_Ok" ) //define a bmp for accept signature button
//SigPlus1.LCDWriteBitmap( 1, 2, 0, 0, 240, 53, imgThankYou.Picture.Handle?? )
//LCDWriteBitmap used to write windows bitmap data to the lcd display.
::SigPlus1:LCDWriteBitmap( 0, 2, 0, 20, 240, 44, oSignBMP:hBitmap )
::SigPlus1:LCDWriteBitmap( 0, 2, 207, 4, 21, 11, oOkBMP:hBitmap )
::SigPlus1:LCDWriteBitmap( 0, 2, 15, 4, 38, 11, oClearBMP:hBitmap )
//Create the hot spot for the OK BMP
::SigPlus1:KeyPadAddHotSpot( 0, 1, 197, 5, 25, 17 ) //For OK button
::SigPlus1:KeyPadAddHotSpot( 1, 1, 10, 5, 53, 17 ) //For CLEAR button
::SigPlus1:TabletState := 1 //Turns tablet on to collect signature
//The following sets the LCD's signature window up to display ink only in the
//certain spot on the LCD specified--in this case, the Signature BMP area
::SigPlus1:LCDSetWindow( 0, 22, 240, 40 )
::SigPlus1:SetSigWindow( 1, 0, 22, 240, 40 ) //Sets the area where ink is permitted in the SigPlus object
oOkBMP:End() //distroy these bmp objects as they have already been sent
oClearBMP:End()//to the pad and we no longer need them in the pc's memory.
oSignBMP:End()
>
::bEventManager := < |cEvent, aParms |
LOCAL cFileName
IF ::SigPlus1:KeyPadQueryHotSpot( 0 ) > 0 .AND. ::SigPlus1:NumberOfTabletPoints > 0 //ok Botton has been clicked
cFileName := Temp_Name( "jpg" )
::SigPlus1:ImageFileFormat := 4 //compressed jpg
::SigPlus1:ImagePenWidth := 15
::SigPlus1:JustifyMode := 5
::SigPlus1:WriteImageFile( cFileName )
::oImage:LoadImage( ,cFileName )
::oImage:Refresh()
::odlg:Update()
fErase( cFileName )
::oBtn:Enable()
ELSEIF ::SigPlus1:KeyPadQueryHotSpot( 1 ) > 0 .AND. ::SigPlus1:NumberOfTabletPoints > 0 //CLEAR Botton
EVAL( ::bCleanUp, ::SigPlus1 )
EVAL( ::bDrawScreenPad )
::SigPlus1:SetEventEnableMask( 3 )
ELSE
//Sleep 5
::SigPlus1:ClearSigWindow( 1 )
::SigPlus1:SetEventEnableMask( 3 )
ENDIF
> //----------------------------------------------------------------------------------
RETURN SELF
//---------------------------------------------------------------------------------------
METHOD PickupSignature() CLASS TTopazSignature
LOCAL oDlg, bValid, bInit
::SigPlus1:LCDSetTabletMap( 0, 240, 64, 100, 0, 1900, 700 ) //Sets Map up for LCD 1X5 tablet
Eval( ::bCleanUp, ::SigPlus1 )
//******************************************************************'
// The following parameters are set in case the user's INI file is not correctly set up for an LCD 1X5 tablet
// Otherwise, if the INI is correctly set up, these parameters do not need to be set
::SigPlus1:TabletXStart := 400
::SigPlus1:TabletXStop := 2400
::SigPlus1:TabletYStart := 350
::SigPlus1:TabletYStop := 1050
::SigPlus1:TabletLogicalXSize := 2000
::SigPlus1:TabletLogicalYSize := 700
//******************************************************************'
EVAL( ::bDrawScreenPad )
// Enables Pen Up and Pend Down events 1 = Enables pen Down, 2 = Pen Up, 3 = both.
::SigPlus1:SetEventEnableMask(3)
::SigPlus1:bOnEvent := ::bEventManager
DEFINE DIALOG oDlg RESOURCE "Pat_Signature" TRANSPARENT COLOR CLR_BLUE, RGB( 240, 240, 240 ) OF ::oOwner
REDEFINE IMAGE ::oImage ID 1 OF oDlg ADJUST UPDATE
::oImage:lStretch := .T.
REDEFINE BUTTONBMP ::oBtn ID 200 OF oDlg BITMAP "Pen16" TEXTRIGHT ACTION ( EVAL( ::bSave, ::SigPlus1 ), oDlg:End() )
REDEFINE BUTTONBMP ID 201 OF oDlg BITMAP "Cancel16" TEXTRIGHT ACTION oDlg:End()
FONDOBOTONES 1001, oDlg
oDlg:lHelpIcon := .F.
bInit := {|| oDlg:Center( WndMain() ), ::oBtn:Disable() }
bValid := { || ClearTmpfiles(), IIF( ::oImage != NIL, ::oImage:End(), NIL ), .T. }
oDlg:oWnd := ::oOwner
::oDlg := oDlg
TRY
oDlg:Activate( ,,,,bValid, .T., bInit )
CATCH
END
Eval( ::bCleanUp, ::SigPlus1 )
::SigPlus1:TabletState := 0
RETURN NIL
//-----------------------------------------------------------------------------------
METHOD End() CLASS TTopazSignature
::SigPlus1 := NIL
::oImage := NIL
::oDlg := NIL
RETURN NIL
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 111 guests