NetworkClientEvent 4 - 2 Méthodes
Publié : jeu. 29/sept./2005 22:14
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
