Pascal: Copiar un fichero binario

Ejemplo de cómo copiar el contenido de un fichero binario en otro, usando Pascal

Lenguaje: Pascal (compilador: Turbo Pascal 7)

Categoría: Ficheros

(* Fuente procedente de ErrorDeSintaxis.es *)

(* Ejemplo de cómo copiar el contenido de un *)

(*  fichero binario en otro, usando Pascal *)

(* Lenguaje: Pascal *)

(* Compilador: Turbo Pascal 7 *)

(* Nivel: Básico *)

(* Disponible desde 19/07/2011 *)

(* Aportado por Nacho *)

(* Autor original: Nacho Cabanes *)

(* Web original: http://www.aprendeaprogramar.com/mod/resource/view.php?id=154 *)

program CopiaFichero;
 { Sencillo y rápido programa de copia de ficheros, SIN comprobación
   de errores }
 
 var
   Origen, Destino: file;
   CantLeida, CantEscrita: Word;
   NombreOrg, NombreDest: String;
   Buffer: array[1..2048] of Char;
 
 begin
   Write( 'Introduzca el nombre del fichero ORIGEN... ' );
   ReadLn( NombreOrg );
   Write( 'Introduzca el nombre del fichero DESTINO... ' );
   ReadLn( NombreDest );
   Assign( Origen, NombreOrg );
   Reset( Origen, 1 );                                { Tamaño = 1 }
   Assign( Destino, NombreDest );
   Rewrite( Destino, 1 );                             { Lo mismo }
   WriteLn( 'Copiando ', FileSize(Origen), ' bytes...' );
   repeat
     BlockRead( Origen, Buffer, SizeOf(Buffer), CantLeida);
     BlockWrite( Destino, Buffer, CantLeida, CantEscrita);
   until (CantLeida = 0) or (CantEscrita <> CantLeida);
   Close( Origen );
   Close( Destino );
   WriteLn( 'Terminado.' )
 end.