Une communication client-serveur basée sur les canaux Tcp-Ip

Commande de compilation...
Commande d'exécution...
Fichiers sources...

upscmp Source=serveur

upscmp Source=client

Revenir en haut de la page...

serveur

client

Revenir en haut de la page...

Source Composant "Exemple d'emploi des socquettes" Version 1.0.0;

ImporterModule UpsMsn(<UpsMsn>, ImporterDefinitions);

Variable
/******/ Principal
/*******/
Debut
C=CanalMicrosoftNetwork("local", "MonCanal");
C.ServirDesClients();
TantQue Vrai Faire Fin TantQue
Fin Principal
Source Composant "Exemple d'emploi des socquettes" Version 1.0.0;

ImporterModule UpsMsn(<UpsMsn>, ImporterDefinitions);

Procedure Dialoguer(Libelle : Caractere)
/************************************/
Variable Debut
C=CanalMicrosoftNetwork("local", "MonCanalClient");
C.ConnecterAUnServeur("local", "MonCanal");
C.Ecrire(Libelle);

?=C.LireUneLigne(L, 256);
C.Fermer();
Ecran.Ecrire(L);
Fin Procedure

Principal
/*******/
Debut
Dialoguer("Bonjour le monde\n");
Attendre(1);
Dialoguer("Hello the world\n");
Attendre(1);
Dialoguer("Guten tag die welt\n");
Fin Principal
Source Composant "Exemple d'emploi des socquettes" Version 1.0.0;

ImporterModule UpsNap(<UpsNap>, ImporterDefinitions);

Variable
/******/ Principal
/*******/
Debut
C=CanalTuyauNomme("MonCanal");
C.ServirDesClients();
TantQue Vrai Faire Fin TantQue
Fin Principal
Source Composant "Exemple d'emploi des socquettes" Version 1.0.0;

ImporterModule UpsNap(<UpsNap>, ImporterDefinitions);

Procedure Dialoguer(Libelle : Caractere)
/************************************/
Variable Debut
C=CanalTuyauNomme("MonCanalClient");
C.ConnecterAUnServeur("MonCanal");
C.Ecrire(Libelle);

?=C.LireUneLigne(L, 256);
C.Fermer();
Ecran.Ecrire(L);
Fin Procedure

Principal
/*******/
Debut
Dialoguer("Bonjour le monde\n");
Attendre(1);
Dialoguer("Hello the world\n");
Attendre(1);
Dialoguer("Guten tag die welt\n");
Fin Principal
Source Composant "Exemple d'emploi des socquettes" Version 1.0.0;

ImporterModule UpsTcp(<UpsTcp>, ImporterDefinitions);

Variable
/******/ Principal
/*******/
Debut
C=CanalTcpIp("local", 2048);
C.ServirDesClients(10);
TantQue Vrai Faire Fin TantQue
Fin Principal
Source Composant "Exemple d'emploi des socquettes" Version 1.0.0;

ImporterModule UpsTcp(<UpsTcp>, ImporterDefinitions);

Procedure Dialoguer(Libelle : Caractere)
/************************************/
Variable Debut
C=CanalTcpIp("local");
C.ConnecterAUnServeur(2048);
C.Ecrire(Libelle);

?=C.LireUneLigne(L, 256);
C.Fermer();
Ecran.Ecrire(L);
Fin Procedure

Principal
/*******/
Debut
Dialoguer("Bonjour le monde\n");
Attendre(1);
Dialoguer("Hello the world\n");
Attendre(1);
Dialoguer("Guten tag die welt\n");
Fin Principal

Revenir en haut de la page...