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.
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 )
|