[[seoane]]

Si los archivo tienen un tipo conocido, y el formato del propio archivo nos permite determinar su longitud podríamos hacer algo como lo que describí aquí. Pero aun tendríamos el problema de saber su nombre. La única solución es guardar el nombre y la longitud del archivo junto con el propio archivo.

Para empezar vamos a definir un record que nos dará información sobre cada unos de los archivos. Los campos Nombre y Longitud son imprescindibles, pero puedes añadir tantos como quieras: fechas, comentarios, etc. El nombre del archivo no debe superar los 255 caracteres, mas que suficiente ya que solo guardamos el nombre y no la ruta completa.

Código Delphi [-]
type
  TCabecera = packed record
    Nombre: String[255];
    Longitud: int64;
  end;

Por ahora solo vamos a implementar 2 métodos, Agregar y Extraer. Agregar Añade una archivo al archivo "compacto". "Archivo" es la ruta del archivo a agregar y Stream es el Stream al que queremos agregar el archivo. (Utilizamos streams en vez de usar directamente archivos, así podemos escoger si manipular los archivos en disco o en memoria)

Código Delphi [-]
procedure Agregar(Archivo: string; Stream: TStream);
var
  Cabecera: TCabecera;
  FileStream: TFileStream;
begin
  Stream.Seek(0,soFromEnd);
  FileStream:= TFileStream.Create(Archivo,fmOpenRead or fmShareDenyWrite);
  try
    FillChar(Cabecera,Sizeof(Cabecera),0);
    Cabecera.Nombre:= ExtractFileName(Archivo);
    Cabecera.Longitud:= FileStream.Size;
    Stream.Write(Cabecera,Sizeof(Cabecera));
    Stream.CopyFrom(FileStream,0);
  finally
    FileStream.Free;
  end;
end;

Por ejemplo para crear un archivo con tres imágenes jpeg

Código Delphi [-]
var
  Stream: TFileStream;
begin
  Stream:= TfileStream.Create('d:\prueba.concat',fmCreate or fmShareExclusive);
  try
    Agregar('d:\abc.jpg',Stream);
    Agregar('d:\cde.jpg',Stream);
    Agregar('d:\fgh.jpg',Stream);
  finally
    Stream.Free;
  end;
end;

Ahora necesitamos un método para extraer los archivos. Donde "Ruta" es el directorio donde se quieren extraer los archivos (debe existir). Los archivos se extraerán en el directorio indicado, utilizando su nombre original.

Código Delphi [-]
procedure Extraer(Ruta: string; Stream: TStream);
var
  Cabecera: TCabecera;
  FileStream: TFileStream;
begin
  if Copy(Ruta,Length(Ruta),1) <> '\' then
    Ruta:= Ruta + '\';
  Stream.Seek(0,soFromBeginning);
  while Stream.Position < Stream.Size do
  begin
    Stream.Read(Cabecera,Sizeof(Cabecera));
    with TFileStream.Create(Ruta + Cabecera.Nombre,fmCreate or fmShareExclusive) do
    try
      CopyFrom(Stream,Cabecera.Longitud);
    finally
      Free;
    end;
  end;
end;

Por ejemplo si queremos extraer los archivos del ejemplo anterior.

Código Delphi [-]
var
  Stream: TFileStream;
begin
  Stream:= TfileStream.Create('d:\prueba.concat',fmOpenRead or fmShareDenyWrite);
  try
    Extraer('d:\Temp',Stream);
  finally
    Stream.Free;
  end;
end;

Esto es solo el "esqueleto", así que se puede ampliar bastante. Podemos incluir información sobre directorios, una función para listar el contenido, o la posibilidad de extraer un solo archivo, etc, pero todo eso ya depende de lo que quieras hacer. Quizá sea mas rentable usar algún componente de compresión mas profesional, o ya puestos a hacer algo bien utilizar algún estándar como el de los archivos tar, y así hacer nuestra aplicación compatible con otras.