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

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

Узнать цвет точки на экране [D7, Win2k]

DimN ©   (2005-05-26 16:29:00) 

Помогите пожалуйста!!!
Мне нужно длительный промежуток времени сканировать определённую точку на экране и в соответствии с её цветом действовать дальше.
Я использую вот такой код, для определения цвета:

function DesktopColor(const X, Y: Integer): TColor;
var
 c: TCanvas;
begin
 c := TCanvas.Create;
 try
   c.Handle := GetWindowDC(GetDesktopWindow);
   Result   := GetPixel(c.Handle, X, Y);
 finally
   c.Free;
 end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 If (ColorToRGB(DesktopColor(20, 400)) = 255) or
    (ColorToRGB(DesktopColor(20, 400)) = 32768) then
      Form1.Caption:=IntToStr(StrToInt(Form1.Caption)+1)
end;

Программа работает несколько минут, а потом выдаёт ошибку: "Project xxxxx.exe raised exception class EInvalidOperation with message 'Canvas does not allow drawing'. Process stopped. Use Step or Run to continue."

Подскажите, каким образом можно эту ошибку исправить?
Или другой способ, чтобы узнать цвет точки на экране?

---

vidiv   (2005-05-27 10:19:00) [1]

Я бы сделал так:
var DesktopColorDC:hdc=0;

function DesktopColor(const X, Y: Integer; Release:boolean=false): TColor;
begin
 if DesktopColorDC = 0 then DesktopColorDC := getdc(0);
 result := GetPixel(DesktopColorDC, X, Y);
 if Release then ReleaseDC(0, DesktopColorDC);
end;

После того как функция DesktopColor уже не нужна выполнить
DesktopColor(0, 0, true); а в остальном использовать ее также как и использовал...

---

DimN   (2005-05-26 16:40:00) [2]

Спасибо большое!!! Помогло!

---

alpet   (2005-05-26 16:32:00) [3]

Перед c.Free, поставь ReleaseDC (GetDesktopWindow, c.handle);

---

Наверх