problem with subscribetosystemevent

[Fredflyer]

Hi everybody,
i have problems with the instruction and the comportment of the API SubscribeToSystemEvent...
i develop with VB.net and this seems not working...
i use an enum to define events : paused, unpaused, simstart and simstop...
i subscribe to these event using the API SubscribeToSystemEvent.
I try to trap them in an handler to ONRECVEVENT but it doesn't work.
what am i doing wrong ?

thank's in advance

 

[Fredflyer]

No ideas at all ?
i've tried many solutions but no more results...
does anybody have an example of a vb.net script to test ?
help, please...

 

[Nudge]

You would be better off supplying the code that does not work.

Are you overriding DefWndProc?

 

[Fredflyer]

Hi Nudge and thank's for your answer.

I don't understand what you mean with "You would be better off supplying the code that does not work"...

Yes i do override the DefWndProc and the code is :

Protected Overrides Sub DefWndProc(ByRef m As Message)
If m.Msg = WM_USER_SIMCONNECT Then
If fsx_simconnect IsNot Nothing Then
fsx_simconnect.ReceiveMessage()
End If
Else
MyBase.DefWndProc(m)
End If
End Sub

what's wrong with that ?

 

[Nudge]

Because there are a few steps to getting this to work, it would be quicker to see the section of code you are using to handle system events from FSX.

It's far too difficult to help you without seeing some code.

 

[Daniel]

Here are some snippets from my C# code:

class MyConnect
{
  private enum EventEvent : uint
  {
    SimStart,
    ....
  }

  ...

  public void Setup()
  {
    ...

    simconnect.OnRecvEvent += new
               SimConnect.RecvEventEventHandler(OnRecvEvent);
    simconnect.SubscribeToSystemEvent(EventEvent.SimStart,
               "SimStart");
    ...
  }

  private void OnRecvEvent(SimConnect sender,
                           SIMCONNECT_RECV_EVENT data)
  {
     switch (data.uEventID)
     {
          case (uint)EventEvent.SimStart:
                    Logger.log("SimStart Received");
          ....
     }
  }

 

[Fredflyer]

Hi again
thank's Denial for your C# code

here is a bit of code i use which is near the C# one, but in VB.net

Enum MES_EVENT_SYSTEM
SIMSTOP
SIMSTART
PAUSED
UNPAUSED
End Enum

Sub fsx_simconnect_OnRecvEvent(ByVal sender As SimConnect, ByVal data As SIMCONNECT_RECV_EVENT)
If data.uEventID = CType(MES_EVENT_SYSTEM.SIMSTOP, UInteger) Then
Me.Timer1.Enabled = False
End If
If data.uEventID = CType(MES_EVENT_SYSTEM.SIMSTART, UInteger) Then
Me.Timer1.Enabled = True
End If
If data.uEventID = CType(MES_EVENT_SYSTEM.PAUSED, UInteger) Then
Me.Timer1.Enabled = False
End If
If data.uEventID = CType(MES_EVENT_SYSTEM.UNPAUSED, UInteger) Then
Me.Timer1.Enabled = True
End If
End Sub

Sub ...
AddHandler fsx_simconnect.OnRecvEvent, New SimConnect.RecvEventEventHandler(AddressOf fsx_simconnect_OnRecvEvent)
fsx_simconnect.SubscribeToSystemEvent(MES_EVENT_SYSTEM.SIMSTOP, "SimStop")
fsx_simconnect.SubscribeToSystemEvent(MES_EVENT_SYSTEM.SIMSTART, "SimStart")
fsx_simconnect.SubscribeToSystemEvent(MES_EVENT_SYSTEM.PAUSED, "Paused")
fsx_simconnect.SubscribeToSystemEvent(MES_EVENT_SYSTEM.UNPAUSED, "Unpaused")

End sub

 

[Nudge]

Change your IF THEN to a SELECT CASE, I've had problems in the past with the IF THEN and SimConnect.

 

[Daniel]

You coud try to add a handler for the 'OnRecvException'

simconnect.OnRecvException += new
SimConnect.RecvExceptionEventHandler(OnRecvException);

and then use a handler like:

        private void OnRecvException(SimConnect sender, 
                                     SIMCONNECT_RECV_EXCEPTION data)
        {
            SIMCONNECT_EXCEPTION se = (SIMCONNECT_EXCEPTION)data.dwException;
            Logger.log("!!! Exception: " + se);
            Logger.log("!!! SendId:" + data.dwSendID + 
                       " Index:" + data.dwIndex + " Id:" + data.dwID);            
        }

(Logger is my own class that just writes message to a file).

I always add handlers to the OnRecvExecption, OnRecvOpen and OnRecvQuit handlers, just to track what's going on.

You could also add a messagebox after this:

Sub fsx_simconnect_OnRecvEvent(ByVal sender As SimConnect, ByVal data As SIMCONNECT_RECV_EVENT)

Before the if/then's so you can find out whether the problem is the if/thenor not receiving the events at all.

Daniel

 

[Fredflyer]

Well i will try your solutions but i wanted to understand something before....
I have another event defined which is gear_toggle. When i press the G key on the keyboard, the onrecevent is fired
but when i press the P key (for pause or unpause) nothing happen.
That's a strange behavior...
well i follow my investigations trying your ideas

 

[Nudge]

Hmmmm, it sound like you have more than one enum being referrenced in the event handler.

Do you have multiple enums being referenced in the event handler that are not initialised with a number sequentially?

Example

Enum Events1
SomeEvent
SomeEvent2
End Enum

Enum Events2
SomeEvent3
SomeEvent4
End Enum

these should be defined like so

Enum Events1
SomeEvent = 0
SomeEvent2 = 1
End Enum

Enum Events2
SomeEvent3 = 2
SomeEvent4 = 3
End Enum

SimConnect only returns an integer, not a unique integer, so you have to sequentially number your enum members, if using multiple enums in the event handler.

 

[Fredflyer]

Yes i do have this...
i will try to change the definitions with integers as you said.
it's probably the solutions.i went in debug mode and saw this integer value tested.
but the last question is why the OnRecEvent is not fired when i press the P key on the keyboard. I put a msgbox at the beginning of the procedure handler and it only appears when i press another key which is an event...can it be due to these multiple enum definitions ?
I will tell you the result later, when i'll be at home...i'm at my office at this time...
bye

 

[Nudge]

yes if you have two enums with the same integer value. They don't have to be sequential, but they must be unique.

 

[Fredflyer]

Resolved !

Great Nudge !
i did what you said with my enum events and it works fine now. OnRecvEvent is fired for every event
Thank's a lot

See you next time on this forum perhaps

 

[Nudge]

No problems, now you know why it's always best to see as much code as you can afford to show, it was not until you stated you had other events firing that I thought you may have multiple enums.