#PB_Event_Network

[Flype]

in many situations, it might be easier to catch Network events in the classic event window loop.
so what about something like this ?

Code: Select all

If InitNetwork()
  
  If CreateNetworkServer(6832)
    
    OpenWindow(0,50,50,640,480,#PB_Window_SystemMenu,"Test")
    
    NetworkAttachWindow(WindowID())
    
    Repeat
      
      Select WaitWindowEvent()
        
        Case #PB_Event_CloseWindow
          Break
          
        Case #PB_Event_Network_Connect
          Debug NetworkClientID()
          
        Case #PB_Event_Network_Disconnect
          Debug NetworkClientID()
          
        Case #PB_Event_Network_Raw
          Debug NetworkClientID()
          
        Case #PB_Event_Network_File
          Debug NetworkClientID()
          
      EndSelect
      
    ForEver
    
  EndIf
  
EndIf

[Killswitch]

That would be cool, but network events aren't directly tied to a window. Perhaps WindowEvent() and the NetworkServer/ClientEvents() should be ditched for one Event() command.

[Flype]

yes but with an optional NetworkAttachWindow(WindowID()) like in my example it should be possible, no ?

[Joakim Christiansen]

I actually want a WaitNetworkEvent

Code: Select all

If WaitWindowEvent() or WaitNetworkEvent()
  Select WindowEvent()
    ;window events
  EndSelect

  Select NetworkEvent()
    ;network events
  EndSelect
endif

[Fred]

This code won't work as the program will hold on WaitWindowEvent() and you will have no chance to unlock WaitNetworkEvent(). We could may be implement a WaitEvent() function which would lock and returns if an event occurs (dunno if it's really possible).

[blueznl]

winsock will allow messages to be sent to a window upon events, so a normal windowevent() or waitwindowevent() may be possible

[Joakim Christiansen]

We could may be implement a WaitEvent() function which would lock and returns if an event occurs (dunno if it's really possible).

That would be cool, there must be a way, hehe.
Edit:
I just found the solutuion for my problem:

Code: Select all

Repeat
  WindowEvent = WindowEvent()
  Select Status
    Case #Server
      NetworkEvent = NetworkServerEvent()
    Case #Client
      NetworkEvent = NetworkClientEvent(ServerID)
  EndSelect
  
  If WindowEvent=#False And NetworkEvent=#False
    Delay(4)
    Continue
  EndIf
  
  Select WindowEvent
    ;window events 
  EndSelect 

  Select NetworkEvent
    ;network events 
  EndSelect 
Until WindowEvent = #PB_Event_CloseWindow