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

Несколько простых вопросов.   Найти похожие ветки 

← →
RRRA   (2002-01-11 20:11) [0]

1.Как сохранить *.jpg файл в *.bmp файл средствами Делфи?
2.Есть код:
image.Picture.Bitmap.Canvas.Pixels[x,y]
for i:=0 to image.Picture.Bitmap.Width-1 do
for j:=0 to image.Picture.Bitmap.Height-1 do color:=image.Picture.Bitmap.Canvas.Pixels[i,j];
listbox1.items.add(inttostr(color));
то цвета пикселей (в listbox1) будут выглядеть примерно так: 16744576, 16777215. Что это такое? В смысле, что это за цифры? И каким образом можно еще переработать параметр color (кроме inttostr(color))? Когда я говорю "переработать", подразумеваю перевод значения color в какое-то строковое значение.
3. При выполнение выше указанного кода почему-то закрашивается вся форма цветами bitmapa? Почему так происходит и как этого избежать?
Зы Заранее благодарен.

---

← →
dima1111   (2002-01-14 09:57) [1]

Вот ответ на первый вопрос:

uses jpeg;

procedure jpg2bmp;
var j:tjpegImage;
b:tbitmap;
begin
j:=tjpegImage.create;
b:=tbitmap.Create;
j.LoadFromFile("c:\banan.jpg");
b.Assign(j);
b.SaveToFile("c:\banan.bmp");
end;


2. Посмотри описание типа TColor
это четырехбайтовое число. Младший байт отвечает за насыщенность красного, второй за зеленый а третий за синий.
А узнать что это за число можно разбив его на байты. еще проще сконвертить его в шестнадцатиричное число. В случае числа 16744576 это будет FF8080 т.е. насыщеность красного и зеленого 80h, а синего 255.

3. Все дело в строке
color:=image.Picture.Bitmap.Canvas.Pixels[i,j];
т.к. "color:=" это ты у формы свойство color меняешь.

---

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

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



Память: 0.45 MB
Время: 0.007 c