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

Exemples évolués

Chaque exemple montre une utilisation pratique de la fonction du WLangage.

Quand plusieurs syntaxes sont possibles, chacune est illustrée indépendamment.

Revenir à la page des exemples évolués


L'exemple suivant permet d'envoyer un message du poste client vers le poste serveur et de récupérer ce message sur le poste serveur grâce à la fonction Evénement.



// Sur le poste client
hConnect est un entier
hConnect = NetConnecte ( "148.61.125.245" , ServeurFTP , "GUEST" , "" )
...
NetEnvoieBuffer ( hConnect , "La suite dans quelques instants" )
// Sur le poste serveur
Evénement("GetBuffer", "*.*", 74)

// Procédure GetBuffer
// Déclaration de la structure pointée par _EVE.lParam
RecupChaîne est une structure
   Wdata est un entier
  
lTaille est un entier
  
pInfo est un entier
FIN

Recup est une RecupChaîne
MaChaîne est une chaîne fixe sur 2000

// Récupère la structure
Transfert (& Recup , _EVE.lParam , 12 )
// Récupère les informations
Transfert (& MaChaîne , Recup : pInfo , Recup : lTaille )
Info ( MaChaîne )