Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];




Вниз

Несколько простых вопросов. 


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 меняешь.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];




Наверх








Память: 0.75 MB
Время: 0.016 c
3-99876           ReNoiZer              2001-12-26 17:22  2002.01.31  
ADO OEMtoANSI и обратно, кто знает параметр в .dns?


14-100066         VEG                   2001-12-06 23:04  2002.01.31  
До чего же наглые!!!


3-99832           Доктор                2001-12-20 22:17  2002.01.31  
Фильтрация!!! срочно!!


3-99924           EternalWonderer       2001-12-29 09:32  2002.01.31  
Проблема с представлением дробных чисел Oracle


1-99988           ctapik-net            2002-01-11 23:10  2002.01.31  
Изменение настроек прокси у TWebbrowser (програмно)