AppEvent()

[saul]

Guten Morgen, ein frohes neues Jahr und ein gesundes 2013 und folgende,
in der Hilfe steht unter

<nTimeOut>

<nTimeOut> ist ein ganzzahliger, numerischer Wert, der ein Zeitintervall in 1/100 Sekunden angibt. Wenn sich kein Ereignis in der Warteschlange befindet, wartet die Funktion AppEvent() <nTimeOut> mal 0.01 Sekunden, bevor die Ausführung eines Programms fortgesetzt wird. Der Standardwert ist 0 und in diesem Fall wartet AppEvent() so lange, bis sich ein Ereignis in der Warteschlange befindet.

Zum Verständnis habe ich das Beispielprogramm aus der Hilfe genommen

Code: Alles auswählen

#include "Appevent.ch"

   PROCEDURE Main
      LOCAL nEvent := 0, mp1, mp2

      CLEAR
      @ 0,0 SAY "Zum Abbrechen rechte Maustaste drücken"
      SetMouse(.T.)

      DO WHILE nEvent <> xbeM_RbDown
         nEvent := AppEvent( @mp1, @mp2, , 0)
         IF nEvent < xbeB_Event
            ? "Der Event-Code für die Taste lautet:", nEvent
            ? "Die Message-Parameter enthalten    :", mp1, mp2
         ELSE
            ? "Der Event-Code für die Maus lautet:", nEvent
            ? "Die Message-Parameter enthalten   :", mp1, mp2
         ENDIF
      ENDDO
   RETURN

Nun sitzte ich vor dem erzeugten Bildschirm und bewege weder ein Maus noch eine Taste. Da hätte ich mir jetzt erwartet, dass auch nichts passiert, da timeout ja 0 ist und ich kein Ereignis mit Maus oder Tastatur in die Warteschlange gelegt habe. Weit gefehlt in regelmäßigen Abständen wird ein Viererblock von Events aufgelistet.

Was habe ich da falsch verstanden?

mfg
Wolfgang

[georg]

Hallo, Wolfgang -


willkommen in 2013, dem Jahr der ungelösten Windows-Rätsel ...

Wenn Du mittels Debugger einen Breakpoint auf den Befehl nach dem AppEvent(...) setzt, kannst Du Dir den Wert von nEvent mal ansehen und in der AppEvent.ch nachschlage (allerdings muss man da auch ein wenig rechnen bei den meisten Werten).

Das grundlegende problem mag aber daran liegen, dass Du nicht der einzige Benutzer Deines Programms bist, Windows will auch "mit"spielen. AppEvent(...) liefert Ereignisse zurück, die nicht nur von Tastatur und Maus kommen, sondern auch aus Windows. Ich weiss, Du hast das nicht gemacht, aber Timer-Events könnten reinkommen, und und und

[AUGE_OHR]

Was habe ich da falsch verstanden?

es liegt am dem Beispiel ... es behandelt nur xbeB_Event und nicht xbe_None

Wird für <nTimeOut> ein Wert größer als 0 angegeben, gibt die Funktion spätestens nach Ablauf dieses Zeitintervalls einen Ereigniscode zurück. Falls innerhalb dieser Zeitspanne kein Ereignis eingetreten ist, wird xbe_None zurückgegeben und alle per Referenz übergebenen Parameter haben den Wert NIL.

der Vode muss also so aussehen

Code: Alles auswählen

      DO WHILE .NOT. lExit
         nEvent := AppEvent( @mp1, @mp2,@oXbp, 100) 
         DO CASE
              // als erstes auf Timeout prüfen wenn 4th Parameter
              CASE nEvent = xbe_None
              ...
         OTHERWISE
              oXbp:handleEvent( nEvent, mp1, mp2 )
         ENDCASE
      ENDDO 

[UliTs]

Was habe ich da falsch verstanden?

es liegt am dem Beispiel ... es behandelt nur xbeB_Event und nicht xbe_None
...

Falsch Jimmy, da nTimeOut=0!

Die Ursache ist die von Georg genannte .

Uli

[AUGE_OHR]

Was habe ich da falsch verstanden?

es liegt am dem Beispiel ... es behandelt nur xbeB_Event und nicht xbe_None
...

Falsch Jimmy, da nTimeOut=0!

Moin ...
wenn der 4th Parameter 0 ist wird kein xbe_None gesendet ... das hat ja nichts mit xbeB_Event zu tun was ja nur sagt "das" ein Event > 0 gesendet wurde.

[AUGE_OHR]

Was habe ich da falsch verstanden?

es liegt am dem Beispiel ... es behandelt nur xbeB_Event und nicht xbe_None
...

Falsch Jimmy, da nTimeOut=0!

Moin ...
wenn der 4th Parameter 0 ist wird kein xbe_None gesendet ... das hat ja nichts mit xbeB_Event zu tun was ja nur sagt "das" ein Event > 0 gesendet wurde.

[UliTs]

Ne ne Jimmy, da gibt es nichts schön zu reden
Uli

[AUGE_OHR]

Ne ne Jimmy, da gibt es nichts schön zu reden

was willst du mir einreden ... hast wohl zu lange gefeiert ?

[AUGE_OHR]

ok vielleicht sollte ich es näher erklären
alle Xbase++ Events bauen auf xbeB_Event auf siehe AppEvent.CH

#define xbeB_Event 1048576

// Generische Nachrichten
#define xbeP_None (001 + xbeB_Event)

// Maus Nachrichten (fr VIO und PM Mode)
//

für XbParts gelten die xbeP_xxx sowie spezifische Events.

bei einer Abfrage

Code: Alles auswählen

IF nEvent < xbeB_Event 

wird also ein Event "beachtet" der nicht zu Xbase++ gehört bzw. nicht "normal verarbeitet" werden kann.

Das Help Demo ist deshalb nur verwirrend und erklärt den 4th Parameter unzureichend.

[UliTs]

Jimmy,
Was soll das!

Du erzählst eindeutig Quatsch, was Wolfgangs Frage anging.
Da kannst Du ruhig ueber Deinen Schatten springen und musst nicht mit anderen Dingen, die sicher auch sinnvoll sein koennen, ablenken

Uli

[AUGE_OHR]

Was soll das!

LIES mal GENAU was Wolfgang schreibt

Weit gefehlt in regelmäßigen Abständen wird ein Viererblock von Events aufgelistet.
Was habe ich da falsch verstanden?

und das ist die Abfrage :

Code: Alles auswählen

IF nEvent < xbeB_Event 

Du erzählst eindeutig Quatsch, was Wolfgangs Frage anging.

hast du es immer noch nicht begriffen ???

ALLE Xbase++ Events sind auf xbeB_Event aufgebaut und werden "grösser"
wenn nun ein Event < xbeB_Event sein sollte ist es KEIN Xbase++ Event !!!

wenn nun ein Event "eintrifft", egal < oder >, "erlischt" der 4th Parameter wie gewöhnlich und kann auf die Abfrage

Code: Alles auswählen

IF nEvent < xbeB_Event 

treffen.

Da kannst Du ruhig ueber Deinen Schatten springen und musst nicht mit anderen Dingen, die sicher auch sinnvoll sein koennen, ablenken

jeder mag selbst beurteilen wer Informationen liefert und wer Dumtüch schreibt.

[UliTs]

Jimmy,
Das machst Du doch absichtlich!
So blöd kann man nicht sein...
Uli