freepascal.ru

Проблема сохранение изображение из Timage
Доброго времени суток. У меня проблема следующего характера:
По данным из файлов строятся расчеты и строятся графики в компоненте Timage. Иногда графики получаются довольна большого размера (ниже приведен пример ошибки с размером графика 22562 Х 3507 точек) Строится без проблем но при сохранении изображения выдает ошибку «Access violation»
Прощу подсказать как решить данную проблему.
PS. Резать изображение на несколько частей прошу не предлагать необходимо сохранить целостность картинки.

Ты бы исходник выложил. А то никто не сможет помочь. С ходу, где-то что-то не то вызываешь.

Код: Выделить всё

procedure TForm2.MenuItem1Click(Sender: TObject);
begin
  if form2.SavePictureDialog1.Execute=true then begin
     if Form2.SavePictureDialog1.FilterIndex=1 then form2.Image1.Picture.PNG.SaveToFile(form2.SavePictureDialog1.FileName+'.png');
     if Form2.SavePictureDialog1.FilterIndex=2 then form2.Image1.Picture.Jpeg.SaveToFile(form2.SavePictureDialog1.FileName+'.jpg');
     if Form2.SavePictureDialog1.FilterIndex=3 then form2.Image1.Picture.SaveToFile(form2.SavePictureDialog1.FileName+'.bmp');
  end;
end;     


Изображение меньшего размера сохранятся без проблем. Скорей всего проблема с переполнением оперативки но каким способом ее разгрузить перед сохранением изображения.

Проблема скорее всего в TImage, он не предназначен для работы с большими изображениями. Посмотрите сторонние компоненты.

Рекомендую тебе посмотреть не в сторону сторонних компонентов, а в сторону FPC'шной библиотеки FPImage. Документации поменьще, но тут тебе и скорость, и полноценная поддержка альфа канала, и более 8 бит на канал... разве что по глюкам из лазарёвых компонентов по работе с растром. Для вывода изображения на экран можно использовать лазарёвый имидж.

И в момент сохранения посмотрите сколько это чудо будет жрать оперативки