Copie de données d'un flux vers un autre

Remonter à Utilisation des flux

La création de cette application comprend les étapes suivantes :

1. Créez une fiche avec le contrôle bouton puis enregistrez votre projet.
2. Créez un fichier texte à copier et enregistrez-le dans le répertoire projet par défaut.
3. Ecrivez le code pour lire la chaîne et copiez-le dans un fichier.
4. Exécutez l'application.

Pour créer une fiche ayant un contrôle bouton

1. Choisissez Fichier > Nouveau > Autre > Projets Delphi, double-cliquez sur l'icône Application multi-périphérique, puis sélectionnez Application vide. Le Concepteur de fiches s'affiche.
2. Depuis la page Standard de la palette d'outils, placez un composant TButton sur la fiche.
3. Dans l'inspecteur d'objets, entrez CopyFile pour les propriétés Name et Text du bouton.
4. Enregistrez votre projet (en utilisant Fichier > Enregistrer le projet ou Fichier > Enregistrer le projet sous).

   Par défaut, tous les projets sont enregistrés dans ce répertoire : C:\Utilisateurs\<utilisateur>\Documents\Embarcadero\Studio\Projects

   Toutefois, vous pouvez spécifier un seul répertoire spécifique au projet en utilisant Fichier > Enregistrer le projet sous.

   Pour de plus amples informations, voir Commandes Enregistrer.

Pour ajouter un texte à votre répertoire de projet

1. En utilisant un éditeur de texte, créez un fichier texte simple.
2. Enregistrez le fichier texte sous le nom from.txt dans votre répertoire de projet.

   Remarque :

• Pour une plate-forme de bureau, placez le fichier texte dans le dossier Win32/Debug de votre projet.
• Pour une plate-forme mobile, placez le fichier texte dans le dossier <platform>/Debug de votre projet.

Pour écrire la procédure de copie de flux

Delphi :

1. Sélectionnez Button1 sur la fiche.
2. Dans l'inspecteur d'objets, double-cliquez sur l'action OnClick dans l'onglet Evénements.

   L'éditeur de code s'affiche, avec le curseur dans le bloc du gestionnaire d'événement TForm1.CopyFileClick (Delphi).

3. Placez le curseur avant le mot réservé begin, puis appuyez sur la touche Entrée. Cette action crée une nouvelle ligne au-dessus du bloc de code.
4. Placez le curseur sur la nouvelle ligne créée, puis tapez la déclaration de variable suivante :

var stream1, stream2: TStream;

5. Insérez le curseur dans le bloc de code et tapez le code suivant :

 stream1 := TFileStream.Create('from.txt', fmOpenRead);
 try
   stream2 := TFileStream.Create('to.txt', fmCreate);
   try
     stream2.CopyFrom(stream1, stream1.Size);
   finally
     stream2.Free;
   end;
 finally
   stream1.Free;
 end;

C++ :

1. Sélectionnez Button1 sur la fiche.
2. Dans l'inspecteur d'objets, double-cliquez sur l'action OnClick de l'onglet Evénements.

   L'éditeur de code s'affiche avec le curseur dans le bloc du gestionnaire d'événement TForm1::CopyFileClick (C++).

3. Tapez les déclarations de variables suivantes :

TStream *stream1, *stream2;

4. Insérez le curseur dans le bloc de code et tapez le code suivant :

  stream1 = new TFileStream( "from.txt", fmOpenRead );
 try {
   stream2 = new TFileStream( "to.txt", fmCreate );
          try {
     stream2->CopyFrom( stream1, stream1->Size );
   } __finally {
     stream2->Free();
   }
 } finally {
   stream1->Free();
 }

Pour exécuter l'application

1. Enregistrez les fichiers de votre projet.
2. Choisissez Exécuter > Exécuter pour construire et exécuter l'application. La fiche apparaît avec un bouton appelé CopyFile.
3. Cliquez sur CopyFile.
4. Utilisez un éditeur de texte pour ouvrir to.txt, le fichier nouvellement créé, qui est localisé dans votre répertoire de projet. Le contenu de from.txt est copié dans to.txt.

Voir aussi

• Utilisation des flux
• FireMonkey et RTL (tutoriel de l'EDI)
• Guide de prise en main FireMonkey - Introduction