DESCRIPTION.

La fonction FN_sethost() retourne une valeur numérique donnant son adresse IPv4 d'une machine, en ordre d'octets réseau (big-endian).

SYNTAXE.

kadresse = FN_sethost( machine )

REMARQUES.

machine doit être une chaine de caractères indiquant le nom ou l'adresse IP d'une machine du réseau.

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 fonction FN_getpeername() 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 --- connexion établie ---

kadresse$ = FN_getpeername( kclient )

PRINT FN_sethost( kadresse$ )

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