Скачать: CL | DM;

Проблеиа с сохранением JPEG   Найти похожие ветки 

← →
V-Isa ©   (2004-05-07 11:50) [0]

Здравствуйте!
Возникла проблема с сохранением JPEG. Загружаю в TImage BitMap, изменяю канву, добавляю новые цвета (даже не сплошные)... потом сохраняю JPEG и он теряет цвета, то есть они становятся какими-то блеклыми. То есть, если картинка состоит из оттенков светло-зеленого, то в итоге - серо-сине-зеленый... Что это может быть?
Использую...
Procedure BMP2JPEG(Pic:TPicture);
var
JPG:TJpegImage;
Bmp:TBitmap;
begin
Bmp:=TBitmap.Create;
Bmp.Assign(Pic.BitMap);
JPG:=TJpegImage.Create;
JPG.Assign(Bmp);
Pic.Assign(JPG);
Bmp.Free;
JPG.Free;
end;

А в коде ...
BMP2JPEG(I1.Picture);
I1.Picture.SaveToFile(SPD1.FileName);
I1.Picture.LoadFromFile(SPD1.FileName);

---

← →
Курдль ©   (2004-05-07 11:52) [1]

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

---

← →
V-Isa ©   (2004-05-07 11:54) [2]

Может кто-нить подскажет более детально... просто хэлп уже читал...

---

← →
Курдль ©   (2004-05-07 12:06) [3]

А цель программы-то какая? Исследования типа "А что будет, если..."? И что значит "изменяю канву"?

---

← →
V-Isa ©   (2004-05-07 12:07) [4]

Ребята , неужели никто не подскажет?

---

← →
V-Isa ©   (2004-05-07 12:09) [5]

Изменяю канву...
Например, заполняю ее градиентом, увеличиваю яркость и пр...

---

← →
Мунька ©   (2004-05-07 12:19) [6]

Покопайтесь
http://www.efg2.com/Lab/ImageProcessing/FlipReverseRotate.htm
там выйдите на верхний уровень и т.д.. куча примеров полезных

---

← →
Сашенька   (2004-05-07 12:56) [7]

Попробуй после открытия бмп сказать ему pixelformat=pf24bit

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c