Форум: "Основная";
Поиск по всему сайту: 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.72 MB
Время: 0.021 c
3-99879           Filat                 2001-12-27 10:52  2002.01.31  
Как можно сделать следующее: база данных Access -> IIS -> WEB страница


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


1-99948           RRRA                  2002-01-11 20:11  2002.01.31  
Несколько простых вопросов.


4-100112          Tippy                 2001-11-29 20:44  2002.01.31  
Как в Трей добавить текст?


6-100027          Hawk                  2001-11-06 19:44  2002.01.31  
Как определить IP компа в интернете??