Работа с файловыи потоком, поиск порченого байта

[XE5]

Привет всем. Пишу программку по редактированию определённого типа ресурсных файлов. Данный тип содержит изображения, записанные в единый файл последовательно. Моя задача, найти позиции начала, и конца картинки, и заменить имеющуюся картинку своей. Не знаю, можно ли вырезать середину из потока, я поступил следующим образом. Инициализировал новый поток, записал в него данные из исходного потока до начала заменяемого файла, далее записал сам файл, и в конец записал кусок исходного потока после заменяемого файла. Вот основной код подмены файла.

procedure TForm1.SetFile(Node: TTreeNode; FileName: string);
var
  EndStream: TMemoryStream;
  BufStream: TFileStream;
  num, PosStart: Int64;
begin
  num:= Node.Index;
  PosStart := AResources[Node.Index].StartPosition;

  EndStream := TMemoryStream.Create;
  AMemoryStream.Position := 0;
  EndStream.CopyFrom(AMemoryStream, PosStart);

  BufStream := TFileStream.Create(FileName, fmOpenRead);
  EndStream.CopyFrom(BufStream, BufStream.Size);

  AMemoryStream.Position := AResources[num].EndPosition;
  EndStream.CopyFrom(AMemoryStream, AMemoryStream.Size - AResources[num].EndPosition);
  EndStream.SaveToFile('c:/res');

  Node.SelectedIndex := 1;
  Node.ImageIndex := 1;
end;

Итог. Код работает, но неверно записывается один байт (или два?) состыковывающий начальный блок исходного потока, и вставляемый файл (конец файла, как не странно нормально состыковался с конечным блоком исходного потока). Причём общая длина конечного файла именно такая, какая и должна быть. Собственно вопрос. Почему произошёл сбой в этом байте? По идее напутал с позициями, но не могу отыскать место ошибки. И второй вопрос, есть ли методика замены байтов непосредственно в исходном потоке зная начальную и конечную позиции заменяемого файла? На картинке сравнение правильно переписанного файла, и файла переписанного программой.

[Аватар]

Не видно по этому коду в чем проблема и есть ли она вообще. Код должен вполне корректно заменить участок длиной EndPosition-StartPosition на данные длиной BufStream.Size начиная с позиции StartPosition. Если EndPosition-StartPosition=BufStream.Size, то можно вполне обойтись копированием целиком AMemoryStream в EndStream и одним CopyFrom для замены нужного участка

[XE5]

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

Если EndPosition-StartPosition=BufStream.Size

Равенство неверно. Этот промежуток занят ресурсом, который мне нужно заменить. Новый ресурс естественно не обязан совпадать размерами с заменяемым ресурсом. Плохо что нет ни каких мыслей о причинах ошибки. Лично я просидел над ней часов шесть, так и не смог её найти. Такое ощущение, что этот байт какой-то флаг. Куда копать, не понимаю. Привожу код процедуры, которая ищет позиции PNG картинок в ресурсе. Может код наведёт на какие-то мысли.

procedure TForm1.ParseFile;
var
  p: pAnsiChar;
  i64, StartPosition, EndPosition: int64;
begin
  GetMem(p, 3);
  StartPosition := - 1;
  Endposition := - 1;
  i64 := 0;
  while AMemoryStream.Position < AMemoryStream.Size do
    begin
      AMemoryStream.Position := i64;
      AMemoryStream.Read(p^, 3);
      if p = 'PNG' then
        StartPosition := i64 - 1;
      if p = 'END' then
        begin
          EndPosition := i64 + 7;
          if StartPosition > - 1 then
            AddToArray(StartPosition, EndPosition); // дабавление в массив позиций стартовой и конечной позиции PNG
            StartPosition := - 1;
            EndPosition := -1;
        end;
      inc(i64);
    end; 
end;

[Аватар]

1. Вопрос - зачем стартовая позиция на 1 уменьшается и финишная на 7 увеличивается?
2. Текст 'PNG' и 'END' можно искать с помощью PosEx в StringStream.DataString. В StringStream скопировать тем же CopyFrom из AMemoryStream. Возможно быстрей, не проверял. Но прозрачней точно

[XE5]

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

1. Вопрос - зачем стартовая позиция на 1 уменьшается и финишная на 7 увеличивается?

Любой PNG файл в хексе откройте, увидите этот стартовый байт перед PNG. По финишу 3 байта слова END плюс опять же какие-то сервисные байты, которые есть в любом PNG, сдвинув любую из позиций влево/вправо я получаю полную рассинхронизацию байтов.

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

2. Текст 'PNG' и 'END' можно искать с помощью PosEx в StringStream.DataString. В StringStream скопировать тем же CopyFrom из AMemoryStream. Возможно быстрей, не проверял.

Попробую, но проблему это не решит. По позициям всё чётко. Меняется какой-то байт именно в точке слейки (меняется, а не пропадает! Size на выходе тот что нужен), и не понимаю, по какой причине. Сравнивал с исходными файлами аналогичной программы, всё то же самое. Только там файл вначале полностью разбирался на фрагменты, а потом заново собирался этой же методикой, а я пытаюсь внести изменение без полной пересборки.

[XE5]

Всё, нашёл ошибку. Точнее даже не ошибку, а недочёт. Эти два байта это контрольная сумма PNG. Поэтому только в одной точке файла и было несовпадение. Вопрос решён, тема закрыта.