Procedure Extraer_Fichero_MP3;
var
FicheroOrigen,FicheroDestino: string;
FOrigen, FDestino: file;
Leido: Cardinal; //*** Contador de bytes leidos
Tamano: array[1..450000] of char; //*** Bloque del fichero a leer
Label C_For;
Begin
FicheroOrigen := 'C:\mp3\track1.mp3'; //*** ORIGEN
FicheroDestino := 'C:\mp3\Extracto_track1.mp3'; //*** DESTINO
AssignFile(Forigen, FicheroOrigen); //*** ABRIMOS FICHERO ORIGEN
Reset(FOrigen, 1);
AssignFile(FDestino, FicheroDestino); //*** ABRIMOS FICHERO DESTINO
Rewrite(FDestino, 1); //*** CREAMOS FICHERO DESTINO
BlockRead(Forigen, Tamano, SizeOf(Tamano), Leido); //*** LEEMOS EL BLOQUE A EXTRAER DEL ORIGEN
BlockWrite(FDestino, Tamano, SizeOf(Tamano), Leido); //*** ESCRIBIMOS EL BLOQUE EXTRAIDO DEL ORIGEN
CloseFile(FOrigen); //*** CERRAMOS LOS FICHEROS
CloseFile(FDestino);
End;
Crear cuenta
Comentarios sobre la versión: Versión 1 (1)