/****************************************************************/
Type ServeurFtp Implemente IServeurInternet Defaut Final TailleSegment 2 ConserverObjets
/* Objet : Definition du type serveur File Transfer Protocol. */
/****************************************************************/
/*-------------------------------------------------------------*/
/* Heritage des proprietes d'Objet. */
/*-------------------------------------------------------------*/
Prive :
EstInstanceDe : Type Lecture Public;
/*--------------------------------------------------------------*/
/* Proprietes heritees de IServeurInternet. */
/*--------------------------------------------------------------*/
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;
/*--------------------------------------------------------------*/
/* Proprietes propres. */
/*--------------------------------------------------------------*/
Prive :
EtatModePassif : ModePassif Lecture Public;
EtatTypeDonnees : TypeDonnees Lecture Public;
EtatFormatTexte : FormatTexte Lecture Public;
EtatStructureDonnees : StructureDonnees Lecture Public;
EtatModeTransfert : ModeTransfert 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 heritees de IServeurInternet. */
/*--------------------------------------------------------------*/
Public :
Constructeur Habilitation Optimiser(Invariant) (URIDuServeur : Caractere, UtilisateurDuServeur : Caractere, MotDePasseDuServeur : Caractere);
Procedure Habilitation ChangerConnexion(UtilisateurDuServeur : Caractere, MotDePasseDuServeur : Caractere);
/*--------------------------------------------------------------*/
/* Methodes propres. */
/*--------------------------------------------------------------*/
Public :
Constructeur Habilitation Optimiser(Invariant) (URIDuServeur : Caractere, UtilisateurDuServeur : Caractere, MotDePasseDuServeur : Caractere, PointDeMontage : Caractere);
Procedure Habilitation ChangerProxy(Ip1Proxy : Entier, Ip2Proxy : Entier, Ip3Proxy : Entier, Ip4Proxy : Entier, PortProxy : Entier);
Procedure Habilitation ChangerEtatPassif(E : ModePassif);
Procedure Habilitation ChangerEtatTypeDonnees(E : TypeDonnees);
Procedure Habilitation ChangerEtatFormatTexte(E : FormatTexte);
Procedure Habilitation ChangerEtatStructureDonnees(E : StructureDonnees);
Procedure Habilitation ChangerEtatModeTransfert(E : ModeTransfert);
Prive :
Destructeur(MettreEnAnteMemoire : Booleen) Retourner Booleen;
Fin Type
Le type ServeurFtp représente un serveur File Transfer Protocol pour un client.
Il possède un constructeur explicite dont les paramètres URIDuServeur, UtilisateurDuServeur, MotDePasseDuServeur et PointDeMontage représentent respectivement l'Uniform Resource Identifier du serveur, l'utilisateur de connexion et le mot de passe correspondant, le point de montage du serveur dans le système de fichiers virtuel d'Up ! System.
Le format d'une Uniform Resource Identifier pour un accès en File Transfer Protocol est le suivant :
ftp://${NomServeur}:${Port}
Le paramètre PointDeMontage a pour valeur un nom de répertoire virtuel.
Variable
/******/
ServeurPatients : Nul Ou ServeurFtp;
ServeurFichesProspects : Nul Ou ServeurFtp;
Principal
/*******/
Debut
...
ServeurPatients=ServeurFtp("ftp://www.patients.org/public", "scott", "tiger", "/ftp_patients");
ServeurFichesProspects=ServeurFtp("ftp://192.10.28.34:21", "scott2", "tiger2", "/ftp_propects");
...
Si ServeurPatients==ServeurProspects Alors
/* Egalité entre deux serveurs Ftp. */
...
Fin Si
Si ServeurPatients!=ServeurProspects Alors
/* Inégalité entre deux serveurs Ftp. */
...
Fin Si
Fin Principal
| - | - | - | - | - | - | - | - | - |