Распаковщик на Delphi

[SDK]

Сообщение от Аватар

Такого примера нет в природе. И отсутствие смещения как такового не значит, что его нельзя вычислить, зная устройство файла. Вычислите смещение 1-го. Тогда скорее всего прибавив к нему длину первого получите смещение 2-го и т.д. Но повторяю - скорее всего, т.к. не знаю устройство файла

Ну тогда еще и размер файла придется высчитывать так как размеры даются с заголовком, и предыдущими файлами, в этом и проблема.
В бщем размер каждого файла дается как бы так сказать (от нулевой точки).

[evg_m]

дело в том что известен только размер файлов причем вместе с заголовком и предыдущим файлом.

может все-таки известна пара (начало-конец)

заголовок =начало первого
файл1 = конец первого =начало второго
файл2 =конец второго =начало второго
файл3 =конец третьего =начало четвертого
.....
файл последний =конец предпоследнего = ??? (разумно предположить = общий объем архива)

M1 (...F1...) M2 (...F2...) M3 (...F3...) M4 (...F4...) ???

F1 =(M1, M2)
F2 =(M2, M3)
F3 =(M3, M4)
F4 =(M4, ???)

[SDK]

Сообщение от evg_m

может все-таки известна пара (начало-конец)

ну в общем со смещением оказалось все просто, как то сразу не подумал, смещение первого файла будет конец заголовка, смещение второго файла будет конец первого, и т.д ( я по ссылке попадаю в нужный offset, далее прибавляю размер заголовка, получаю offset первого файла и т.д), я только не пойму как программно высчитать настоящий размер файла, можно конечно написать для первого файла (размер файла1 минус заголовок), для второго файла (размер файла2 минус размер файла1 и минус заголовок и т.д) Но если будет 100 или более файлов этож сколько писать, как это сделать по простому?

[SDK]

Вот еще раз попробую объяснить структуру на примере трех файлов


------------------------------------------------------------------------------------------------------------------------------------

------------------------------------------------------------------------------------------------------------------------------------

------------------------------------------------------------------------------------------------------------------------------------

[XE5]

SDK Если известно, что где находится, в чём собственно загвоздка? И не понимаю зачем что-то от чего-то отнимать? Ставь позицию memorystream в начало файла, вычитывай его по длине, далее с оконечной позиции вычитывай следующий файл, и т.д.

[SDK]

Сообщение от XE5

SDK Если известно, что где находится, в чём собственно загвоздка? И не понимаю зачем что-то от чего-то отнимать? Ставь позицию memorystream в начало файла, вычитывай его по длине, далее с оконечной позиции вычитывай следующий файл, и т.д.

Дело в том что я никак не пойму как высчитать размер.

[BDA]

Даны числа "a", "b", "c", "d", где "a" - размер заголовка, "b", "c", "d" - размеры файлов, записанные в заголовке, тогда реальные размеры файлов: "b-a", "c-b", "d-c".

[XE5]

Сообщение от SDK

Дело в том что я никак не пойму как высчитать размер.

Если тебе известно, где начинается каждый следующий файл, и начало следующего файла идёт сразу после предыдущего, то размер файла равен позиции начала следующего файла минус позиции начала предыдущего файла. Считай.

[SDK]

Всем спасибо за помощь распаковщик написал, теперь обратная проблема, написать запаковщик.
вот процедура распаковки, может кому пригодится

Z:=0;

Seek(RFile, FOff + 12);
For I:=1 To TF Do
Begin
Z:=Z+1;
Q2:=FloatToStr(Z);
FPos:=FilePos(RFile);

BlockRead(RFile, Offs, 4); // смещение файла }
BlockRead(RFile, FSz, 4); // размер файла }
FPos:=FilePos(RFile);
FSz := FSz - Offs;
FOffs := FOff + 12;
Label4.Caption := inttostr(FSz);
Seek(RFile, Offs + FOffs);
GetMem(P, FSz);
BlockRead(RFile, P^, FSz);
AssignFile(F, '1_' + Q2);
ReWrite(F, 1);
BlockWrite(F, P^, FSz);
CloseFile(F);
FreeMem(P, FSz);

Seek(RFile, FPos-4);

end;

[BDA]

procedure TForm1.encodeClick(Sender: TObject);
var
  output_file, input_file: TFileStream;
  st: TStringList;
  header_info: array of DWORD;
  i: integer;
begin
  st := TStringList.Create;
  st.Add('1.png');
  st.Add('2.png');
  st.Add('3.jpg');
  output_file := TFileStream.Create('output.bin', fmCreate);
  SetLength(header_info, st.Count + 1);
  header_info[0] := length(header_info) * SizeOf(header_info[0]);
  output_file.Write(header_info[0], header_info[0]);
  for i := 0 to st.count - 1 do
  begin
    input_file := TFileStream.Create(st[i], fmOpenRead);
    output_file.CopyFrom(input_file, input_file.Size);
    header_info[i + 1] := output_file.Size;
    input_file.Free;
  end;
  output_file.Seek(0, soBeginning);
  output_file.Write(header_info[0], header_info[0]);
  SetLength(header_info, 0);
  output_file.Free;
  st.Free;
end;

procedure TForm1.decodeClick(Sender: TObject);
var
  output_file, input_file: TFileStream;
  header_info: array of DWORD;
  tmp: DWORD;
  i, count: integer;
begin
  input_file := TFileStream.Create('input.bin', fmOpenRead);
  input_file.read(tmp, SizeOf(tmp));
  count := tmp div SizeOf(tmp) - 1;
  SetLength(header_info, count + 1);
  header_info[0] := tmp;
  input_file.read(header_info[1], count * SizeOf(header_info[0]));
  for i := 1 to count do
  begin
    output_file := TFileStream.Create(IntToStr(i) + '.bin', fmCreate or fmOpenWrite);
    output_file.CopyFrom(input_file, header_info[i] - header_info[i - 1]);
    output_file.Free;
  end;
  SetLength(header_info, 0);
  input_file.Free;
end;