Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.05.2015, 14:39   #11
Должно быть имя?
Пользователь
 
Регистрация: 11.04.2015
Сообщений: 68
По умолчанию

Сделал :D полностью аналогична этой. без вин айпи функции GetPixel которая жутка тормозит

Код:
  TestBitMap := TBitmap.Create;
  TestBitMap.PixelFormat := pf24bit;
  TestBitMap.Width := rect.right;
  TestBitMap.Height := rect.bottom;
  if ScrWindows(hwnd, TestBitMap.Canvas.Handle, 0, 0, TestBitMap.Width, TestBitMap.Height, 0, 0) then
  begin
    for y := top to bottom do
    begin
      ScanLineP := TestBitMap.ScanLine[y];
      for x := left to right do
      begin
        red		:= PBGRColor(ScanLineP)[x].r;
        green	:= PBGRColor(ScanLineP)[x].g;
        blue	:= PBGRColor(ScanLineP)[x].b;

        if (red   >= red_low)   and (red <= red_high) and
           (green >= green_low) and (green <= green_high) and
           (blue  >= blue_low)  and (blue <= blue_high) then
        begin
          Result := true;
          OutRes.X := X;
          OutRes.Y := Y;
          FreeAndNil(TestBitMap);
          exit;
        end;
      end;
    end;
    FreeAndNil(TestBitMap);
  end;
Должно быть имя? вне форума Ответить с цитированием
Старый 18.05.2015, 20:26   #12
Должно быть имя?
Пользователь
 
Регистрация: 11.04.2015
Сообщений: 68
По умолчанию

Поделюсь опытом, что бы получить ScanLine у FastDIB вам надо сделать этакое
Код:
ScanLineP := PByte(Faft.Bits) +
      (Faft.Height - y - 1) * BytesPerScanline(Faft.Width, Faft.Bpp, 32);
А то что возвращает Faft.Scanlines совсем не то -_-

Думаю многим помог
Должно быть имя? вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Алгоритм программного чтения кода(наподобие чтения тегов в браузерах) psih_stalker Gamedev - cоздание игр: Unity, OpenGL, DirectX 3 10.01.2012 21:32
Опустить web browser в самый низ matvey.tech C# (си шарп) 0 10.01.2012 01:36
Верх и низ имаги в CSS Alex Cones HTML и CSS 7 23.10.2010 18:00
Прижать левый блок максимально в низ. rext HTML и CSS 6 17.07.2010 13:50
функции чтения цвета пикселя Геннадий Общие вопросы Delphi 1 13.11.2006 20:03