Header

Archive

After uncompressing the data using the lzAri algorithm you will have an archive file containing the actual files.

The archive is a simple format consisting of file information followed by the actual data and then some padding repeated for as many files as there are:

The padding following file data is calculated using the following algorithm:

padding := roundUp(clump.Position + 8, 16) – 8 – clump.Position;
(algo courtesy of Ross Ridge).

The full code creating the archive in the ARMax DLL is:

procedure TMaxSave.buildClump;
var
    aFile : PFileDetails;
    a, b : integer;
    fileDetails : TClumpFileDetails;
    padding : integer;
    paddingdata : array of char;
    padd : byte;
begin
    clump.Clear;
    clump.position := 0;
    padd := $0;
    for a := 0 to files.Count - 1 do begin
        aFile := files.Items[a];
        fileDetails.name := aFile^.name;
        fileDetails.size := aFile^.data.Size;
        aFile^.data.Position := 0;
        clump.Write(fileDetails, sizeof(fileDetails));
        clump.CopyFrom(aFile^.data, fileDetails.size);
        padding := roundUp(clump.Position + 8, 16) - 8 - clump.Position;
        for b := 1 to padding do begin
            clump.Write(padd, sizeOf(padd));
        end;
    end;
end;