Copier des données entre des flux

Remonter à Utilisation des flux

Remonter à Utilisation de la RTL - Index

Lors de la copie de données d’un flux vers un autre, il n’est pas nécessaire de lire puis d’écrire explicitement les données. Vous pouvez utiliser à la place la méthode CopyFrom, telle qu’elle est illustrée dans l’exemple suivant.

Dans l’exemple suivant, un fichier est copié dans un autre à l’aide de flux. L’application comprend deux contrôles d’édition (EdFrom et EdTo) et un bouton Copier le fichier.

 procedure TForm1.CopyFileClick(Sender: TObject);
 var Source, Destination:TStream;
 begin
   Source := TFileStream.Create(edFrom.Text, fmOpenRead or fmShareDenyWrite);
   try
     Destination := TFileStream.Create(edTo.Text, fmOpenCreate or fmShareDenyRead);
     try
       Destination.CopyFrom(Source,Source.Size);
     finally
       Destination.Free;
     end;
  finally
    Source.Free
 end;

Voir aussi

• Utilisation des flux pour lire ou écrire des données
• Spécification de la position et de la taille du flux