DESCRIPTION.

La fonction FN_getpeername() retourne une chaine de caractères avec l'adresse IP de la machine distante à laquelle un socket est connecté.

SYNTAXE.

kadresse$ = FN_getpeername( socket )

REMARQUES.

socket doit être l'identifiant de la variable ayant reçue la valeur retournée par une des  fonctions FN_tcpconnect(), FN_check_connection() ou FN_udpsocket().

L'appel de la fonction FN_getpeername() va retourner l'adresse IP d'une machine cliente client sous la forme d'une chaîne de caractères au format "xxx.xxxx.xx.xxx". En cas d'échec,la fonction FN_getpeername() retourne une chaîne vide ("").

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 "Client avec l'IP" ; kadresse$ ;" s'est connecte."

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