| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Поиск пикселя в картинке. [D7, XP]

worldmen ©   (2010-03-06 14:54:00) 

Ищу красный пиксель на копии части экрана. Копия делается с координатами левого верхнего угла 1430х230 и шириной 8, высотой 300:

   bmp,bmp1 : TBitmap;
...
 bmp:= TBitmap.Create;
 bmp.Height:=300;
 bmp.Width:=8;
 bmp1:= TBitmap.Create;
 bmp1.Height:=300;
 bmp1.Width:=8;
 bmp1.PixelFormat:= pf16Bit;

 PrintScreen(1430, 230, 8,300, bmp, 16);
 Memo1.Lines.Add(TimeToStr(Now)+'Secur.X1='+IntToStr(Secur.X1)+', Secur.Y1='+IntToStr(Secur.Y1));

 Image13.Picture.Assign(bmp);
 inc(bmpI);
 bmp.SaveToFile('red'+IntToStr(bmpI)+'.bmp');
 for j := 0 to Bmp.Width-1 do
   for i:=0 to Bmp.Height-1 do
     begin
       R := GetRValue(bmp.Canvas.Pixels[i,j]);
       G := GetGValue(bmp.Canvas.Pixels[i,j]);
       B := GetBValue(bmp.Canvas.Pixels[i,j]);
       bmp1.Canvas.Pixels[i,j]:=bmp.Canvas.Pixels[i,j];
       bmp1.SaveToFile('bmp1_'+IntToStr(bmpI)+'.bmp');

       if (R>130)and(G<50)and(B<50) then
       begin
....

Но красного цвета не находит. Я специально сохраняю в файл bmp- там есть красный цвет, когда я присваиваю данные bmpпеременной bmp1и сохраняю ее - там нет этого цвета.

procedure TForm1.PrintScreen(x,y,w,h: integer; var bmp :TBitmap; FBit :Word);
var
 Status: TMemoryStatus;
Begin     // создаем копию области
 try
   //bmp := TBitmap.Create;
   case FBit of
      8:  Bmp.PixelFormat := pf8Bit;
     16:  Bmp.PixelFormat := pf16Bit;
     24:  Bmp.PixelFormat := pf24Bit;
   end;
   bmp.Width := w; //Screen.Width;
   bmp.Height:= h;
   StretchBlt(bmp.Canvas.Handle,0,0, w,h, GetDC(0),x,y, w,h, SRCCOPY);


---

Дмитрий Белькевич   (2010-03-07 10:27:00) [1]

Есть подозрение на это:

bmp1.PixelFormat:= pf16Bit;


> Можно сразу по всоте пройтись, можно по ширине - разницы
> никакой. Лутше на вопрос ответил.


Если русский - твой родной язык, то рекомендую начать изучение программирования с русского языка.

---

KilkennyCat   (2010-03-06 23:28:00) [2]

> Можно сразу по всоте пройтись, можно по ширине - разницы
> никакой. Лутше на вопрос ответил.

то, что ты "лутше" ответил - это сомнительно. нарушение границ вообще чревато. разницы нет только при осознании, а ты бежишь по ширине, а адресуешься к высоте.
Думаю, тебе надо выучить русский, научиться быть вежливым и благодарным, и осознать, что завышенная самооценка редко дает положительный результат. Потом можешь попробовать включить компьютер.

---

worldmen   (2010-03-06 19:26:00) [3]

> С индексами беда...
А какая разница с какой стороны смотреть на картинку, она от этого не меняется.
Можно сразу по всоте пройтись, можно по ширине - разницы никакой. Лутше на вопрос ответил.

---

Харакири   (2010-03-06 18:56:00) [4]

for j := 0 to Bmp.Width-1 do
  for i:=0 to Bmp.Height-1 do
    begin
      R := GetRValue(bmp.Canvas.Pixels[i,j]);

С индексами беда...

И во всем остальном какой-то сплошной мрак, какие-то обрывки местами закомментированного кода, begin'ы с end'ами не на месте. Что ты хочешь - почти понятно. Но как делаешь - нет. Поди, проспись, будешь лучше соображать, сможешь поставить корректно вопрос.

---

Наверх