PureBasic - форум

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.

Вы здесь » PureBasic - форум » Вопросы по PureBasic » Как узнать цвет пикселя на экране используя PureBasic?

Как узнать цвет пикселя на экране используя PureBasic?

Страница: 1

Сообщений 1 страница 7 из 7

1

  • Автор: QQruza
  • Новичок
  • Зарегистрирован: 26.05.2013
  • Приглашений: 0
  • Сообщений: 5
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    3 часа 12 минут
  • Последний визит:
    17.01.2014 19:13:23

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

0

2

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 3151
  • Уважение: [+101/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 13 дней
  • Последний визит:
    Вчера 22:16:58

Программа CatchColor. http://purebasic.info/OpenSource/index.php

0

3

  • Автор: QQruza
  • Новичок
  • Зарегистрирован: 26.05.2013
  • Приглашений: 0
  • Сообщений: 5
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    3 часа 12 минут
  • Последний визит:
    17.01.2014 19:13:23

Спасибо, выдернул из CatchColor

Мне вот нужно получить цвет пикселей из такого вот квадратика

Код:
*DC=GetDC_(GetCapture_())

For x=1 To 100
For y=1 To 100
color=GetPixel_(*DC, x, y)
Next y
Next x

Простите, а побыстрей как-нибудь можно? 4 минуты очень долго.
На AutoIt есть библиотека она тоже самое делает за 0.3 секунды, но как ее прикрутить к PureBasic я не понял, тут нужны специалисты в обоих языках.

0

4

  • Автор: Paranoia
  • Активный участник
  • Зарегистрирован: 24.06.2012
  • Приглашений: 0
  • Сообщений: 47
  • Уважение: [+1/-0]
  • Позитив: [+0/-0]
  • Возраст: 34 [1991-06-14]
  • Провел на форуме:
    8 дней 6 часов
  • Последний визит:
    26.07.2025 02:01:34

Надо не в цикле обращаться к каждому пискелю экрана и брать его цвет, а делать скриншот нужной области экрана и уже в памяти работать с ним, т.е. проходить его попиксельно.

0

5

  • Автор: QQruza
  • Новичок
  • Зарегистрирован: 26.05.2013
  • Приглашений: 0
  • Сообщений: 5
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    3 часа 12 минут
  • Последний визит:
    17.01.2014 19:13:23
Paranoia написал(а):

Надо не в цикле обращаться к каждому пискелю экрана и брать его цвет, а делать скриншот нужной области экрана и уже в памяти работать с ним, т.е. проходить его попиксельно.

Спасибо, Добрый человек, ты наверное заметил, что я прямо с этого и начал свое первое сообщение в этой теме. Принцип, как ты понял, я понимаю, а с реализацией хотелось, чтобы мне помогли.

0

6

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 3151
  • Уважение: [+101/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 13 дней
  • Последний визит:
    Вчера 22:16:58
QQruza написал(а):

На AutoIt есть библиотека она тоже самое делает за 0.3 секунды

Медленно.
PureBasic тратит на это (снятие скрина с экрана и попиксельный разбор) меньше миллисекунды (меньше тысячной доли секунды).

Код:
DisableDebugger

Procedure MakeDesktopScreenshot(ImageNr,x,y,Width,Height)
  Protected hImage, hDC, hWnd, DeskDC
  
  hImage = CreateImage(ImageNr,Width,Height) 
  If hImage
    hDC    = StartDrawing(ImageOutput(ImageNr))
    If hDC
      hWnd=GetDesktopWindow_()
      DeskDC = GetDC_(hWnd) 
      BitBlt_(hDC,0,0,Width,Height,DeskDC,x,y,#SRCCOPY) 
      StopDrawing() 
      ReleaseDC_(hWnd,DeskDC) 
    Else
      FreeImage(ImageNr)
      hImage = 0
    EndIf
  EndIf
  
  ProcedureReturn hImage
EndProcedure

t = ElapsedMilliseconds()

; Сделали скрин части экрана
If MakeDesktopScreenshot(0,20,50,100,100)
  
  If StartDrawing(ImageOutput(0))
    For x=0 To 99
      For y=0 To 99
        color=Point(x, y)
      Next y
    Next x
    
    StopDrawing()
  EndIf
  
EndIf

r = ElapsedMilliseconds()-t

MessageRequester("", "Выполнено за "+StrF(r/1000, 3)+" секунды")

0

7

  • Автор: mestnyi
  • Активный участник
  • mestnyi
  • Зарегистрирован: 01.12.2012
  • Приглашений: 0
  • Сообщений: 124
  • Уважение: [+0/-1]
  • Позитив: [+1/-0]
  • Провел на форуме:
    1 день 10 часов
  • Последний визит:
    03.10.2022 22:15:19

как получить цвет формы, гаджета и т.д.? Вот находил один код но он крыво работает, если даже работает.

Код:
Define FolderIcon
Define Draw
Procedure GetWindowBkColor(hWnd)
  A$=Space(40)
  GetObject_(GetClassLong_(hWnd,#GCL_HBRBACKGROUND),40,@A$)
  ProcedureReturn PeekL(@A$+4)
EndProcedure

ExtractIconEx_("shell32.dll",130,0,@FolderIcon, 1)

CreateImage(1,32,32)
Draw = StartDrawing(ImageOutput(1))
  Box(0,0,32,32,0)
  DrawIcon_(Draw,0,0,FolderIcon)
StopDrawing()

If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  SetWindowColor(0,$353535)
  ImageGadget(1,10,10,0,0,ImageID(1),0)
  Debug Hex(GetWindowBkColor(WindowID(0)))
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

Отредактировано mestnyi (05.10.2013 13:39:17)

0

Страница: 1

Вы здесь » PureBasic - форум » Вопросы по PureBasic » Как узнать цвет пикселя на экране используя PureBasic?