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.