TBitmap. Ошибка при загрузке изображения 640х480

[xrob]

Попался на неприятный баг, с которым раньше не сталкивался...
При попытке загрузить в битмап (TBitmap.LoadFromFile) изображение 640х480
вылетает ошибка "Stream read error".
Причем именно при 640х480, любые другие разрешения (например 641х480)
загружаются без проблем.
BMP создавался с помощью фотошопа.
Попробовал создать через Paint - загружается 640х480 о_О

кто-нибудь с этим сталкивался?
чем 640х480 принципиально отличается от 640х481?

кстати, размер файла:
фотошоп 921*656 байт
Pain 921*654 байт

Как быть?

[Stilet]

Попробовал создать через Paint - загружается 640х480 о_О

Значит дело не в размере, а в сжатии битмапа. Пересохрани в jpeg и загружай его.

[xrob]

Значит дело в сжатии битмапа

мир рухнул =(
а я всю жизнь думал что битмап, он на то и битмап, потому что не сжимается...

Пересохрани в jpeg и загружай его

Огромное спасибо!

Но мне кажется есть решение проще и изящнее, чем вы предложили:
надо написать какой-нибудь OLE сервер, который бы каждый раз запускал Paint,
открывал файл, пересохранял его, а лучше прямо из пеинта рисовал в прогу, бла-бла-бла...

дело даже не в том, что загрузить JPG в Delphi 10 Lite для меня до сих пор проблема,
ибо файла jpeg.pas не существует в природе, а jpeg.dcu не подключается,
а значит и класса TJPEGImage у меня нет...

А что если я аналог фотошопа пишу?
И если нужно открыть именно такой файл?
Блин, неужели все так ограничено, что теперь и BMP без приключений не загрузить?

Кстати, Delphi7 тоже не может загрузить...

[Аватар]

мир рухнул

Не так уж и рухнул
http://ru.wikipedia.org/wiki/BMP

[Stilet]

есть решение проще и изящнее, чем вы предложили:
надо написать какой-нибудь OLE сервер, который бы каждый раз запускал Paint,
открывал файл, пересохранял его, а лучше прямо из пеинта рисовал в прогу, бла-бла-бла...

Вот теперь мир не просто рухнул, а еще и вдребезги... поллитра....

[stalker1995s]

100 фунтово сжатие.

[s-andriano]

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

мир рухнул =(
а я всю жизнь думал что битмап, он на то и битмап, потому что не сжимается...

А Вы хоть раз пытались работать с BMP?

typedef struct tagBITMAPINFOHEADER{ // bmih  
   DWORD  biSize; 
   LONG   biWidth; 
   LONG   biHeight; 
   WORD   biPlanes; 
   WORD   biBitCount 
   DWORD  biCompression; 
   DWORD  biSizeImage; 
   LONG   biXPelsPerMeter; 
   LONG   biYPelsPerMeter; 
   DWORD  biClrUsed; 
   DWORD  biClrImportant; 
} BITMAPINFOHEADER;