Паковка файлов многие → один

[mutabor]

Если размер не критичен, я бы создал заголовок к этому файлу, и в нем вся инфа - сколько их и отступы от начала. А если критичен, читай выше про зип. Можно совместить, запаковать в зип уже в своем формате. Можно 7-Zip заюзать, длл-ку при установке закинуть туда же, куда Уткин предложил, если не хочешь чтобы она в папке с программой была.

[Alex Cones]

Lazarus с dll не очень дружит. Часто срывается в AV без видимых причин.

[Пепел Феникса]

кхм...все АПИ в длл же
главное заголовочник верный написать

[Alex Cones]

Может раз такое дело все же проще без всякой архивации свой луна-парк построить?

[Пепел Феникса]

можно...никто не запрещает
контейнер простой

[Alex Cones]

Нууу... Первый пост как раз был про то, как правильно организовать контейнер для файлов.

[GunSmoker]

Сообщение от Alex Cones

палевно

Эээээ.... "палевно"? Откуда вдруг всплыло это "палевно"? Защиту пишем?

Кроме того, вам необязательно использовать программу-распаковщик с кучей функций. Достаточно взять любой вариант распаковщика в виде DLL, компонента, модуля или ещё чего.

P.S. Лично я предпочитаю использовать UnRar.dll (при прочих равных условиях).

Если не хотите архив - можно записать в файл друг за другом. А чтобы отличать границы файлов - запишите в начало файла заголовок.

Например:

function FilesToFile(const AFiles: array of String; const AFileName: String);
type
  THeader = packed record
    Signature: Cardinal;
    Count: Cardinal;
  end;
const
  Signature = { придумайте сами в 4 байта };
var
  Src, Dst: TFileStream;
  Sizes: array of Int64;
  SavedPos: Int64;
  X: Integer;
begin
  Dst := TFileStream.Create(AFileName, fmCreate or fmShareExclusive);
  try
    Header.Signature := Signature;
    Header.Count := Length(AFiles);

    Dst.WriteBuffer(Header, SizeOf(Header));

    SavedPos := Dst.Position;

    SetLength(Sizes, Length(AFiles));
    for X := 0 to High(AFiles) do
    begin
      Sizes[X] := 0;
      Dst.WriteBuffer(Sizes[X], SizeOf(Sizes[X]));
    end;

    for X := 0 to High(AFiles) do
    begin
      Src := TFileStream.Create(AFiles[X], fmOpenRead or fmShareDenyWrite);
      try
        Sizes[X] := Src.Size;
        Dst.CopyFrom(Src, Src.Size);
      finally
        FreeAndNil(Src);
      end;
    end;

    Dst.Position := SavedPos;
    for X := 0 to High(AFiles) do
      Dst.WriteBuffer(Sizes[X], SizeOf(Sizes[X]));

  finally
    FreeAndNil(Dst);
  end;
end;

[DomiNick]

Можно как у меня было (просто слепить k-файлов вместе):

<можно заголовок какой-нибудь на всякий случай><размер области №0><область №0><размер области №1><область №1> . . . <размер области №k-1><область №k-1>

[Utkin]

Желательно таблицу вынести в начало файла или вообще хранить отдельно. Это ускорит доступ к файлам в контейнере.

[Sanprof]

я когда писал свой архиватор (тоже не устраивало множество мелких файлов размером от 100 байт до 20 Кбайт) приходилось пихать их в один файл с еще дополнительным архивированием (ZLib), сразу получил файл размером меньшим в 3 раза от суммы размера всех мелких. Алгоритм формирования такого файла придумывал свой, что то типа
1. заголовок (Имя архива, дата создания и тп)
2. Таблица (длинна имени файла, Имя файла, длинна файла)
3. Данные (здесь в потоке архивация и склеивание с главным файлом).
сложного особо ничего в этом нету.