загрузка рисунка в Image

[-Jack-]

Всем доброго времени суток. Задача такая:
Есть рисунок формата *.png. В нём не хватает в начале нескольких байт. Нужно не перезаписывая файл его загрузить в Image.

Каким образом это можно реализовать ?

[phomm]

Прочитайте тему потоки ( Streams) в любом адекватном мануале/учебнике
Общий подход примерно такой:
Создать поток размером с файл плюс те недостающие байты, данные из файла (можно для чтения файла задействовать второй поток) записать в поток по смещению на то количество байт, сколько не хватает (т.е. установить нужную позицию смещения и писать). Выставить позицию в 0, дописать нужные байты, я надеюсь, Вы их знаете (иначе вся затея бесполезна ). Опять выставить позицию в 0 и вызвать у TImage метод LoadFromStream , передавая ему Ваш поток.

[-Jack-]

Начал с малого ) Загрузил картинку в поток, и через TPNGObject вывел в TImage
Да, кстати, пользуюсь Delphi7

var
  F : TStream;
  png: TPNGObject;
begin
  F := TFileStream.Create('files\img.png', fmOpenRead);
  png := TPNGObject.Create;
  png.LoadFromStream(F);
  Image1.Picture.Assign(png);
  png.free;
  F.Free;

Но при попытке вывести картинку выдается ошибка "Access violation at address"

Так, всё же, в чем может быть ошибка ? Почему картинка не выводится ?

[Stilet]

Хм... Наверное потому что сам Image1.Picture не создан... Это тебе скажет только пошаговка.
Я бы на твоем месте выводит на канву PaintBox-а, а не в Image.

[-Jack-]

С этим разобрался ... всё же рисунок вывел в TImage ... С TPaintBox пока ещё не разобрался

var
  F : TStream;
  png: TPNGObject;
begin
  F := TFileStream.Create('files\img.png', fmOpenRead);
  png := TPNGObject.Create;
  png.LoadFromStream(F);
  Image1.Canvas.Draw(0,0,png);
  png.free;
  F.Free;

Решил усложнить задачку, и попробовать убрать рисунки в ресурс (*.res).

Распишу подробно, что и как делал, видимо где то что-то сделал не так
Файл img.re:

img RCDATA "w4p.png"

Файл переместил на brcc32.exe, создался img.RES, его переместил в папку с проектом.

В самом проекте дописал:

...
{$R img.RES}
...
var
  png: TPNGObject;
  F : TStream;
  Paint: TPaintBox;
begin
  F:= TResourceStream.Create(HInstance, 'img', RT_RCDATA);
  png := TPNGObject.Create;
  png.LoadFromStream(F);
  Image1.Canvas.Draw(0,0,png);
  Paint.Canvas.
  png.free;
  F.Free;
end;

И опять же ошибка Access violation at address...

[Stilet]

И опять же ошибка

Опять же на какой строке? Почему не пользуешся отладчиком?

Paint.Canvas.

Что это?

[-Jack-]

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

Опять же на какой строке? Почему не пользуешся отладчиком?

ссылается на pngimage (ImageData[i] := pRGBQuad(@ImageSource[i2 * 3])^)

          {Optmize when we donґt have transparency}
          if (AlphaSource[i2] <> 0) then
            if (AlphaSource[i2] = 255) then
              ImageData[i] := pRGBQuad(@ImageSource[i2 * 3])^
            else
              with ImageData[i] do
              begin
                rgbRed := (255+ImageSource[2+i2*3] * AlphaSource[i2] + rgbRed *
                  (not AlphaSource[i2])) shr 8;
                rgbGreen := (255+ImageSource[1+i2*3] * AlphaSource[i2] +
                  rgbGreen * (not AlphaSource[i2])) shr 8;
                rgbBlue := (255+ImageSource[i2*3] * AlphaSource[i2] + rgbBlue *
                 (not AlphaSource[i2])) shr 8;
            end;
          end;

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

Что это?

Хм ... неудачно скопировал код ...

[Stilet]

pRGBQuad(@ImageSource[i2 * 3])^)

А это что? Каков смысл сей строки?
Т.е. я пытаюсь понять что эта строка делает, ибо уверен что нужно прописывать проверку, что возвращает @ImageSource[i2 * 3], не вылазит ли за пределы массива.

[chertovich]

Сообщение от -Jack-

Всем доброго времени суток. Задача такая:
Есть рисунок формата *.png. В нём не хватает в начале нескольких байт. Нужно не перезаписывая файл его загрузить в Image.

Каким образом это можно реализовать ?

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

[-Jack-]

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

А это что? Каков смысл сей строки?
Т.е. я пытаюсь понять что эта строка делает, ибо уверен что нужно прописывать проверку, что возвращает @ImageSource[i2 * 3], не вылазит ли за пределы массива.

строчки из компонента ... с такими дебрями мне пока не разобраться )))

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

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

да сейчас с целым файлом разобраться бы ...