Encodage

Ce programme présente l'encodage et le décodage de flux. Dans cet exemple, il s'agit de fichiers.

Le fichier source est ${UPS_HOME}/upsvtm/demo/${UPS_LANGUAGE}/encoder.upl.

Mode compilé

Commande de compilation


upscmp Source=encoder.upl

Commande d'exécution


encoder

Mode interprété


upssng Source=encoder.upl

Fichier source


Source Composant "Exemple de l'emploi de l'encodage" Version 4.0.0;



Principal

/*******/

Variable

/******/

   F1 : Nul Ou Fichier;

   F2 : Nul Ou Fichier;

   FC1 : Nul Ou FluxEncode;

   FC2 : Nul Ou FluxEncode;

   Ligne : Caractere;

   B : Binaire;



Debut

F1=Fichier("/tmp/essai.txt", LectureTexte);

F2=Fichier("/tmp/essai1.txt", EcritureTexte);

FC2=FluxEncode(IFlux(F2));

FC2.ChangerModeEncodageBase16();
FC2.ChangerModeTexte(Vrai);

F2=Nul;

TantQue Vrai Faire

   ?=F1.LireUneLigne(Ligne);

   FC2.Ecrire(Ligne+"\n");

   Si F1.FinDeFlux Alors
   
      Arreter;
   
   Fin Si

Fin TantQue

F1.Fermer();

F1=Nul;

FC2.Fermer();

FC2=Nul;



F1=Fichier("/tmp/essai1.txt", LectureTexte);

F2=Fichier("/tmp/essai2.txt", EcritureTexte);

FC1=FluxEncode(IFlux(F1));

FC1.ChangerModeEncodageBase16();

FC1.ChangerModeTexte(Vrai);

F1=Nul;

TantQue Vrai Faire

   ?=FC1.LireUneLigne(Ligne);

   F2.Ecrire(Ligne+"\n");

   Si FC1.FinDeFlux Alors
   
      Arreter;
   
   Fin Si

Fin TantQue

FC1.Fermer();

FC1=Nul;

F2.Fermer();

F2=Nul;



F1=Fichier("/tmp/essai.txt", LectureTexte);

F2=Fichier("/tmp/essai3.txt", EcritureTexte);

FC2=FluxEncode(IFlux(F2));

FC2.ChangerModeEncodageBase32();
FC2.ChangerModeTexte(Vrai);

F2=Nul;

TantQue Vrai Faire

   ?=F1.LireUneLigne(Ligne);

   FC2.Ecrire(Ligne+"\n");

   Si F1.FinDeFlux Alors
   
      Arreter;
   
   Fin Si

Fin TantQue

F1.Fermer();

F1=Nul;

FC2.Fermer();

FC2=Nul;



F1=Fichier("/tmp/essai3.txt", LectureTexte);

F2=Fichier("/tmp/essai4.txt", EcritureTexte);

FC1=FluxEncode(IFlux(F1));

FC1.ChangerModeEncodageBase32();

FC1.ChangerModeTexte(Vrai);

F1=Nul;

TantQue Vrai Faire

   ?=FC1.LireUneLigne(Ligne);

   F2.Ecrire(Ligne+"\n");

   Si FC1.FinDeFlux Alors
   
      Arreter;
   
   Fin Si

Fin TantQue

FC1.Fermer();

FC1=Nul;

F2.Fermer();

F2=Nul;



F1=Fichier("/tmp/essai.txt", LectureTexte);

F2=Fichier("/tmp/essai5.txt", EcritureTexte);

FC2=FluxEncode(IFlux(F2));

FC2.ChangerModeEncodageBase64();
FC2.ChangerModeTexte(Vrai);

F2=Nul;

TantQue Vrai Faire

   ?=F1.LireUneLigne(Ligne);

   FC2.Ecrire(Ligne+"\n");

   Si F1.FinDeFlux Alors
   
      Arreter;
   
   Fin Si

Fin TantQue

F1.Fermer();

F1=Nul;

FC2.Fermer();

FC2=Nul;



F1=Fichier("/tmp/essai5.txt", LectureTexte);

F2=Fichier("/tmp/essai6.txt", EcritureTexte);

FC1=FluxEncode(IFlux(F1));

FC1.ChangerModeEncodageBase64();

FC1.ChangerModeTexte(Vrai);

F1=Nul;

TantQue Vrai Faire

   ?=FC1.LireUneLigne(Ligne);

   F2.Ecrire(Ligne+"\n");

   Si FC1.FinDeFlux Alors
   
      Arreter;
   
   Fin Si

Fin TantQue

FC1.Fermer();

FC1=Nul;

F2.Fermer();

F2=Nul;



F1=Fichier("/tmp/essai.doc", LectureBinaire);

F2=Fichier("/tmp/essai1.txt", EcritureTexte);

FC2=FluxEncode(IFlux(F2));

FC2.ChangerModeEncodageQuotedPrintable();

F2=Nul;

TantQue Vrai Faire

   ?=F1.Lire(B,512);

   FC2.Ecrire(B);

   Si F1.FinDeFlux Alors
   
      Arreter;
   
   Fin Si

Fin TantQue

F1.Fermer();

F1=Nul;

FC2.Fermer();

FC2=Nul;



F1=Fichier("/tmp/essai1.txt", LectureTexte);

F2=Fichier("/tmp/essai2.doc", EcritureBinaire);

FC1=FluxEncode(IFlux(F1));

FC1.ChangerModeEncodageQuotedPrintable();

F1=Nul;

TantQue Vrai Faire

   ?=FC1.Lire(B,512);

   F2.Ecrire(B);

   Si FC1.FinDeFlux Alors
   
      Arreter;
   
   Fin Si

Fin TantQue

FC1.Fermer();

FC1=Nul;

F2.Fermer();

F2=Nul;

Fin Principal