Использование JPEG в Delphi 7

[Aslan]

Добрый день!
Возникают поблемы при использовании JPEG модуля в Delphi 7.

1. Если высота картинки 1 пиксель тогда может возникать ошибка "Scan line index out of range.". Как с этим боротся?
Например:
var
JPEGImage1 : TJPEGImage;
BMP : TBitmap;
...
JPEGImage1.LoadFromFile(S);
...
BMP.Assign(JPEGImage1); { сбой при размере картинки высотой 1 пиксель}


2. Как можно открыть JPEG с сжатием CMYK, а не RGB?

[mutabor]

if JPEGImage1.Height > 1 then ...
//что ты увидишь в картинке высотой в 1 пиксель?
//если обязательно должен быть битмап, заполни битмап линией в один пиксель любого цвета

[Aslan]

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

if JPEGImage1.Height > 1 then ...
//что ты увидишь в картинке высотой в 1 пиксель?
//если обязательно должен быть битмап, заполни битмап линией в один пиксель любого цвета

Эта ошибка проявляется только в JPEG (т. е. TJPEGImage), а с TBitmap никакой ошибки нет! Размер картинки нет возможности изменить, размеры Height и Width в TJPEGImage только для чтения Где взять альтернативу jpeg.pas Delphi 7?

[mutabor]

Поищи компоненты графические.

var
JPEGImage1 : TJPEGImage;
BMP : TBitmap;
...
JPEGImage1.LoadFromFile(S);
...
BMP.Assign(JPEGImage1); { сбой при размере картинки высотой 1 пиксель}

тут указано что сбой при конвертации в bmp, не при загрузке из файла, или все таки при загрузке?

В первом посте имел в виду следуещее: если сбой именно в этой строке BMP.Assign(JPEGImage1); то какая разница какого цвета будет полоса из одного пикселя. Это можно обойти:
if JPEGImage1.Height > 1 then BMP.Assign(JPEGImage1) else
begin
bmp.width:=jpegimage1.width;
bmp.Height :=jpegimage1.Height;
bmp.canvas.lineto(jpegimage1.width, 0);
end;

[Aslan]

Это конечно может и выход. Но это не мой стиль. Моя программа используется для работы с JPEG изображениями (что-то типа ACDSee или XnViewer), поэтому для меня не приемлемо. Ошибка также проявляется при таком коде (полноэкранный режим):

Form2.Canvas.StretchDraw(Rect(X, Y, W + X, H + Y), JPEGImage1);

в процедуре FormPaint(Sender: TObject);

[Alex21]

Может это поможет:
http://programmersforum.ru/showthread.php?t=5436

[mutabor]

Ошибка также проявляется при таком коде (полноэкранный режим):

Form2.Canvas.StretchDraw(Rect(X, Y, W + X, H + Y), JPEGImage1);

Какая ошибка? Когда?

[mutabor]

у д а л е н о

[Aslan]

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

Какая ошибка? Когда?

После загрузки JPEG, в процедуре OnPaint формы

[mutabor]

Не зная какая ошибка трудно что-то сказать. Вообще OnPaint может выполняться довольно часто, и вешать на нее такие функции как StretchDraw я бы не стал. Лучше иметь буферный битмап с масштабированной картинкой и выводить его обычным Draw. А картинку масштабировать лишь по команде пользователя.

Но в любом случае это приведет лишь к заторможенности, а не к ошибке.
Попробуй для проверки просто замени jpeg на битмап. Будет возникать или нет.