DESCRIPTION.

La procédure PROC_closesocket() ferme un canal de communication existant, socket, vers une machine distante.

SYNTAXE.

PROC_closesocket( socket )

REMARQUES.

socket doit être l'identifiant de la variable ayant reçue la valeur retournée par la fonction : 

- FN_tcplisten(), si l'envoi est fait depuis un client vers le serveur :

- FN_check_connection(), si l'envoi est fait depuis un serveur vers le client qui l'a sollicité.

Rappel : la procédure PROC_initsockets() doit être appelée avant toute autre utilisation d'une procédure ou fonction du module socklib.bbc. et la procédure PROC_exitsockets devra être appelée dès que toutes les opérations de communication seront terminées, et avant de terminer et de fermer l'application.

La procédure PROC_closesocket() est importée depuis le module socklib.bbc. 

EXEMPLE.

REM --- Module de la bibliothèque BBC BASIC ---

INSTALL @lib$ + "socklib.bbc"

REM --- INITIALISATION GENERALE ---

ON CLOSE PROC_Fermeture 

DIM ADR_Debut 1024 : REM --- reserve 1024 octets en memoire et indique l'adresse du premier octet dans ADR_Bebut

REM --- Initialisation de socklib ---

PROC_initsockets

REM --- Creation du serveur ---

kserveur = FN_tcplisten( "" , "1234" )

REM --- Mise en attende d'une sollicitation du client ---

PRINT "Serveur en attente sur le port 1234..."

REPEAT

  kclient = FN_check_connection( kserveur )

UNTIL kclient <> 0

PRINT "Client connecté !"

REM --- reception de donnees sous la forme de 1024 valeurs d'octets ---

krecu$ = ""

ketat = FN_readlinesocket( kclient , 100 , krecu$ )

IF ketat <> -1 THEN PRINT "Recu : " ; krecu$ ELSE PRINT "Erreur de reception."

REM --- Fermeture du canal de communication (socket) ---

PRINT "Client déconnecte."

PROC_closesocket( kclient )

REM --- Fermeture du reseau ---

PRINT "Reseau ferme."

PROC_Fermeture

END

REM --- Gestion de la fermeture du programme ---

DEF PROC_Fermeture

PROC_exitsockets

QUIT

ENDPROC