Page 1 sur 1

BindEvent

Publié : dim. 03/févr./2019 19:47
par Ekim
Bonsoirs à tous,

J’aimerais que vous m'apportiez vos lumières concernant "BindEvent" , actuellement
il est limité aux seules événements lier aux gadgets et fenêtres,
la questions est la suivante, est-il possible avec un peu de bidouille, de faire en sorte
que les événements s'étendent jusqu'au "NetworkServerEvent()"?

Re: BindEvent

Publié : dim. 03/févr./2019 23:08
par Ollivier
Avec un peu de bidouille, oui. En fait, regarde comment faire un timer.' Je crois que c'est AddWindowTimer() et le code d'évènement, c'est une constante avec "timer" dans le nom de la constante (constantes indiquées dans la doc de WindowEvent() ).

Ça appelle une procédure toutes les 300 millisecondes par exemple. Et dans cette procédure, tu mets tes fonctions NetworkServerEvent() et l'autre si besoin.

Tu vois le topo un peu ? Ou bien c'est un peu trop olé olé ma réponse ?

Re: BindEvent

Publié : lun. 04/févr./2019 20:27
par boby
Ekim, non on ne peux pas bind les event lié au réseau car comme tu l'as dit, le bindevent est lié aux fenêtres. Il faut donc vérifier ce qu'il ce passe coté réseau à chaques boucle.
Si ça peut t'aider voici un exemple le plus minimaliste possible d'une relation client serveur :
Serveur

Code : Tout sélectionner

InitNetwork()
CreateNetworkServer(0,5555)
*buffer = AllocateMemory(65000)
Repeat
  Select NetworkServerEvent(0)
    Case #PB_NetworkEvent_None
      Delay(3)
    Case #PB_NetworkEvent_Data
      ;gérer les datas
    Case #PB_NetworkEvent_Connect
      PokeS(*buffer,"Coucou")
      SendNetworkData(EventClient(),*buffer,StringByteLength("Coucou"))
    Case #PB_NetworkEvent_Disconnect
      ;Bye bye
  EndSelect
ForEver
client

Code : Tout sélectionner

Procedure Network(serveur)
  Select NetworkClientEvent(serveur)
    Case #PB_NetworkEvent_None
      Delay(1)
    Case #PB_NetworkEvent_Data
      Protected *buffer = AllocateMemory(65000)
      ReceiveNetworkData(serveur,*buffer,1000)
      Debug PeekS(*buffer)
  EndSelect
EndProcedure
InitNetwork()
OpenWindow(0,0,0,10,10,"",#PB_Window_ScreenCentered|#PB_Window_SystemMenu)
serveur = OpenNetworkConnection("127.0.0.1",5555)
Repeat : Network(serveur) : Until WindowEvent() = #PB_Event_CloseWindow
J'éspère ceci dit que tes yeux n'aurons même pas louché sur le message d'ollivier, car il est évidement impenssable de gérer un serveur via un windowtimer... Déjà par-ce qu'un serveur n'as généralement pas besoin d'une window... Mais aussi par-ce que "Ça appelle une procédure toutes les 300 millisecondes par exemple." ça rajoute surtout 300ms de ping comme ça... Pour le plaisire et si ton serveur est appelé à gérer plusieurs client, voir même que tu souhaite le multithread, bah ça va bien vite devenire un beau bordel.

Re: BindEvent

Publié : lun. 04/févr./2019 21:07
par djes
Fais une recherche sur les forums sur ce code

Code : Tout sélectionner

    #FD_ALL = #FD_OOB|#FD_ACCEPT|#FD_CONNECT|#FD_CLOSE
    WSAAsyncSelect_(Socket, WindowID(0), #WM_NULL, #FD_ALL)

Re: BindEvent

Publié : mar. 12/févr./2019 0:30
par Ekim
Ok merci c'est cool les gars)
je donnerais des nouvels dès que j'aurais un peu de temps devant moi)
:D