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

sin imagen de perfil

Extraer parte de un fichero mp3gráfica de visualizaciones


Delphi

Publicado el 2 de Junio del 2007 por Eladio
9.838 visualizaciones desde el 2 de Junio del 2007
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 2 de Junio del 2007gráfica de visualizaciones de la versión: Versión 1
9.839 visualizaciones desde el 2 de Junio del 2007
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

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

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...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s1501