Código de Delphi - Extraer parte de un fichero mp3

Extraer parte de un fichero mp3gráfica de visualizaciones


Delphi

estrellaestrellaestrellaestrellaestrella(1)
Publicado el 02 de Junio del 2007 por ELADIO
8.691 visualizaciones desde el 02 de Junio del 2007. Una media de 21 por semana
Código fuente para extraer una parte de un fichero MP3; la función es muy simple, pero funciona.
Está desarrollada con delphi 6

Versión 1
estrellaestrellaestrellaestrellaestrella(1)

Publicado el 02 de Junio del 2007gráfica de visualizaciones de la versión: Versión 1
8.692 visualizaciones desde el 02 de Junio del 2007. Una media de 21 por semana
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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;



Comentarios sobre la versión: Versión 1 (1)

victor
30 de Junio del 2008
estrellaestrellaestrellaestrellaestrella
muy buen codigo un poco dificil de entender jejeje pero es bueno :)
Responder

Comentar la versión: Versión 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios

http://lwp-l.com/s1501