archivo mp3+texto

[2-D@monic]

Bueno...... el objetivo es leer un archivo mp3, leer un archivo de texto, unir ambos y guardarlos en un archivo compuesto (esto ya es posible gracias al códio de khronos) con otra extensión, al momento abrir el archivo compuesto separar los archivos mp3 y texto, y leerlos separadamente; al momento de separarlos lo único que se debe hacer es leer el bloque mp3 y todo ese bloque guardarlo en un archivo mp3 (hasta el momento no me sale), de manera que pueda ser utilizado separadamente, lo mismo para el archivo de texto.

saludos.

[2-D@monic]

Ok.......... ya se cual era el problema...... como estoy haciendo uso de un archivo de acceso directo en el cual no se su estructura lo más lógico es copiar byte por byte hasta el tamaño der archivo mp3, con lo cual el tipo de variable buffer con el cual almaceno cada registro es tipo byte, además ya no necesito posicionar el puntero del registro puesto que la ller con redbuffer la salta al siguiente registro, entonces la función sería así:

procedure abrir(acompuesto:string);
var
compuesto,mp3,texto:TFileStream;
tamanio:tamanio_mp3texto;
cont:byte;
begin
compuesto:=TFileStream.Create(acompuesto,fmOpenRead);
mp3:=TFileStream.Create('c:\prueba.mp3',fmCreate);
//me ubico para leer los tamaños de los archivos:
compuesto.Position:=compuesto.Size-8;
//recupero el tamaño del archivo mp3 y del texto
compuesto.Read(tamanio,sizeof(tamanio));
//posiciono al principio para copiar al archivo mp3
compuesto.Position:=0;
while (compuesto.Position<=tamanio.tam_mp3) do
begin
compuesto.Read(cont,sizeof(cont));
mp3.Write(cont,sizeof(cont));
end;
mp3.Free;
compuesto.Free;
end

como ven copio byte por byte al archivo mp3, lo compilé ejecutó y creo el archivo mp3 tal y es...........
pero hay un problema...........
como ven en el archivo estoy guardando el archivo mp3 en una ubicación del disco duro, (para ver si reproduce) pero lo que debería ser es que se cargue en memoria para poder utilizarlo para reproducirlo...... como puedo hacer esto?. me explico, una vez "separado" el archivo mp3 y el de texto debo reproducir el archivo con mediaplayer pero como ven al declarar el archivo lo guarda en alguna ubicación..... lo que sería bueno es que al momento de cargarlo no se guarde en ningún lado sino que esté en la memoria y pueda darle esa dirección al componente mediaplayer para que lo reproduzca...... puedo hacer eso?......... la solución que se me viene a la cabeza es guardarlo temporalmente en el disco duro, reproducirlo desde esa dirección y una vez cerrado el programa eliminarlo.....

Alguna sugerencia........

saludos.

[Khronos]

Hola 2-D@monic, como te dije con los TFileStream se soluciona rapidamente.. Te hice un ejemplo que funciona perfectamente, une un archivo mp3 y un archivo de texto y te permite separarlos... está en el archivo adjunto.

Lo mejor es lo que tu dices, guardarlo temporalmente y luego eliminarlo..

Salu2

[2-D@monic]

Ok khronos todo bien......... creo que sí.... guardaré temporalmente los archivos.