Alaska Software Inc. - Keyboard event
Username: Password:
AuthorTopic: Keyboard event
Osvaldo RamirezKeyboard event
on Wed, 16 Aug 2023 11:59:14 -0600
Hello guys, I have this error. I am usingo TopDown functions

The error is generate inside of the main loop

******* event loop
lExit := .F.
DO WHILE ! lExit
    nEvent := AppEvent(@mp1,@mp2,@oXbp,1)
    IF oXbp != nil
       oXbp:handleEvent(nEvent,mp1,mp2) <= Code that generate the error
    ENDIF
ENDDO

Someone had o seeing this kind of error ?

Best Regards and thanks in advance
Osvaldo



------------------------------------------------------------------------------
ERROR LOG of "c:\pos\SYSTEM05.EXE" Date: 14/08/2023 15:42:16

Xbase++ version     : Xbase++ (R) Version 2.00.1778
Operating system    : Windows 10 2009 Build 19045
------------------------------------------------------------------------------
oError:args         :
           -> VALTYPE: U VALUE: NIL
           -> VALTYPE: N VALUE: 27
oError:canDefault   : N
oError:canRetry     : N
oError:canSubstitute: Y
oError:cargo        : NIL
oError:description  : Receiver of message is not an object.
oError:filename     :
oError:genCode      :         38.00
oError:operation    : keyboard
oError:osCode       :          0.00
oError:severity     :          2.00
oError:subCode      :       2266.00
oError:subSystem    : BASE
oError:thread       :          1.00
oError:tries        :          0.00
------------------------------------------------------------------------------
CALLSTACK:
------------------------------------------------------------------------------
Called from XBPGET:KEYBOARD(668)
Called from TDMSG(933)
Called from EXISTENCIASII(12912)
Called from (B)EXISTENCIAS(12661)
Called from TDCPSHBTN:HANDLEEVENT(414)
Called from XBPGETCONTROLLER:READ(775)
Called from EXISTENCIAS(12705)
Called from (B)SYSTEM05_A(2235)
Called from SYSTEM05_A(2596)
Called from APP_MENU(27)
Called from MAIN(440)
Jorge L BorlandoRe: Keyboard event
on Mon, 21 Aug 2023 17:24:10 -0300
Hi Osvaldo

have you analyzed what xbpget receives in relation to the codeblocks that 
are called from the following lines?

Called from XBPGET:KEYBOARD(668)
Called from EXISTENCIASII(12912)
Called from (B)EXISTENCIAS(12661)

Best regards


"Osvaldo Ramirez" escribió en el mensaje de 
noticias:4b734a9e$796975e9$17713@news.alaska-software.com...


Hello guys, I have this error. I am usingo TopDown functions

The error is generate inside of the main loop

******* event loop
lExit := .F.
DO WHILE ! lExit
    nEvent := AppEvent(@mp1,@mp2,@oXbp,1)
    IF oXbp != nil
       oXbp:handleEvent(nEvent,mp1,mp2) <= Code that generate the error
    ENDIF
ENDDO

Someone had o seeing this kind of error ?

Best Regards and thanks in advance
Osvaldo



------------------------------------------------------------------------------
ERROR LOG of "c:\pos\SYSTEM05.EXE" Date: 14/08/2023 15:42:16

Xbase++ version     : Xbase++ (R) Version 2.00.1778
Operating system    : Windows 10 2009 Build 19045
------------------------------------------------------------------------------
oError:args         :
           -> VALTYPE: U VALUE: NIL
           -> VALTYPE: N VALUE: 27
oError:canDefault   : N
oError:canRetry     : N
oError:canSubstitute: Y
oError:cargo        : NIL
oError:description  : Receiver of message is not an object.
oError:filename     :
oError:genCode      :         38.00
oError:operation    : keyboard
oError:osCode       :          0.00
oError:severity     :          2.00
oError:subCode      :       2266.00
oError:subSystem    : BASE
oError:thread       :          1.00
oError:tries        :          0.00
------------------------------------------------------------------------------
CALLSTACK:
------------------------------------------------------------------------------
Called from XBPGET:KEYBOARD(668)
Called from TDMSG(933)
Called from EXISTENCIASII(12912)
Called from (B)EXISTENCIAS(12661)
Called from TDCPSHBTN:HANDLEEVENT(414)
Called from XBPGETCONTROLLER:READ(775)
Called from EXISTENCIAS(12705)
Called from (B)SYSTEM05_A(2235)
Called from SYSTEM05_A(2596)
Called from APP_MENU(27)
Called from MAIN(440)
Osvaldo RamirezRe: Keyboard event
on Tue, 22 Aug 2023 10:35:36 -0600
On 21/08/23 14:24, Jorge L Borlando wrote:
> Hi Osvaldo
> 
> have you analyzed what xbpget receives in relation to the codeblocks 
> that are called from the following lines?


No, but I will look inside of the code for that keyboard slot.

Thanks Jorge

Osvaldo


> 
> Called from XBPGET:KEYBOARD(668)
> Called from EXISTENCIASII(12912)
> Called from (B)EXISTENCIAS(12661)
> 
> Best regards
> 
> 
> "Osvaldo Ramirez" escribió en el mensaje de 
> noticias:4b734a9e$796975e9$17713@news.alaska-software.com...
> 
> 
> Hello guys, I have this error. I am usingo TopDown functions
> 
> The error is generate inside of the main loop
> 
> ******* event loop
> lExit := .F.
> DO WHILE ! lExit
>     nEvent := AppEvent(@mp1,@mp2,@oXbp,1)
>     IF oXbp != nil
>        oXbp:handleEvent(nEvent,mp1,mp2) <= Code that generate the error
>     ENDIF
> ENDDO
> 
> Someone had o seeing this kind of error ?
> 
> Best Regards and thanks in advance
> Osvaldo
> 
> 
> 
> ------------------------------------------------------------------------------
> ERROR LOG of "c:\pos\SYSTEM05.EXE" Date: 14/08/2023 15:42:16
> 
> Xbase++ version     : Xbase++ (R) Version 2.00.1778
> Operating system    : Windows 10 2009 Build 19045
> ------------------------------------------------------------------------------
> oError:args         :
>            -> VALTYPE: U VALUE: NIL
>            -> VALTYPE: N VALUE: 27
> oError:canDefault   : N
> oError:canRetry     : N
> oError:canSubstitute: Y
> oError:cargo        : NIL
> oError:description  : Receiver of message is not an object.
> oError:filename     :
> oError:genCode      :         38.00
> oError:operation    : keyboard
> oError:osCode       :          0.00
> oError:severity     :          2.00
> oError:subCode      :       2266.00
> oError:subSystem    : BASE
> oError:thread       :          1.00
> oError:tries        :          0.00
> ------------------------------------------------------------------------------
> CALLSTACK:
> ------------------------------------------------------------------------------
> Called from XBPGET:KEYBOARD(668)
> Called from TDMSG(933)
> Called from EXISTENCIASII(12912)
> Called from (B)EXISTENCIAS(12661)
> Called from TDCPSHBTN:HANDLEEVENT(414)
> Called from XBPGETCONTROLLER:READ(775)
> Called from EXISTENCIAS(12705)
> Called from (B)SYSTEM05_A(2235)
> Called from SYSTEM05_A(2596)
> Called from APP_MENU(27)
> Called from MAIN(440)
Jim LeeRe: Keyboard event
on Mon, 28 Aug 2023 19:46:12 +0200
> ******* event loop
> lExit := .F.
> DO WHILE ! lExit
>    nEvent := AppEvent(@mp1,@mp2,@oXbp,1)
>    IF oXbp != nil
>       oXbp:handleEvent(nEvent,mp1,mp2) <= Code that generate the error
>    ENDIF
> ENDDO

hi Osvaldo,

as you use 4th Parame for "timeout" i recommend to "ask" for Event

   DO WHILE !lExit1
      nEvent := APPEVENT( @mp1, @mp2, @oXbp, 60000 )
      DO CASE
         CASE nEvent == xbe_None                 Timeout Action
            lExit1 := .T.

         CASE ( bBlock := SetAppEvent( nEvent ) ) <> NIL
            EVAL( bBlock, mp1, mp2, oXbp )

         OTHERWISE
            oXbp:handleEvent( nEvent, mp1, mp2 )
      ENDCASE
   ENDDO