Ошибка при распаковки

[Volkogriz]

Доброе время суток!
Помогите пожалуйста.
Проблема такая, при сжатие в архив всё отлично но при распаковке ошибка.
помогите исправить пожалуйста.
Файлы программы:
Архив программы
Изображение ошибок:
Скрин ошибки
Позицыя в коде
Заранее благодарен!
С уважением,
Volkogriz!

[northener]

Позицыя в коде

<offtop>
Напомнило
Но не рисунок заставил всю школу покатываться со смеху, а пояснительная
надпись под ним: Юлыстрация к трогедие "Борис Гадунв".
Горбушка умудрился в пяти словах сделать семь ошибок и здорово
поплатился.
</offtop>

[Volkogriz]

Я понимаю что заострять внимание на ошибки весело.
Но конкретно по вопросу сказать вы помоему и не попытались.
Я просил помочь не с орфографией!
С уважением,
Volkogriz!

[northener]

Но конкретно по вопросу сказать вы помоему и не попытались.

Увы. Пока не нашел свободного времени изучить эти исходники. Будет время, посмотрю.
P.S. А на шутку не обижайся.

[Volkogriz]

Спасибо!
Подожду, пока сам попытаюсь но пока безуспешно)

[doktor255]

Методику упаковки, распаковки кто будет описывать?

[Stilet]

Хм... Здается я догадываюсь в чем проблема...
Ты работаешь с сжатим контентом как будто это обычный массив байт, но метод сжатия е позволит тебе получить конкретные наборы байтов без распаковки всего стрима. Поэтому рекомендую завести другой стрим, куда распакуется весь контент:

function UnPackDir(ArcName, Path: string; OnWork: TNotifyEvent = nil): byte;
var
  fs,ts: TFileStream;
  ds:    TDecompressionStream;
  ms:TMemoryStream;
  s:     string;
  ln:    byte;
  sz:    int64;
begin
  SaveLog:= TStringList.Create;
  SaveLog.Add(Rus(DateToStr(Date)));
  if Path[Length(Path)]<>'\' then Path := Path + '\';
  result := ERR_OK;
  try
    fs := TFileStream.Create(ArcName, fmOpenRead or fmShareDenyWrite);
    ds := TDecompressionStream.Create(fs);
    ms:=TMemoryStream.create;
    ms.CopyFrom(ds,ds.size);
  except
    result := ERR_NO_ARCHIVE;
    Exit;
  end;

И уже с ms работать.
Еще раз напомню: Декомпрессор пока все не разожмет не сможет нормально предоставить из сжатого потока информацию.