Цвет пикселя картинки перевести в число.

Предыдущая тема Следующая тема Перейти вниз

Цвет пикселя картинки перевести в число.

Сообщение  workman в Ср Сен 21, 2011 12:42 pm

Поделитесь примером кода, кто в теме Neutral

workman

Сообщения : 25
Дата регистрации : 2010-12-03

Посмотреть профиль

Вернуться к началу Перейти вниз

Re: Цвет пикселя картинки перевести в число.

Сообщение  trew в Ср Сен 21, 2011 4:26 pm

Поделитесь примером кода, кто в теме
Если в Windows, то можно так:

Код:
#Include "windows.bi"
Dim pt as Point
Dim As String t,c
Var hdc=getDC(getdesktopwindow)
Do
   GetCursorPos (@pt)
   t=Hex(GetPixel(hdc,pt.x,pt.y))' <- получаем пиксель
   If c<>t Then
      Cls
      c=t
      ? c
   EndIf
   Sleep(1)
Loop Until GetAsyncKeyState(&h1B)<0
ReleaseDC(0,hdc)

trew

Сообщения : 331
Дата регистрации : 2010-10-14

Посмотреть профиль

Вернуться к началу Перейти вниз

Re: Цвет пикселя картинки перевести в число.

Сообщение  DEPOzit в Ср Сен 21, 2011 5:57 pm

Хм... А может имелось ввиду что-то гораздо проще, типа:
a=point(x,y)

DEPOzit

Сообщения : 113
Дата регистрации : 2008-05-15
Возраст : 36
Откуда : Смоленская обл.

Посмотреть профиль http://freebasic.ru/

Вернуться к началу Перейти вниз

Re: Цвет пикселя картинки перевести в число.

Сообщение  workman в Чт Сен 22, 2011 7:43 am

Спасибо ребята, как приеду домой, попробую.

PS: мне нужно просто считать картинку по пикселям, чтобы вывести на каком-нибудь другом экране, например, от мобильного телефона.

workman

Сообщения : 25
Дата регистрации : 2010-12-03

Посмотреть профиль

Вернуться к началу Перейти вниз

Re: Цвет пикселя картинки перевести в число.

Сообщение  Спонсируемый контент


Спонсируемый контент


Вернуться к началу Перейти вниз

Предыдущая тема Следующая тема Вернуться к началу

- Похожие темы

 
Права доступа к этому форуму:
Вы не можете отвечать на сообщения