Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.07.25;
Скачать: 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 вся ветка

Текущий архив: 2005.07.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.045 c
4-1117215084
sofs
2005-05-27 21:31
2005.07.25
Порты


14-1120197524
cosinus
2005-07-01 09:58
2005.07.25
Возможно ли организовать HTML-странику, на которую происходит


14-1120533301
rainy_
2005-07-05 07:15
2005.07.25
Математика


14-1120065309
Магнум
2005-06-29 21:15
2005.07.25
WebMoney


3-1118592202
slavaak
2005-06-12 20:03
2005.07.25
Сохранение данных произвольной структуры в ClientDataSet