Exemple : Envoyer un message du poste client vers le serveur
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
ConnectFTP est un entier
ConnectFTP = NetConnecte("148.61.125.245", ServeurFTP, "GUEST", "")
...
NetEnvoieBuffer(ConnectFTP, "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
MaRecup est une RecupChaîne
MaChaîne est une chaîne fixe sur 2000
// Récupère la structure
Transfert(&MaRecup, _EVE.lParam, 12)
// Récupère les informations
Transfert(&MaChaîne, MaRecup:pInfo, MaRecup:lTaille)
Info(MaChaîne)