Скачать: CL | DM;

Узнать цвет точки на экране   Найти похожие ветки 

← →
DimN   (2005-05-26 16:29) [0]

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

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."

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

---

← →
alpet ©   (2005-05-26 16:32) [1]

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

---

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

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

---

← →
vidiv ©   (2005-05-27 10:19) [3]

Я бы сделал так:
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); а в остальном использовать ее также как и использовал...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c