Отправляет email-рассылки с помощью сервиса Sendsay

Программирование. Форум !!!

FW: Re[2]: Help #4

-----Original MessageFrom: Ivan [mailto:diafour_***@m*****.ru]
Sent: Sunday, January 11, 2004 3:44 PM
To: comp.soft.prog.prog (3823747)

Hello Малышев,

Sunday, January 11, 2004, 1:33:21 PM, you wrote:

стоп-стоп. GrayScale и 256 _цветов_ это немного разные вещи.
не по внутреннему устройству конечно.
имхо установки формата пикселей в 8 бит мало. нужно ещё перевести
цветное изображение в оттенки серого.

--
Best regards,
Ivan mailto:diafour_***@m*****.ru
Ну например индексацию можно сделать так.
procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
c1:Tcolor;
so:byte;
begin

image1.Picture.LoadFromFile(op1.FileName);
for i:= 0 to image1.Picture.Bitmap.Width do
for j:= 0 to image1.Picture.Bitmap.Height do
begin
c1:=image1.Picture.Bitmap.Canvas.Pixels[i,j];
so:=(getrValue(c1)+getgValue(c1)+getbValue(c1)) div 3;
image1.Picture.Bitmap.Canvas.Pixels[i,j]:=rgb(so,so,so);
end;
end;
А как сохранить? Эту проблему можно решить методом НАУЧНОГО тыка, если
конечно формат Bitmap и GrayScale совместимы более или менее.
Честно говоря не когда с ним не сталкивался.
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

Ответить   Sun, 11 Jan 2004 19:05:04 +0300 (#51962)

 

Ответы:

Интересная задумка... а главное-рабочая...

Ну а сохранить:
procedure TForm1.Button2Click(Sender: TObject);
begin
savedialog1.Execute;
image1.Picture.SaveToFile(savedialog1.filename);
end;
Только вот значения image1.Picture.Bitmap.Canvas.Pixels[i,j] все равно >
255 :-(
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

Ответить   Sun, 11 Jan 2004 20:12:31 +0200 (#52039)