Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > GetPixel работает очень медленно

Автор: BLACK_KOT 23.3.2016, 01:10

Код


procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;         dc:hdc;
begin
dc:=GetDC(0);
for i:=0 to 136 do
  for j:=0 to 47 do
    begin
    if GetPixel(dc,i,j)>16000000 then SetPixel(dc,i+136,j,0);
    end;
ReleaseDC(0,dc);
end;

обрабатываем часть экрана. пикселы, чей цвет светлее определённого отмечаем себе чёрным. SetPixel работает почти мгновенно, а GetPixel тупит очень сильно, непонятно почему. система windows 7. подскажите, что делать

Автор: Pavlovich 23.3.2016, 11:45

Использовать ScanLine, подробней http://borland.xportal.ru/forum/printview.php?t=4410&start=0&sid=0258849346cd3a22ce11606dab0b2c45

Этот ответ добавлен с нового Винграда - http://ru.vingrad.com/GetPixel-rabotayet-ochen-medlenno-id56f1c332ae2015b5028b4567#findElement_E7045_56f257aeae20156459cd5ccf_0