TJPEGImage глючит

[BlackStar]

  Добрый день!

  У меня возникла проблема с TJPEGImage. Я делаю вот что:

1. Сохраняю картинку из канвы в BMP файл на диск.
2. С помощью специальной программы (таковы уж условия заказчика) конвертирую BMP в JPG и результат снова открываю с помощью TJPEGImage.
  Но при выводе на экран картинка превращается в набор черно-белых полосок    Что характерно, любой просмотровщик открывает ее нормально! Но TJPEGImage не в состоянии это сделать.
  Если кто-то сталкивался с подобной проблемой или же знает в чем может быть причина, то я буду безумно благодарен за помощь!

Вот пример такой картинки (11Кб):
http://rapidshare.com/files/59461751/NewFile.jpg.html

Программа-конвертор покупная и 100% рабочая (называется 2JPEG), к тому же любые другие bmp-файлы конвертируются замечательо и правильно открываются. Проблема возникает только при конвертации битмапов, которые создает Делфи (типа, Bitmap.SaveToFile()) и анимированных гифов

[Алексей++]

HempStar, файл, который указан в ссылке, - нормальный, там мужик  в чёрной броне

[RXL]

HempStar, возможно дело в параметрах bmp: число цветов, сжатие и т.п.
Я сталкивался с неправильной работой программ с bmp 256 цветов - перекодировка в 24-битный цвет сняла все вопросы.

[Джон]

Лучше было бы выложить "неправильный" битмап.

[zubr]

Джон, так HempStar и выложил неправильный битмап. То есть, если его просматривать в Delphi с помощью класса TJpegImage, то получается фигня.
HempStar, я пробовал менять параметры TJpegImage - картинка чуть лучше стала если PixelFormat:=jf8Bit, но при этом цвета отображаются криво. Думаю, что в данном случае класс TJpegImage неприемлем.

[Джон]

Джон, так HempStar и выложил неправильный битмап.

Хде битмап??? Я только jpeg вижу. А эт я так понимаю уже после конвертирования "специальной программой".

[zubr]

Джон, ты правильно понимаешь. А битмап - это имеется в виду графический файл.

[Джон]

А что jpeg это не графический файл?

zubr, в силу утверждения

Проблема возникает только при конвертации битмапов, которые создает Делфи (типа, Bitmap.SaveToFile()) и анимированных гифов

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

В силу

Джон, так HempStar и выложил неправильный битмап.

могу только предположить, что браузер тупит и я линк не вижу?

[zubr]

Джон, там в линке надо с рапидшары скачать. В общем выкладываю архив с 2-мя файлами: jpg и bmp. jpg - это файл полученный после сжатия bmp-файла автором темы с помощью специальной программы 2JPEG, bmp - это файл, полученный при конвертации, с использованием борландского класса TJpegImage, из jpg-файла. Кстати в Delphi этот jpg виден так же криво как и полученный bmp.

[Джон]

zubr, я так понял, что проблема как раз с битмапом созданным в дельфи, дальнейшая конвертация тут скорее всего роли не играет. Ведь он говорит, что другие файлы работают нормально. Те я делаю заключение навскидку, что именно сохранение загадочной "канвы" в битмап и приводит к подобному эффкту. Я конечно с Дельфями знаком постольку-поскольку. Но битмап он и в Африке битмап. А заморочки с ним известны с доисторических времён. Вот и хотел взглянуть чего там Дельфи сохраняет. МОжет поэтому и jpeg-алгоритм не срабатыват.

[Алексей++]

канвой они вроде девайс контекст окна обзывают

[zubr]

Джон, попробую объяснить.
В Delphi есть классы TBitmap и TJpegImage.
Класс TBitmap, при инициализации создает новый битмап (CreateBitmap, CreateCompatibleBitmap). У него есть удобные свойства и методы: SaveToFile, SaveToStreame, SaveToClipboard, LoadFromFile, LoadFromStreame, LoadFromClipboard. Для связи с битовыми матрицами GDI Windows имеется свойство Handle. В общем для того чтобы отобразить bmp-файл на оконном элементе с помощью данного класса это можно сделать 2-мя строчками кода.
Класс TJpegImage внешне (оболочкой) похож на TBitmap, правда исходники на него, в отличие от TBitmap Borland не предоставляет. В общем данный класс позволяет загружать, сохранять, конвертировать jpeg-изображения. Для конвертации из bmp-файла в jpg-файл и обратно достаточно нескольких строчек кода:

Код:

var
  bmp:TBitmap;
  jpg:TJpegImage;
begin
 bmp:=TBitmap.Create;
 jpg:=TJpegImage.Create;
 bmp.LoadFromFile('C:\File.bmp');
 jpg.Assign(bmp);
 jpg.SaveToFile('C:\File.jpg');
 bmp.Assign(jpg);
 bmp.SaveToFile('C:\NewFile.bmp');
end;

Проблема мне видится в разных алгоритмах сжатия, используемых дельфийским классом TJpegImage и программой 2JPEG, используемой автором темы, для конвертации из bmp в jpeg. То есть если сделать как в коде выше, то все будет нормально и NewFile.bmp получится корректный. Но в данном случае получается следующее:

Код:

var
  bmp:TBitmap;
  jpg:TJpegImage;
begin
 //конвертация File.bmp->File.jpg программой 2JPEG
 bmp:=TBitmap.Create;
 jpg:=TJpegImage.Create;
 jpg.LoadFromFile('C:\File.jpg');
 bmp.Assign(jpg);
 bmp.SaveToFile('C:\NewFile.bmp');
end;

После такой конвертации NewFile.bmp уже кривой.
Кстати, сама IDE Delphi (имеется в виду редактор свойств для вставки графических файлов) файл сконвертированный программой 2JPEG отображает криво.
Алексей1153++, канвас может быть у окна, тогда действительно это контекст устройства. Канвас есть и у класса TBitmap, но это созданный совместимый контекст устройства.

[Джон]

Ситуация немного проясняется. Я не думаю, что Дельфи сама работает с битмапом - скорее всего используется враппер АПИ ф-ций. Тк сам битмап в порядке, и jpeg тоже. Если открыть его например в пайнте и сохранить как битмап, то всё в порядке. Другое дело работа с объектом TJPEGImage. Обычно под виндой  объекты типа IPicture или библиотека gdi+ используют установленные в системе кодеки - в основном с ИЕ, другими словами, что может ИЕ, то могу и я. Что делает с ним Дельфи - неясно. НО похоже, что проблема именно в этом объекте - в TJPEGImage. Тк как я теперь правильно понял если открыть jpeg-файл, то сразу видны полоски. Тогда и понятно, что они сохраняются в битмапе.

Очень может быть что программа 2JPEG использует новый алгоритм jpeg2000. А вобщето у jpeg куча настроек и как можно им сжимать не указывая эти параметры, одной только ф-ей Save - непонятно. Лучше воспользоваться готовыми библиотеками. Или посмотреть какие возможности есть у 2JPEG.

[zubr]

Джон, у TJPEGImage есть несколько свойств, позволяющих менять параметры jpeg перед сохранением, в частности CompressionQuality, позволяющуь менять степень сжатия, а также PixelFormat, позволяющий устанавливать 8 или 24 бита на пиксел. Кстати при 8-битном формате эта картинка получается без полосок, но цвета не соответствуют оригиналу.
Насчет нового алгоритма jpeg2000 - пробовал этот файл открывать в древней версии ACDSee - файл просматривается корректно. Ведь как-то ACDSee да и другие графические программы умеют правильно читать этот файл. Я, к сожалению, jpeg-формат не знаю (все порывался изучить, да все времени не хватает), а дело, думаю, скорее всего в различиях форматов заголовков файлов.

[Джон]

Мм... в данном случае речь не в сохранении, а в открытии файла сохранённого другой программой. Кстати ради интереса. Что происходит, если подсунуть TJPEGImage jpeg-и созданные например в Фотошопе или Паинте? Или какой другой программой?

[zubr]

Открывал файл NewFile.jpg в Паинте, Асдси, Microsoft foto editor, делал сохранить как, сохранял в jpg файл без каких то новых настроек (настройки по умолчанию), после этого TJPEGImage корректно с новым файлом работает.

[booratino]

Но при выводе на экран картинка превращается в набор черно-белых полосок    

BlackStar, 5 лет спустя.... ты победил его? мне тоже интересно как....