Всем приветик!

Имеется:

Metafile:=TMetafile.Create;
Bitmap:=TBitmap.Create;
Bitmap.LoadFromFile('c:\Temp\april.bmp');//прочитал картинку 24 бита
with MetaFile do
begin
Image1.Height:=Bitmap.Height;
Image1.Width:=Bitmap.Width;
Image2.Height:=Bitmap.Height;
Image2.Width:=Bitmap.Width;
Image1.Canvas.Draw(0,0,Bitmap); //вывел картинку в TImage
end;

А теперь хотелось бы добраться до пикселей этой картинки и немного с ними поработать
(заняться фильтрацией изображения)...
Подскажите, как можно добраться до этих самих пикселей и их RGB составляющих?
Заранее спасибо...

У битмапа есть Canvas, у него есть свойсво pixels типа TColor. Вот через него и добирайся! Получить из Tcolor RGB можно функцией function ColorToRGB(Color: TColor): Longint; а потом оттуда функциями GetBValue, GetRValue, GetGValue получить составляющие. Но можно напрямую смотреть этот longInt и даже TColor.

Цитата

У битмапа есть Canvas, у него есть свойсво pixels типа TColor. Вот через него и добирайся!

Так пробовал, не получается... В это свойство можно только писать, но забирать значения пикселей не выходит... Попробуй, если у тебя получиться, брось кусок кода, как ты этого добился...

Цитата

В это свойство можно только писать, но забирать значения пикселей не выходит

Код

var  c: TColor; begin  ...  c := ...Pixels [Col, Row];  ... end;

Не может быть!!!!
Из хельпа:

Specifies the color of the pixels within the current ClipRect.

property Pixels[X, Y: Integer]: TColor;

Description

Read Pixels to learn the color on the drawing surface at a specific pixel position within the current clipping region. If the position is outside the clipping rectangle, reading the value of Pixels returns -1.

Write Pixels to change the color of individual pixels on the drawing surface. Use Pixels for detailed effects on an image. Pixels may also be used to determine the color that should be used for the FillRect method.

Not every device context supports the Pixels property. Reading the Pixels property for such a device context will return a value of -1. Setting the Pixels property for such a device context does nothing.

Мож метафайл не поддерживает это?? Надо читать про него MSDN...

Я так понял, в заголовке сказано про битмап, а не про метафайл...
А причем там метафайл - видимо атавизм ?

Код

procedure TForm1.Button2Click(Sender: TObject); var  Bitmap : TBitmap;  x, y : integer; begin  Bitmap := TBitmap.Create;  Bitmap.LoadFromFile (<FileName>);  Image1.Height := Bitmap.Height;  Image1.Width  := Bitmap.Width;  for x := 0 to Bitmap.Width-1 do    for y := 0 to Bitmap.Height-1 do      Image1.Canvas.Pixels[x, y] := Bitmap.Canvas.Pixels[x, y];  Bitmap.Free; end;

А вот код, подтверждающий, что можно и писать и читать через Pixels в TBitmap:

Код

procedure TForm1.Button2Click(Sender: TObject); var  Bitmap : TBitmap;  x, y : integer; begin  Bitmap := TBitmap.Create;  Bitmap.LoadFromFile (<FileName>);  Image1.Height := Bitmap.Height;  Image1.Width  := Bitmap.Width;  Image1.Picture.Bitmap.Width := Bitmap.Width;  Image1.Picture.Bitmap.Height := Bitmap.Height;  for x := 0 to Bitmap.Width-1 do    for y := 0 to Bitmap.Height-1 do      Image1.Picture.Bitmap.Canvas.Pixels[x, y] := Bitmap.Canvas.Pixels[x, y];  Bitmap.Free; end;

Цитата(p0s0l @ 7.10.2003, 14:55)

Я так понял, в заголовке сказано про битмап, а не про метафайл... А причем там метафайл - видимо атавизм ?

Написано

Цитата

with MetaFile do begin Image1.Height:=Bitmap.Height; Image1.Width:=Bitmap.Width; Image2.Height:=Bitmap.Height; Image2.Width:=Bitmap.Width; Image1.Canvas.Draw(0,0,Bitmap); //вывел картинку в TImage end;

Поэтому и говорю, что метафайл. Bitmap егойный используется!

Всем спасибо, раздолбили мою проблему в пух и прах...

val
Если будешь глубоко с битмапами работать, обрати внимание на ScanLine. Через Pixels - очень долго.

Цитата

Поэтому и говорю, что метафайл. Bitmap егойный используется!

var-alex, у метафайла нет никакого битмапа...

Это сообщение отредактировал(а) p0s0l - 8.10.2003, 07:12

Код

Metafile:=TMetafile.Create; Bitmap:=TBitmap.Create; Bitmap.LoadFromFile('c:\Temp\april.bmp');//прочитал картинку 24 бита with MetaFile do begin Image1.Height:=Bitmap.Height; Image1.Width:=Bitmap

Не знаю к чему тут метафайл, но это вырезка из хелпа, так что зачем-то он тут всё-таки нужен...

Ну да, а как ты по другому тут нарисуешь на метафайле битмап? Не использую Tbitmap? :-))

А зачем тут метафайл? Можно и так записать:

Код

Bitmap:=TBitmap.Create; Bitmap.LoadFromFile('c:\Temp\april.bmp');//прочитал картинку 24 бита begin   Image1.Height:=Bitmap.Height;   Image1.Width:=Bitmap.Width;   Image1.Canvas.Draw(0,0,Bitmap); //вывел картинку в TImage end;

Цитата

Можно и так записать: Код Bitmap:=TBitmap.Create; Bitmap.LoadFromFile('c:\Temp\april.bmp');//прочитал картинку 24 бита begin  Image1.Height:=Bitmap.Height;  Image1.Width:=Bitmap.Width;  Image1.Canvas.Draw(0,0,Bitmap); //вывел картинку в TImage end;

да

Цитата

но это вырезка из хелпа, так что зачем-то он тут всё-таки нужен...

нет

можно вообще миновать стадию показа:

Код

var  bmp:tbitmap; begin  bmp:=tbitmap.create;  bmp.loadfromfile('qqq.bmp');  bmp.canvas.pixels[x,y]:=0;//for example  bmp.savetofile('qqq.bmp'); end;

Цитата

можно вообще миновать стадию показа:

ясный пень...

Цитата

нет

не понял?

Цитата

не понял?

val, maxim1000 имел в виду то, что metafile там не нужен.
Чтобы не спорить попусту просто приведи для всеобщего обозрения полностью ту страницу из хелпа, где это написано. А то в том коде, что ты привел, метафайл вообще некуда прилепить...