Commande de compilation...
Commande d'exécution...
Fichiers sources...
upscmp Source=serveur
upscmp Source=client
serveur
client
Source Composant "Exemple d'emploi des socquettes" Version
1.0.0;
ImporterModule UpsMsn(<UpsMsn>, ImporterDefinitions);
Variable
/******/
C : Nul Ou CanalMicrosoftNetwork;
L : Caractere;
Principal
/*******/
Debut
C=CanalMicrosoftNetwork("local", "MonCanal");
C.ServirDesClients();
TantQue Vrai Faire
Si C.TenterDAccepterUnClient() Alors
?=C.LireUneLigne(L, 256);
Si L=="Arreter" Alors
C.Fermer();
Retourner 0;
Fin Si
C.Ecrire(L.Majuscule());
C.Fermer();
Fin Si
Attendre(1);
Fin TantQue
Fin Principal
Source Composant "Exemple d'emploi des socquettes" Version
1.0.0;
ImporterModule UpsMsn(<UpsMsn>, ImporterDefinitions);
Procedure Dialoguer(Libelle : Caractere)
/************************************/
Variable
C : Nul Ou CanalMicrosoftNetwork;
L : Caractere;
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
/******/
C : Nul Ou CanalTuyauNommme;
L : Caractere;
Principal
/*******/
Debut
C=CanalTuyauNomme("MonCanal");
C.ServirDesClients();
TantQue Vrai Faire
Si C.TenterDAccepterUnClient() Alors
?=C.LireUneLigne(L, 256);
Si L=="Arreter" Alors
C.Fermer();
Retourner 0;
Fin Si
C.Ecrire(L.Majuscule());
C.Fermer();
Fin Si
Attendre(1);
Fin TantQue
Fin Principal
Source Composant "Exemple d'emploi des socquettes" Version
1.0.0;
ImporterModule UpsNap(<UpsNap>, ImporterDefinitions);
Procedure Dialoguer(Libelle : Caractere)
/************************************/
Variable
C : Nul Ou CanalTuyauNomme;
L : Caractere;
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
/******/
C : Nul Ou CanalTcpIp;
Port : Entier;
L : Caractere;
Principal
/*******/
Debut
C=CanalTcpIp("local", 2048);
C.ServirDesClients(10);
TantQue Vrai Faire
Si C.TenterDAccepterUnClient(Port) Alors
?=C.LireUneLigne(L, 256);
Si L=="Arreter" Alors
C.Fermer();
Retourner 0;
Fin Si
C.Ecrire(L.Majuscule());
C.Fermer();
Fin Si
Attendre(1);
Fin TantQue
Fin Principal
Source Composant "Exemple d'emploi des socquettes" Version
1.0.0;
ImporterModule UpsTcp(<UpsTcp>, ImporterDefinitions);
Procedure Dialoguer(Libelle : Caractere)
/************************************/
Variable
C : Nul Ou CanalTcpIp;
L : Caractere;
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