Показать сообщение отдельно
  #4  
Старый 19.01.2011, 23:27
Fox Mulder Fox Mulder вне форума
Прохожий
 
Регистрация: 19.01.2011
Сообщения: 16
Репутация: 10
По умолчанию

Страдалецъ
у меня идет вывод видео на панель и я не знаю как сделать вывод на форму лили image, там где есть канвас

dr. F.I.N.
спасибо за подробное объяснение.

я получил изображение с панели в image. у меня теперь проблема что все работает ровно до момента сворачивания формы, как только ее сворачиваеш ниче не работает

копирую с панели в bmp

Код:
  bmp_p.Canvas.copymode := cmSrcCopy;
  pDC := GetDC(VideoPanel.Handle);
  pCanvas := TCanvas.Create;
  pCanvas.Handle := pDC;

 BitBlt(bmp_p.Canvas.Handle, 0, 0,320, 240,
        pDC, 0, 0, SRCCOPY);

делаю изображение контрастнее:

Код:
bmp2:=tbitmap.Create;
bmp2.Assign(bmp_p);
a:=False;
Contrast(bmp_p,90,a);
bmp2.Free;

и нахожу требуемый цвет:
Код:
for x := 120 to 280 do begin //261
 for y := 50 to 150  do begin //221
 if inttostr(bmp_p.Canvas.Pixels[x,y])='16777215' then begin //16777215
...

все работает более-менее, но работает, до того пока не свернул приложение
Ответить с цитированием