Up ! File Transfer Service

Ce programme présente l'usage d'Up ! File Transfer Service en tant que client transférant des fichiers.

Les fichiers sources sont dans ${UPS_HOME}/upsnet/demo/${UPS_LANGUAGE}/clientfts/.

Configuration d'Up ! File Transfer Service


; ------------------------------------------------------------------- 

; Fichier    : upssrv.ini                                             

; Objet      : Initialisation d'Up ! Server.                         

;                                                                     

; Module      : Up ! Application System.                             

; Auteur-Date : DUVAL Jean-Pierre - Novembre 2003.                    

; ------------------------------------------------------------------- 

;                          Observations                               

;                                                                      

;                                                                      

; ------------------------------------------------------------------- 



[UpsFts]

AutoriserAnonymous=Oui

URIServeur=ftp://local:21

Compresser=Non

LatenceServeur=60

NbClients=8

NbServeurs=1

Port=2000

TracerCommunication=Oui



DroitsDAcces1=DroitLectureEcritureExecution
Racine1=C:/ftp

Repertoire1=/

Mode compilé

Commande de compilation


upscmp Source=clientfts.upl

Commande d'exécution

Exécution du serveur


upssrv PasDOrb=Oui Module1=UpsFts

Exécution du client


clientfts NbServeurs=0

Mode interprété

Exécution du serveur


upssrv PasDOrb=Oui Module1=UpsFts

Exécution du client


upssng Source=clientfts.upl NbServeurs=0

Fichier source


Source Composant "Exemple d'emploi d'Up ! File Transfer Service" Version 4.0.0;



ImporterModule

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

   UpsFts(<UpsFts>, ImporterDefinitions);



Variable

/******/

   MonServeur : Nul Ou ServeurFtp;



Principal

/*******/

Debut

MonServeur=ServeurFtp("ftp://local:21", "/local_ftp", "anonymous", "contact@up-comp.com");



MonServeur.ChangerEtatModeTransfert(ModeTransfertFlux);

MonServeur.ChangerEtatTypeDonnees(TypeDonneesAscii);

CopierFichier("C:/tmp/essai.txt", "ftp://local:21/tmp/essai1.txt");

MonServeur.ChangerEtatTypeDonnees(TypeDonneesImage);

CopierFichier("C:/tmp/essai.doc", "ftp://local:21/tmp/essai1.doc");

MonServeur.ChangerEtatTypeDonnees(TypeDonneesAscii);

CopierFichier("ftp://local:21/essai.txt", "C:/tmp/tmp/essai1.txt");

MonServeur.ChangerEtatTypeDonnees(TypeDonneesImage);

CopierFichier("ftp://local:21/essai.doc", "C:/tmp/tmp/essai1.doc");



MonServeur.ChangerEtatModeTransfert(ModeTransfertBloc);

MonServeur.ChangerEtatTypeDonnees(TypeDonneesAscii);

CopierFichier("C:/tmp/essai.txt", "ftp://local:21/tmp/essai2.txt");

MonServeur.ChangerEtatTypeDonnees(TypeDonneesImage);

CopierFichier("C:/tmp/essai.doc", "ftp://local:21/tmp/essai2.doc");

MonServeur.ChangerEtatTypeDonnees(TypeDonneesAscii);

CopierFichier("ftp://local:21/essai.txt", "C:/tmp/tmp/essai2.txt");

MonServeur.ChangerEtatTypeDonnees(TypeDonneesImage);

CopierFichier("ftp://local:21/essai.doc", "C:/tmp/tmp/essai2.doc");



MonServeur.ChangerEtatModeTransfert(ModeTransfertCompresse);

MonServeur.ChangerEtatTypeDonnees(TypeDonneesAscii);

/*

CopierFichier("file://local/C%3A/tmp/essai.txt", "/local_ftp/tmp/essai3.txt");

*/

CopierFichier("file://local/tmp/essai.txt", "/local_ftp/tmp/essai3.txt");

MonServeur.ChangerEtatTypeDonnees(TypeDonneesImage);

/*

CopierFichier("file://local/C%3A/tmp/essai.doc", "/local_ftp/tmp/essai3.doc");

*/
CopierFichier("file://local/tmp/essai.doc", "/local_ftp/tmp/essai3.doc");

MonServeur.ChangerEtatTypeDonnees(TypeDonneesAscii);

/*

CopierFichier("/local_ftp/essai.txt", "file://local/C%3A/tmp/tmp/essai3.txt");

*/

CopierFichier("/local_ftp/essai.txt", "file://local/tmp/tmp/essai3.txt");

MonServeur.ChangerEtatTypeDonnees(TypeDonneesImage);

/*

CopierFichier("/local_ftp/essai.doc", "file://local/C%3A/tmp/tmp/essai3.doc");

*/

CopierFichier("/local_ftp/essai.doc", "file://local/tmp/tmp/essai3.doc");



MonServeur.ChangerEtatModeTransfert(ModeTransfertFlux);

MonServeur.ChangerEtatTypeDonnees(TypeDonneesAscii);

MonServeur.ChangerEtatStructureDonnees(StructureEnregistrement);

MonServeur.ChangerEtatPassif(ModePassifActif);

MonServeur.ChangerProxy(127, 0, 0, 1, 1020);

CopierFichier("C:/tmp/essai.txt", "ftp://local:21/tmp/essai4.txt");

CopierFichier("ftp://local:21/essai.txt", "C:/tmp/tmp/essai4.txt");



MonServeur=Nul;

Fin Principal