CommPort = CREATEOBJECT('MSCOMMLib.MSComm')

ComPort.CommPort = <port nr>
ComPort.Settings = "9600,N,8,1"
ComPort.PortOpen = .T.

ComPort.Output = "Hello!"    && send data
ReceivedVal = ComPort.Input && receive data

DEFINE CLASS FrameClass as Custom
    SIZE = 64

    PROCEDURE Init
        LOCAL lcByte, i
        FOR i = 0 TO 63
            lcByte = "byte"+TRANSFORM(i)
            This.AddProperty( lcByte, 0 )
        ENDFOR
        
        This.Clear()
    ENDPROC 
    
    PROCEDURE Clear
        LOCAL lcByte, i
        This.byte0 = 0x19
        FOR i = 1 TO This.Size-1
            lcByte = "byte"+TRANSFORM(i)
            This. &lcByte = 0x00
        ENDFOR
    ENDPROC 
    
    FUNCTION SerialToFrame
    LPARAMETERS lnSerial
        LOCAL hxSerial
        hxSerial = dec2hex( lnSerial, 8 )
        This.Byte4 = EVALUATE( "0x"+SUBSTR( hxSerial, 7, 2 ) )
        This.Byte5 = EVALUATE( "0x"+SUBSTR( hxSerial, 5, 2 ) )
        This.Byte6 = EVALUATE( "0x"+SUBSTR( hxSerial, 3, 2 ) )
        This.Byte7 = EVALUATE( "0x"+SUBSTR( hxSerial, 1, 2 ) )
    ENDFUNC 

    FUNCTION PrepareSearch
        This.Clear()
        This.byte1 = 0x94
    ENDFUNC 

    FUNCTION PrepareLastReaded
    LPARAMETERS lnSerial 
        This.Clear()
        This.byte1 = 0xB4
        This.SerialToFrame( lnSerial )
    ENDFUNC 

    FUNCTION PrepareReadRecord
    LPARAMETERS lnSerial, lnIndex
        This.Clear()
        This.byte1 = 0xB0
        This.SerialToFrame( lnSerial )

        LOCAL hxIndex
        hxIndex = dec2hex( lnIndex, 8 )
        This.Byte8     = EVALUATE( "0x"+SUBSTR( hxIndex , 7, 2 ) )
        This.Byte9     = EVALUATE( "0x"+SUBSTR( hxIndex , 5, 2 ) )
        This.Byte10 = EVALUATE( "0x"+SUBSTR( hxIndex , 3, 2 ) )
        This.Byte11 = EVALUATE( "0x"+SUBSTR( hxIndex , 1, 2 ) )
    ENDFUNC 

    FUNCTION PrepareNewReaded
    LPARAMETERS lnSerial, lnIndex
        This.Clear()
        This.byte1 = 0xB2
        This.SerialToFrame( lnSerial )

        LOCAL hxIndex
        hxIndex = dec2hex( lnIndex, 8 )
        This.Byte8     = EVALUATE( "0x"+SUBSTR( hxIndex , 7, 2 ) )
        This.Byte9     = EVALUATE( "0x"+SUBSTR( hxIndex , 5, 2 ) )
        This.Byte10 = EVALUATE( "0x"+SUBSTR( hxIndex , 3, 2 ) )
        This.Byte11 = EVALUATE( "0x"+SUBSTR( hxIndex , 1, 2 ) )

        This.Byte12 = 0x55
        This.Byte13 = 0xAA
        This.Byte14 = 0xAA
        This.Byte15 = 0x55
    ENDFUNC 
    
    FUNCTION PrepareSetTime
    LPARAMETERS lnSerial, ltTime
        This.Clear()
        This.byte1 = 0x30
        This.SerialToFrame( lnSerial )

        This.Byte8     = EVALUATE( "0x20" )
        This.Byte9     = EVALUATE( "0x"+PADL( trans( YEAR(ltTime)-2000 ), 2,'0') )
        This.Byte10    = EVALUATE( "0x"+PADL( trans( MONTH(ltTime) ), 2,'0') )
        This.Byte11    = EVALUATE( "0x"+PADL( trans( DAY(ltTime) ), 2,'0') )
        This.Byte12    = EVALUATE( "0x"+PADL( trans( HOUR(ltTime) ), 2,'0') )
        This.Byte13    = EVALUATE( "0x"+PADL( trans( MINUTE(ltTime) ), 2,'0') )
        This.Byte14    = EVALUATE( "0x"+PADL( trans( SEC(ltTime) ), 2,'0') )
    ENDFUNC 
    

    FUNCTION PerpareLimitClear
    LPARAMETERS lnSerial
        This.Clear()
        This.byte1 = 0x54
        This.SerialToFrame( lnSerial )

        This.Byte8     = 0x55
        This.Byte9     = 0xAA
        This.Byte10 = 0xAA
        This.Byte11 = 0x55
    ENDFUNC 


    FUNCTION PerpareLimitUpload
    LPARAMETERS lnSerial, lcCard
        This.Clear()
        This.byte1 = 0x50
        This.SerialToFrame( lnSerial )
        
        lcCard = dec2hex( INT( VAL( lcCard ) ), 8 )
        *goLog.Write( "0xCard: "+lcCard )

        This.Byte8     = EVALUATE( "0x"+substr( lcCard, 7, 2) )
        This.Byte9     = EVALUATE( "0x"+substr( lcCard, 5, 2) ) 
        This.Byte10 = EVALUATE( "0x"+substr( lcCard, 3, 2) )
        This.Byte11 = EVALUATE( "0x"+substr( lcCard, 1, 2) )

        This.Byte12    = 0x20
        This.Byte13    = 0x10
        This.Byte14 = 0x01
        This.Byte15 = 0x01

        This.Byte16    = 0x20
        This.Byte17    = 0x99
        This.Byte18 = 0x12
        This.Byte19 = 0x31

        This.Byte20    = 0x01
        This.Byte21    = 0x01
        This.Byte22 = 0x01
        This.Byte23 = 0x01
    ENDFUNC 

    
    FUNCTION Encode
        LOCAL lcByte, i, lcStr
        lcStr = ""
        FOR i = 0 TO This.Size-1
            lcByte = "byte"+TRANSFORM(i)
            lcStr = lcStr + CHR( This. &lcByte )
        ENDFOR         
        
        RETURN lcStr
    ENDFUNC 

    FUNCTION Decode
    LPARAMETERS lcFrame
        LOCAL lcByte, i, lcStr
        FOR i = 1 TO This.Size
            lcByte = "byte"+TRANSFORM(i-1)
            This.&lcByte = dec2hex( ASC( SUBSTR(lcFrame,i,1) ), 2 )
        ENDFOR         
    ENDFUNC 

    function FrameToResult
        RETURN hex2dec( This.Byte8 ) = 1
    ENDFUNC     

    FUNCTION FrameToStr
        LOCAL lcByte, i, lcStr
        lcStr = ""
        FOR i = 1 TO This.Size-1
            lcByte = "byte"+TRANSFORM(i-1)
            lcStr = IIF(EMPTY(lcStr),"",lcStr+" ") + dec2hex( This.&lcByte, 2 )
        ENDFOR         
        RETURN lcStr
    ENDFUNC 
    
    FUNCTION FrameToSerial
        return hex2dec( This.Byte7+This.Byte6+This.Byte5+This.Byte4 )
    ENDFUNC 

    FUNCTION FrameToRecordIndex
        return hex2dec( This.Byte11+This.Byte10+This.Byte9+This.Byte8 )
    ENDFUNC 
    

    FUNCTION FrameToRecord
    PARAMETERS ltTime, lnDoor, lcCard, lnPass, lnDirect
        lnPass         = hex2dec( This.Byte13 )
        lnDoor        = hex2dec( This.Byte14 )
        lnDirect    = hex2dec( This.Byte15 )

        lnCard     = hex2dec( This.Byte19+This.Byte18+This.Byte17+This.Byte16 )
        lcCard    = PADL( trans( lnCard ), 8, "0" )
        
        LOCAL lnYear, lnMonth, lnDay, lnHour, lnMin, lnSec
        lnYear     = VAL( This.Byte20+This.Byte21 )
        lnMonth = VAL( This.Byte22 )
        lnDay     = VAL( This.Byte23 )
        lnHour     = VAL( This.Byte24 )
        lnMin     = VAL( This.Byte25 )
        lnSec     = VAL( This.Byte26 )
        
        ltTime    = DATETIME( lnYear, lnMonth, lnDay, lnHour, lnMin, lnSec )
    ENDFUNC 
ENDDEFINE

Set Deleted On
Clear
Push Key
On Key Label ESC stop()
On Key Label F2 test()
lOpen=0

oComm = Createobject('MSCOMMLib.MSComm')

oEvents = Createobject('OnCommHandler')
oEvents.oComm = oComm

With oComm
    .CommPort = 5
    .Settings = "115200,N,8,1"
    .Rthreshold = 1
    .DTREnable = .T.
    .RTSEnable = .T.
    ?.InputMode

    Try
        .PortOpen = .T.
        lOpen=1
    Catch
        Aerror(a1)
        ?a1[2]
    Endtry
*   ?.DTREnable
*   ?.RTSEnable
*   ?.CommEvent
Endwith

Eventhandler(oComm, oEvents)

Read Events

If lOpen=1
    oComm.PortOpen = .F.
Endif
Release oComm
Pop Key All

******************
Function stop()
Clear Events
Return

Function test()
?"test()"
oComm.Output = "k"+Chr(10)+Chr(13)
Return

******************************************
Define Class OnCommHandler As Session
    Implements DMSCommEvents In "MSCOMMLib.MSComm"

    oComm = Null

    Procedure DMSCommEvents_OnComm
    ? oComm.CommEvent
    ? oComm.Input
    Endproc
Enddefine