Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Ошибка TBitmap.LoadFromResource в Win98 Версия KOL >=2.04 [Delphi, Windows]


Сергей Близнюков ©   (2005-02-22 10:16:00) 

Обнаружена ошибка в TBitmap.LoadFromResource в Win98 Версия KOL >=2.04

При загрузке Bitmap'а более 16 цветов (конкретно 256 цветов) из ресурса под Win98 программа вываливается в даун полностью!
Runtime Error 216 at....
Исследования в отладчике показали, что ошибка возникает
в procedure TBitmap.SetHandle(const Value: HBitmap);
в строке
   Move( Dib.dsBitfields, fDIBHeader.bmiColors, 256 * 4 );

Очень похоже, что PrepareBitmapHeader зависит от ОС.

Workarround: bmp перегнали в 16 цветов, всё работает как часы.


ECM   (2005-02-22 13:13:00) [1]

Исследования в отладчике показали, что ошибка возникает
в procedure TBitmap.SetHandle(const Value: HBitmap);
в строке
  Move( Dib.dsBitfields, fDIBHeader.bmiColors, 256 * 4 );


М-дя. Похоже опечатка вышла...
Попробуй заменить эту строку на следующую:
  Move( Dib.dsBitfields, fDIBHeader.bmiColors, 3 * SizeOf(DWORD) );

(сам не проверял - надо чтобы автор разобрался :)


Сергей Близнюков   (2005-02-22 10:52:00) [2]


> Workarround: bmp перегнали в 16 цветов, всё работает как
> часы.


А вот - фигушки!!!! Не помогает!!!

Будем пытаться выкрутиться, используя код KOL версии до 2.03
Кстати, нашёл момент возникновения глюка ;-)) :

>Новости 21 декабря 2004

>Новости KOL и MCK (v2.04):
>KOL: присваивание свойства TBitmapl.Handle исправлено
>для случая, когда присваивается дескриптор очень
>большого растрового изображения (ранее, это могло
>приводить к потере DIB-данных в результате промежуточных
>преобразований, и присваиванию большого черного прямоугольника).


>


Наверх

Титульная страница Поиск, карта сайта Написать письмо