/****************************************************************/
Interface IServeurInternet Defaut TailleSegment 4 ConserverObjets
/* Objet : Definition de l'interface serveur Internet. */
/****************************************************************/
/*-------------------------------------------------------------*/
/* Heritage des proprietes d'Objet. */
/*-------------------------------------------------------------*/
Prive :
EstInstanceDe : Type Lecture Public;
/*-------------------------------------------------------------*/
/* Proprietes propres. */
/*-------------------------------------------------------------*/
Prive :
URIServeur : Caractere Lecture Public;
UtilisateurServeur : Caractere Lecture Public;
MotDePasseServeur : Caractere Lecture Public;
Ip1 : Entier Lecture Public;
Ip2 : Entier Lecture Public;
Ip3 : Entier Lecture Public;
Ip4 : Entier Lecture Public;
Port : Entier Lecture Public;
/*-------------------------------------------------------------*/
/* Heritage des methodes d'Objet. */
/*-------------------------------------------------------------*/
Public :
Fonction Optimiser(Invariant) Identique(O : Nul Ou Objet) Retourner Nul Ou Booleen;
Procedure Convertir(O : Nul Ou Objet);
Fonction Optimiser(Invariant) CreeParLeServeur() Retourner Entier;
Fonction Optimiser(Invariant) CreeParLeProcessus() Retourner Entier;
Fonction Optimiser(Invariant) CreeDansLEntrepot() Retourner Entrepot;
Fonction Cloner(EntrepotCible : Nul Ou Entrepot=Nul, Profondeur : ModeClonage = ClonageObjetSeul) Retourner Nul Ou Objet;
Fonction LirePropriete(NomPropriete : Caractere) Retourner Nul Ou Objet;
Procedure EcrirePropriete(NomPropriete : Caractere, Valeur : Nul Ou Objet);
Fonction IncrementerDecrementerPropriete(NomPropriete : Nul Ou Caractere, Incrementer : Booleen, Prefixe : Booleen) Retourner Nul Ou Objet;
Procedure SupprimerPropriete(NomPropriete : Caractere);
Fonction Optimiser(Invariant) EnumererProprietes(NumeroPropriete : Entier, TypePropriete : Nul Ou Type=? Sortie, PeutEtreNul : Booleen=? Sortie, Aide : Nul Ou Caractere=? Sortie, NomEnumere : Nul Ou Caractere=? Sortie) Retourner Nul Ou Caractere;
Fonction Optimiser(Invariant) Adresse() Retourner Nul Ou Caractere;
Prive :
Fonction Exporter(E : Nul Ou IEchangeElementaire) Retourner Boolean;
Fonction Importer(E : Nul Ou IEchangeElementaire, EntrepotCible : Nul Ou Entrepot=Nul, EstFiltre : Booleen=Faux, V : Entier=0, R : Entier=0, C : Entier=0) Retourner Nul Ou Objet;
/*-------------------------------------------------------------*/
/* Methodes propres. */
/*-------------------------------------------------------------*/
Public :
Constructeur Habilitation Optimiser(Invariant) (URIDuServeur : Caractere, UtilisateurDuServeur : Nul Ou Caractere=Nul, MotDePasseDuServeur : Nul Ou Caractere=Nul);
Procedure Habilitation ChangerConnexion(UtilisateurDuServeur : Caractere, MotDePasseDuServeur : Caractere);
Prive :
Destructeur(MettreEnAnteMemoire : Booleen) Retourner Booleen;
Fin Interface
L'interface IServeurInternet représente un serveur Internet pour un client.
Elle possède un constructeur explicite dont les paramètres URIDuServeur, UtilisateurDuServeur et MotDePasseDuServeur représentent respectivement l'Uniform Resource Identifier du serveur, l'utilisateur de connexion et le mot de passe correspondant.
Le format des Uniform Resource Identifier selon le protocole défini par son schéma est le suivant :
${NomSchema}://${NomServeur}:${Port}
Variable
/******/
ServeurPatients : Nul Ou IServeurInternet;
ServeurFichesProspects : Nul Ou IServeurInternet;
Principal
/*******/
Debut
...
ServeurPatients=IServeurInternet(ServeurFtp("ftp://www.patients.org/public", "/public/patients/", "scott", "tiger"));
ServeurFichesProspects=IServeurInternet(ServeurFtp("ftp://192.10.28.34:21", "/public/prospects/", "scott2", "tiger2"));
...
Si ServeurPatients==ServeurProspects Alors
/* Egalité entre deux serveurs Internet. */
...
Fin Si
Si ServeurPatients!=ServeurProspects Alors
/* Inégalité entre deux serveurs Internet. */
...
Fin Si
Fin Principal
| - | - | - | - | - | - | - | - | - |