Creación de tipos de archivo

[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.

[Tortuguica]

Pues muchas gracias a todos. ¡Qué máquinas sois! :-) Un saludo.

[[escafandra]]

Empezado por ecfisa

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

Si, La cabecera debe empezar con un WORD que contiene el tamaño de la misma. Inmediatamente un DWORD que contiene el tamaño del archivo y seguidamente un array de CHAR que contiene el nombre. Detras viene el archivo binario. Esto se repita por cada archivo.

Para recuperarlo leemos le primer WORD (2 Bytes) y tras elle leemos la cantidad de Bytes del resto de esa cabecera. El primer DWORD (4 Bytes) sabemos que es el tamaño del archivo, Sabemos la longitud del FileName restando el tamaño de la cabecera menos 6. Ya solo queda leer el archivo cuyo tamaño conocemos... Repetimos...

Si el tamaño de algún archivo es mayor de 4Gb podemos guardarlo en in int64 en vez de en un DWORD.
Podemos simplificarlo algo si reservamos un espacio fijo en la cabecera para el nombre de archivo, en ese caso sobra guardar el tamaño de la cabecera pues siempre será el mismo y conocido. Pero si queremos guardar el Path entero este ultimo sistema desaprovecha espacio.

No tengo un delphi a mano, no puedo realizar un ejemplo, pero deciros que algo similar ya implementé en C hace tiempo.

Saludos.


PD me voy de vacaciones y no podré seguir el hilo...

[ecfisa]

Empezado por escafandra

Si, La cabecera debe empezar con un WORD que contiene el tamaño de la misma. Inmediatamente un DWORD que contiene el tamaño del archivo y seguidamente un array de CHAR que contiene el nombre. Detras viene el archivo binario. Esto se repita por cada archivo.

Hola.

Buenisimo, no se me había ocurrido...

Gracias y que disfrutes el descanso.

[Tortuguica]

Gracias, escafandra y ecfisa. Perdón por mi escueto agradecimiento de antes, pero venía de la playa y estaba rendido :-/ Voy a ver cómo me sale la propuesta de escafandra. Un saludo a los dos.