NetworkClientEvent 4 - 2 Méthodes

[LeCyb]

Afin de gérer les déconnexions en tant que client TCP voici deux méthodes.

Code : Tout sélectionner

Procedure.l NetworkClientEvent2(ConnectionID)
  If WSAAsyncSelect_(ConnectionID,WindowID(),$9000,#FD_CLOSE) = #SOCKET_ERROR
    ProcedureReturn 4
  Else
    ProcedureReturn NetworkClientEvent(ConnectionID)
  EndIf
EndProcedure

Code : Tout sélectionner

Procedure.l NetworkClientEvent2(ConnectionID)
Protected length.l, IP.sockaddr, res.l
  length = SizeOf(IP)
  If getsockname_(Connection,@IP,@length) <> 0
    ProcedureReturn 4
  Else
    ProcedureReturn NetworkClientEvent(ConnectionID)
  EndIf
EndProcedure

[Droopy]

Merci je testerais ça

[lionel_om]

Je n'est pas encore tester les possibilités de PB en Rzo, ms je garde ce code en mémoire