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

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

странная проблема с отображение картинки


delphistorm ©   (2013-05-23 15:23:00) 

Гружу картинку в timage:

http://www.keramin.com/i/photo/orion_3s.jpg


procedure TForm1.Button1Click(Sender: TObject);
begin
 Image1.Picture.LoadFromFile('D:\orion_3s.jpg');
end;


после загрузки она почему-то становится серой. Стандартные просмотрщики ее отобращают нормально. Что не так?


robt5   (2013-05-25 18:21:00) [1]


> вот например Хром браузер

а вот например ИЕ как обычно открывает все


alexdn   (2013-05-24 22:19:00) [2]

> delphistorm   (23.05.13 17:54) [13]
Да, кстати встречал такой эффект, вот например Хром браузер к этому делу чувствителен, он такую картинку даже открывать не будет! Точнее даже так, делал сохранить картинку из timage как.. jpg, а она потом хромом не открывается, а вот если её действительно открыть paint-ом, потом сохранить jpg как jpg, то всё становится норм.


delphistorm   (2013-05-23 17:54:00) [3]


> дело в самой картинке...


оказывается, картинка имеет цветовое пространство CMYK. Его поддержка появилась только с Delphi 2010.


sniknik   (2013-05-23 16:17:00) [4]

дело в самой картинке...
открываешь ее в паинте, и тут же сохраняешь исходный jpg как ... jpg, и после этого все ок, и размер 24.2 кб вместо 176-ти.


RWolf   (2013-05-23 16:12:00) [5]

> True
в смысле, наоборот — установить в False.


RWolf   (2013-05-23 16:11:00) [6]

не встречал таких проблем.
можно попробовать j.Grayscale:=True; перед загрузкой.


delphistorm   (2013-05-23 16:11:00) [7]

не помогает. я думаю, что проблема в jpeg-библиотеке. в XE... нормально работает


delphistorm   (2013-05-23 16:09:00) [8]

не помогает. я думаю, что проблема в jpeg-библиотеке. в XE... нормально работает


RWolf   (2013-05-23 15:58:00) [9]

пардон, невнимательно прочитал.
а если значение Image1.Picture.Bitmap.Monochrome поменять?


delphistorm   (2013-05-23 15:49:00) [10]

так грузится картинка в TImage.

да не важно как грузится, суть в том, что как картинку не загружай, меняется ее цветовая гамма.


delphistorm   (2013-05-23 15:43:00) [11]

RWolf ©  

???


RWolf   (2013-05-23 15:43:00) [12]

так грузится картинка в TImage.


delphistorm   (2013-05-23 15:37:00) [13]

такая проблема только в d7.


RWolf   (2013-05-23 15:37:00) [14]

Image1.Picture.LoadFromFile('D:\orion_3s.jpg');


delphistorm   (2013-05-23 15:26:00) [15]

поправлю, вот так гружу:


procedure TForm1.Button1Click(Sender: TObject);
var
 J: TJPEGImage;
begin
 J := TJPEGImage.Create;
 try
   J.LoadFromFile('D:\orion_3s.jpg');
   Image1.Picture.Bitmap.Assign(J);
 finally
   J.Free;
 end;
end;


Наверх

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