Les codes free de FreeDev
[WinDev][16] Serveur ET client RPC manipulés par les commandes NET (Envoi de buffer)

Voici un exemple de code :


Démarrage du serveur :

nConnexion est un entier = NetDémarreServeur(ServeurRPC)
SI nConnexion>0 ALORS
Trace("Serveur démarré")
Evénement("Nom_Procédure_Associée", "*.*", 74)
SINON
Trace("Serveur NON démarré")
FIN

AVEC la Procedure :

Procedure Nom_Procédure_Associée(sMess,wParam,lParam)

RecupChaîne est une structure
Wdata est un entier // Information complémentaire envoyée
lTaille est un entier // Taille de la chaîne envoyée (Nombre d'octets)
pInfo est un entier // Adresse de la chaîne envoyée
FIN

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

// Récupère la structure
Transfert(&Recup, _EVE.lParam, 12)

// Récupère les informations
Transfert(&MaChaîne, Recup:pInfo, Recup:lTaille)
Trace("Chaine reçue : " + MaChaîne)


//**********************************************************//

Code de connexion du client

gnConnexion = NetConnecte("PMO2",ServeurRPC,"JR","JR")
Trace("ID de connexion du client : " + gnConnexion)

Envoi de chaînes DANS le buffer

Trace(RC + "Messages reçus : ")
SI gnConnexion>0 ALORS
NetEnvoieBuffer(gnConnexion,"TOTO")
NetEnvoieBuffer(gnConnexion,"TITI")
NetEnvoieBuffer(gnConnexion,"TATA")
FIN