Creación de tipos de archivo

[Tortuguica]

Hola a todos: En primer lugar, quiero pedir disculpas por si no estoy en el foro correcto. Y en segundo lugar, os explico cuál es mi problema: me gustaría compactar tres archivos (txt, rtf, ini) en un único archivo, con una extensión nueva, y, después, poder acceder a los archivos que contiene, claro. ¿Puede alguien darme una idea de por dónde empezar? He buscado en Google y no he encontrado nada. Gracias por adelantado.

[Tortuguica]

Bueno, antes he olvidado preguntar si es posible hacer eso. Gracias de nuevo.

[Casimiro Noteví]

Puedes comprimirlo en un zip y extraerlo cuando lo vayas a necesitar, supongo que será eso lo que quieres, ¿no?

[ecfisa]

Hola Tortuguica.

Si lo creo posible.

Es sencillo concatenar los tres archivos en un único archivo si se convierten todos a formato texto por ejemplo. Lo que se complica es la recuperación en el formato adecuado.
Los archivos .txt e .ini podrías leerlos y trabajar directamente de archivo a memoria, pero con el .rtf tendrías que guardarlo en un archivo temporal para luego cargarlo con un RichEdit por ejemplo.

Supongamos que el orden de agrupación es: .txt + .ini + .rtf
Conociéndo con antelación la longitud en bytes (caracteres) de cada uno sería cosa de leer los N caracteres del txt, los N del .ini y los restantes corresponderán al .rtf

Pero no sé si es eso lo que buscas hacer...

Saludos.

[[escafandra]]

Basta con escribir una cabecera delante de cada archivo. Luego se escriben todos uno detrás de otro precedidos de su cabecera.
Su cabecera puede ser una estructura que contenga el tamaño de la misma, nombre del archivo y su longitud.

Con esta estructura se pueden extraer los archivos uno detrás de otro sin importar el orden, tamaño, tipo ni número de los mismos.


Saludos.

[ecfisa]

Hola escafandra.

Yo había pensado en eso, es más había probado este código y funciona bién:

Código Delphi [-]
function FileLength(const NomArch:String): DWord;
var
  Hndw: integer;
begin
  Hndw:= FileOpen(NomArch, 0);
  try
    Result:= (GetFileSize(Hndw, nil));
  finally
    FileClose(Hndw);
  end;
end;

procedure Concatenar(const FileNames: array of string);
var
  i: Integer;
  Ori, Des: TextFile;
  s: string;
  Len: DWord;
begin
  AssignFile(Des,'C:\TODOS.TXT');
  Rewrite(Des);
  for i:=  High(FileNames) downto Low(FileNames) do
  begin
    Len:= FileLength(FileNames[i]);
    AssignFile(Ori, FileNames[i]);
    Reset(Ori);
    Writeln(Des,FileNames[i]+':'+IntToStr(Len));
    while not eof(Ori) do
    begin
      ReadLn(Ori,s);
      Writeln(Des,s);
    end;
    Flush(Des);
    CloseFile(Ori);
  end;
  CloseFile(Des);
end;

Pero luego me puse a pensar, ¿ Como encuentro despues la cabecera si un archivo contiene el identificador que uso para distinguirla ?
Es decir como hacer para usar un identificador que sea diferente a cualquier combinación de caracteres posibles dentro de un archivo.
Por eso luego pensé en obtener previamente el tamaño en bytes.

¿ Se te ocurre algún modo ? Por que de esa forma es muchísimo más simple.

Un saludo.