Как получить координаты по цвету

@intehack · Регистрация: 12.01.2013

Author24 — интернет-сервис помощи студентам

Как получить координаты X, Y по цвету какого-нибудь объекта на экране?
Например на экране есть красный цвет. Как получить его координаты расположения на экране?

@droider · 21.08.2013, 18:25

Как-то так

Delphi
1
2
3
if  image1.Canvas.Pixels[i,j]=clRed    
then
     x :=i; y :=j;

+
Программа определяющая координаты и цвет пикселя

@intehack · 21.08.2013, 18:33 **[ТС]**

Сообщение от droider

Как-то так

Delphi
1
2
3
if  image1.Canvas.Pixels[i,j]=clRed    
then
     x :=i; y :=j;

+
Программа определяющая координаты и цвет пикселя

не, не то )
мне нужно определение с экрана, а с картинки я им сам могу. и причем здесь Программа определяющая координаты и цвет пикселя?

@droider · 21.08.2013, 18:52

А Вам все не то. Вам даешь направление, и опять не то...

Delphi
1
2
3
4
5
6
7
8
var
DC:HDC;
Color:Cardinal;
begin
DC := CreateDC('DISPLAY', nil, nil, nil);
Color := GetPixel(DC, 0{X}, 0{Y}); //RGB
DeleteDC(DC);
end;

Добавлено через 7 минут

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
Var
  ScreenDC: HDC;
  ScreenCanvas: TCanvas;
 ............. 
begin
  ScreenDC:=GetDC(0);
  ScreenCanvas :=TCanvas.Create;
  ScreenCanvas.Handle :=ScreenDC;
///////////////////////////////////////
    ScreenCanvas.Pixels[i, j]; 
..........................
end;

@intehack · 21.08.2013, 18:57 **[ТС]**

Сообщение от droider

А Вам все не то. Вам даешь направление, и опять не то...

Delphi
1
2
3
4
5
6
7
8
var
DC:HDC;
Color:Cardinal;
begin
DC := CreateDC('DISPLAY', nil, nil, nil);
Color := GetPixel(DC, 0{X}, 0{Y}); //RGB
DeleteDC(DC);
end;

Добавлено через 7 минут

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
Var
  ScreenDC: HDC;
  ScreenCanvas: TCanvas;
 ............. 
begin
  ScreenDC:=GetDC(0);
  ScreenCanvas :=TCanvas.Create;
  ScreenCanvas.Handle :=ScreenDC;
///////////////////////////////////////
    ScreenCanvas.Pixels[i, j]; 
..........................
end;

Спасибо.
А можно подробнее? А то не очень понял

Color := GetPixel(DC, 0{X}, 0{Y}); //RGB
Где указать RGB?

@droider · 21.08.2013, 19:01

Сообщение от intehack

Где указать RGB?

это просто комментарий. В этом коде Вы получите цвет по координатам пикселя на экране.
(обратная Вашей задача). А ниже код уже под Вашу задачу

@intehack · 21.08.2013, 20:32 **[ТС]**

Сообщение от droider

это просто комментарий. В этом коде Вы получите цвет по координатам пикселя на экране.
(обратная Вашей задача). А ниже код уже под Вашу задачу

А там где указать RGB?

Добавлено через 1 час 8 минут

Сообщение от droider

А ниже код уже под Вашу задачу

Можете более подробно написать?

@droider · 22.08.2013, 02:28

ответ в личке
Лучше сделайте так, немного подкорректировал. Кидаем таймер. Далее

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Timer1Timer(Sender: TObject);
var 
 ScreenDC: HDC;
 Cur: TPoint;
 Color: Cardinal;
begin
 ScreenDC := GetDC( 0 );
GetCursorPos( Cur ); // координаты курсора
Color := GetPixel( ScreenDC, Cur.X, Cur.Y );  // цвет пикселя в полученных координатах
 ReleaseDC( 0, ScreenDC );
if Color=clRed then //если найден красный цвет
ShowMessage(IntToStr(Cur.X)+' , '+inttostr(Cur.Y)); //то показываем координаты точки
end;

В этом наброске необходимости нет

Var
ScreenDC: HDC;
ScreenCanvas: TCanvas;
.............
begin
ScreenDC:=GetDC(0);
ScreenCanvas :=TCanvas.Create;
ScreenCanvas.Handle :=ScreenDC;
///////////////////////////////////////
ScreenCanvas.Pixels[i, j];
..........................
end;

@intehack · 22.08.2013, 12:48 **[ТС]**

droider, так это ведь проверка на совпадение пикселя по цвету под курсором, а нужно, чтоб координаты находило по всему экрану, а не только те, которые под курсором ))

Новые блоги и статьи Все статьи Все блоги /
Что нового в C# 14 UnmanagedCoder 10.03.2025 Предстоящая версия C# 14 обещает принести изменения, которые сделают разработку еще более приятной и эффективной. Что стоит отметить, так это влияние сообщества разработчиков на формирование новых. . .	Формулы поворота Igor3D 10.03.2025 Добрый день Тема Эти формулы приводятся во множестве тьюториалов, часто под видом "матрица вращения на плоскости". x' = x * cos(a) - y * sin(a) y' = y * cos(a) + x * sin(a) Как бы Вы их. . .	Что нового в .NET 10 UnmanagedCoder 10.03.2025 . NET 10 выходит как релиз с длительной поддержкой (LTS), включающей три года обновлений. В этом обновлении Microsoft сфокусировались на нескольких направлениях: производительность, оптимизация. . .	Отложенное высвобождение, RCU и Hazard Pointer в C++26 NullReferenced 09.03.2025 Многопоточное программирование стало важной частью современной разработки. Когда несколько потоков одновременно работают с общими данными, возникает целый ряд проблем, связанных с синхронизацией и. . .	Неблокирующийся стек на C++26 NullReferenced 09.03.2025 Традиционные способы синхронизации в многопоточном программировании — мьютексы, семафоры, условные переменные — часто превращаются в узкое место в плане производительности. При этом неблокирующиеся. . .
Обработка строк в C++26: Новые возможности string и string_view NullReferenced 09.03.2025 Новый стандарт C++26 предлагает много улучшений для работы с привычными string и относительно новыми string_view. string_view - это невладеющая ссылка на последовательность символов, появившаяся в. . .	Мой первый аддон для Blender 3D, с помощью нейронки (не зная даже азов пайтона, но это не значит что так и с остальным). Hrethgir 09.03.2025 Потратил весь день. Пол-дня мне хватило, чтобы понять что с версией с 14B мне не одолеть написание функционального кода, на языке с которым я вообще никак не знаком - пайтон. Версия 22B от другого. . .	Einstein@Home сегодня исполняется двадцать лет! Programma_Boinc 09.03.2025 Einstein@Home сегодня исполняется двадцать лет! Отправлено 19 февраля 2025 года в 17:20:21 UTC Я хочу поздравить всех наших волонтеров, разработчиков и ученых из Einstein@Home. Мы официально. . .	Заполнители и расширенный набор символов в C++26 NullReferenced 09.03.2025 C++26 представляет два важных обновления: заполнители и расширенный набор символов. Заполнители (placeholders) решают давнюю проблему лаконичности кода в шаблонных выражениях и лямбда-функциях. Они. . .	Контракты в C++26 NullReferenced 09.03.2025 Контракты – это механизм, позволяющий указывать предусловия, постусловия и инварианты для функций в коде. Эта функциональность должна была стать частью C++20, но была исключена на встрече комитета. . .

@intehack 1 / 1 / 0 Регистрация: 12.01.2013 Сообщений: 48
		1
	Как получить координаты по цвету 21.08.2013, 17:44. Показов 1677. Ответов 8 Метки нет (Все метки) Как получить координаты X, Y по цвету какого-нибудь объекта на экране? Например на экране есть красный цвет. Как получить его координаты расположения на экране? 0

@droider 4925 / 2792 / 856 Регистрация: 04.10.2012 Сообщений: 10,174
	21.08.2013, 19:01	6
	Сообщение от intehack Где указать RGB? это просто комментарий. В этом коде Вы получите цвет по координатам пикселя на экране. (обратная Вашей задача). А ниже код уже под Вашу задачу 1

@intehack 1 / 1 / 0 Регистрация: 12.01.2013 Сообщений: 48
	21.08.2013, 20:32 [ТС]	7
	Сообщение от droider это просто комментарий. В этом коде Вы получите цвет по координатам пикселя на экране. (обратная Вашей задача). А ниже код уже под Вашу задачу А там где указать RGB? Добавлено через 1 час 8 минут Сообщение от droider А ниже код уже под Вашу задачу Можете более подробно написать? 0

@intehack 1 / 1 / 0 Регистрация: 12.01.2013 Сообщений: 48
	22.08.2013, 12:48 [ТС]	9
	droider, так это ведь проверка на совпадение пикселя по цвету под курсором, а нужно, чтоб координаты находило по всему экрану, а не только те, которые под курсором )) 0