pictogram Auteur: Patrick Biker
Date: 18 mars 2006
Maj : 21 Mars 2015

Des exemples d'utilisation des fonctions du WLangage

Rien de tel qu'un exemple pour comprendre une fonction de WLangage. Dans cette section, vous trouverez des exemples simples.

Des exemples évolués, où la fonction est utilisée en contexte, sont également disponible sur ce site.

Aller à la page des exemples évolués

SocketAccepte (en anglais SocketAccept)

// crée une socket sur le poste serveur
 SI SocketCrée ( "Serveur" , 8000 ) = Faux ALORS
     Erreur ( "Erreur de création " + ErreurInfo ( errMessage ))
 SINON
     // Gestion des connexions des postes clients dans un thread
     ThreadExécute ( "Thread1" , threadNormal , ProcédureAttente )
 FIN
Procédure ProcédureAttente ()
 BOUCLE
     SI SocketAttendConnexion ( "Serveur" ) ALORS
         Canal est une chaîne
         // Si la connexion est acceptée, 
         // la gestion de cette connexion est réalisée dans un thread spécifique
         Canal = SocketAccepte ( "Serveur" )
         ThreadExécute (Canal, threadNormal , ProcédureGestion , Canal )
     FIN
 FIN


Début de la page

SocketAttendConnexion (en anglais SocketWaitForConnexion)

// crée une socket sur le poste serveur
 SI SocketCrée ( "Serveur" , 8000 ) = Faux ALORS
     Erreur ( "Erreur de création " + ErreurInfo ( errMessage ))
 SINON
     // Gestion des connexions des postes clients dans un thread
     ThreadExécute ( "Thread1" , threadNormal , ProcédureAttente )
 FIN
Procédure ProcédureAttente ()
 BOUCLE
     SI SocketAttendConnexion ( "Serveur" ) ALORS
         Canal est une chaîne
         // Si la connexion est acceptée, 
         // la gestion de cette connexion est réalisée dans un thread spécifique
         Canal = SocketAccepte ( "Serveur" )
         ThreadExécute (Canal, threadNormal , ProcédureGestion , Canal )
     FIN
 FIN


Début de la page

SocketChangeModeTransmission (en anglais SocketChangeTransmissionMode)

SI SocketChangeModeTransmission ( "Serveur" , SocketMarqueurFin )= Vrai ALORS
     Info ( "mode de transmission modifié" )
 FIN


Début de la page

SocketClientInfo (en anglais SocketClientInfo)

// Ajout des messages reçus dans une table
 TableAjoute ( Table1 , "1" + TAB + SocketLit ( "Serveur" , Faux ) +...
       TAB + SocketClientInfo ( "Serveur" , SocketAdresse ) + ...
       TAB + SocketClientInfo ( "Serveur" , SocketPort ))


Début de la page

SocketConnecte (en anglais SocketConnect)

SI PAS SocketConnecte ( "Serveur" , 8000 ) ALORS
     Erreur ( "erreur de connexion " + ErreurInfo ( errMessage ))
 FIN


Début de la page

SocketConnecteInfraRouge (en anglais SocketConnectInfrared)

SI SocketConnecteInfraRouge ( "client" , "service" ) = Faux ALORS
    Erreur ( "Erreur de connexion " + ErreurInfo ( errMessage ))
 FIN


Début de la page

SocketCree (en anglais SocketCreate)

SI PAS SocketCrée ( "Serveur" , 8000 ) ALORS
    Erreur ( "erreur création " + ErreurInfo ( errMessage ))
 FIN


Début de la page

SocketCreeInfraRouge (en anglais SocketCreateInfrared)

SI SocketCréeInfraRouge ( "Serveur" , "Service" ) = Faux ALORS
     Erreur ( "Erreur création " + ErreurInfo ( errMessage ))
 FIN


Début de la page

SocketCreeUDP (en anglais SocketCreateUDP)

SI PAS SocketCréeUDP ("Serveur", 8000) ALORS
   Erreur("erreur création " + ErreurInfo( errMessage ))
FIN

Début de la page

SocketEcrit (en anglais SocketWrite)

Si SocketEcrit ( "Serveur" , "hello world" ) = Vrai ALORS
    Message ( "message envoyé" )
 FIN


Début de la page

SocketEcrit (en anglais SocketWrite)

SI SocketEcrit ( "Serveur" , "hello world","www.info.fr",2005 ) = Vrai ALORS
     Message ( "Message envoyé" )
 FIN


Début de la page

SocketExiste (en anglais SocketExist)

// Vérification de l'existence avant la création
 SI SocketExiste ( "MASOCKET" ) = Faux ALORS
    SI SocketCrée ( "MaSocket" , 8000 ) = Faux ALORS
        Erreur ( "Erreur création " + ErreurInfo ( errMessage ))
     FIN
 SINON
     SocketLit ( "MaSocket" , Faux )
 FIN


Début de la page

SocketFerme (en anglais SocketClose)

SI SocketCrée ( "Serveur" , 8000 ) = Faux ALORS
     Erreur ( "Erreur creation " + ErreurInfo ( errMessage ))
 SINON
     ...
     SocketFerme ( "Serveur" )
 FIN


Début de la page

SocketLit (en anglais SocketRead)

// Ajout des messages reçus dans une table
 TableAjoute ( Table1 , "1" + TAB + SocketLit ( "Serveur" , Faux ) + ...
     TAB + SocketClientInfo ( "serveur" , SocketAdresse ) + ...
    TAB + SocketClientInfo ( "serveur" , SocketPort ))


Début de la page

SocketLit (en anglais SocketRead)

// Affichage du messages reçu
Info ( SocketLit ( "Serveur" , Faux ))


Début de la page

SocketLit (en anglais SocketRead)

TANTQUE SocketExiste ( "MaSocket" )
     sMsg est une chaine = SocketLit ( "MaSocket" , Vrai )
     SI sMsg <> "" ALORS
       ListeAjoute ( Messages , Maintenant () + " " + sMsg )
     FIN
 FIN


Début de la page