archivo mp3+texto

[2-D@monic]

saludos en el foro, tengo un pequeño problema, no domino el manejo de archivos en delphi y el trabajo que tengo que hacer es unir un archivo mp3 + archivo de texto todo en un solo archivo maestro. bueno lo que tengo que hacer es almacenar el archivo mp3 y su letra en un solo archivo, alguna sugerencia?..... creo que mínimamente debe usar estructuras o no?

Saludos.

[Neftali [Germán.Estévez]]

Supongo que puedes "montar" un archivo con estructura propia, incluyendo las dos partes. Padrías añadir al inicio un número de bytes fijos para dar información del tamaño de cada archivo y luego incluir los dos ficheros.

Otra opción, tal vez más sencilla para empezar, sea comprimir ambos archivos en uno sólo. Una vez que tu aplicación los vaya a reproducir, descomprimirlos y trabajar con ellos por separado.

[Khronos]

Lo que te sugiere Neftali puede ser una buena solución, si no también puedes almacenar el archivo mp3 y el archivo de texto como archivo de recursos dentro de una dll o dentro del propio ejecutable.. Si buscas por el foro encontrarás varios ejemplos de como hacer esto.

Salu2

[2-D@monic]

OK creo que usaré lo de la estructura lo que no me ubico como definir la estructura del archivo, bueno creo que sería lo siguiente:

type
archivo_compuesto = packed record
     tam_mp3:byte
     tam_text:byte
     cont_mp3://que tipo de dato
     cont_text://que tipo de dato

[Khronos]

Hola,te sugiero algo como esto (lo estoy haciendo a ojo sin el compilador delante).

Código Delphi [-]

uses Classes;

procedure FusionarArchivos (mp3, text, salida: string);
var
FMp3, FText, FSalida: TFileStream;
begin

FSalida:= TFileStream.Create(salida, fmCreate);
FText:= TFileStream.Create(text, fmOpenRead or fmShareDenyWrite);
FMp3:= TFileStream.Create(mp3, fmOpenRead or fmShareDenyWrite);

FSalida.CopyFrom(FMp3, FMp3.size);
FSalida.CopyFrom(FText, FText.size);

FSalida.free;
FMp3.free;
FText.free;

end;

Basicamente sería algo como eso, tambien se me ocurre guardar al final de este archivo datos con el tamaño de cada archivo con un record, algo como esto:

Código Delphi [-]
type
   Datos = packed record
     Mp3Size : integer;
     TextSize: integer;
end;

Lo puedes hacer con la clase TFileStream y la función WriteBuffer.. Para separar los archivos tendrías que obtener el tamaño de cada archivo y moverte a través de él... te recomiendo que sigas usando la clase TFileStream.

Espero haberte ayudado.

Salu2

[2-D@monic]

Ok Khronos......... voy a ir probando compilando.......