Захват изображения с камеры И ВЫВОД НА CANVAS

[FoxWMulder]

Всем здрасти.
Хочу получить изображение с камеры и отслеживать передвижения объекта, точнее просто яркого пятна на изображении. Изображение получил, вывел на Panel ( код брал например отсюда http://ignatiev.su/blog/posts/webcam-borlanddelphi-7 ).
Вся суть проблемы что у панели нету канваса, и мне не считать цвет пикселей. Сначало я решил эту проблему весьма плохо (дебельным способом). Скопировав изображения с канваса экрана и поместив его в image. но это конечно не годиться и впервую очередь для реализиции моей идеи. Идея состоит в том чтобы передвигать камеру-курсор в игре при помощи вебкамеры. Конечно это может оказаться не примелимым, но в теории более-менее может все работать.
Единственный вопрос который меня сейчас беспокоит и кторый реально мне мешает:
Как получить изображения с камеры на объект который ИМЕЕТ CANVAS, например в image, а не на panel? а все коды которые я находил в инете выводили изображение на панель

[veniside]

Сообщение от FoxWMulder

у панели нету канваса, и мне не считать цвет пикселей

По-вашему пиксели прямо в видеопамяти хранятся, если какого-то там канваса нет, о наличии которого никто, кроме дельфовых компонент, и не догадывается, кстати. Что мешает взять DC у панели и работать с ним? Панель, как-никак, является полноценным окном со своим handle.

[FoxWMulder]

Вот конкретней напишите пожалуйста, и просто примного благодарен буду, отзыв вам добавлю.
Одно из двух либо мне надо скопировать изображение с панели и вставить на image чтобы я мог работать с канвас. либо напишите как мне адаптировать вот эту строчку для панели

if inttostr(Image1.Canvas.Pixels[x,y])='16777215' then begin

Вот handle, пробовал всяко разно, но я не знаю как обратить к пикселю на панели или чтото вроде того. А вся основная загвоздка именно в этом. Потом уже надо будет с точнностью чтото делать, со скоростью обработки и тп, дальше я уже хоть знаю в какую сторону что копать.

вот например я копирую с экрана в image

  DeskTopDC := GetWindowDC(GetDeskTopWindow);
  DeskTopCanvas := TCanvas.Create;
  DeskTopCanvas.Handle := DeskTopDC;

 BitBlt(Image1.Canvas.Handle, 0, 0,320, 240,
        DeskTopDC, Form1.Left+VideoPanel.Left, Form1.Top+VideoPanel.Top, SRCCOPY);

не про это ли вы случаем? тогда понятьбы как его для панели переделать

[veniside]

Ну если совсем в лоб, то GetDC() и GetPixel().

inttostr(Image1.Canvas.Pixels[x,y])='16777215'

Это ж сколько у вас каждый кадр будет так обрабатываться?

Потом уже надо будет с точнностью чтото делать, со скоростью обработки

Не, это уже сейчас надо делать. Потом, когда у вас каждый кадр будет по две минуты обрабатываться, делать уже что-то будет поздно. Можно, конечно, глянуть в сторону GetDIBits(), но это полурешение.

Годным решением будет получать видеоданные от камеры напрямую, без всяких панелей. Кстати, это гораздо проще, чем возня с DC и битмапами.

ЗЫ: отзыв от новичков не влияет на репу

[FoxWMulder]

c GetDC хоть и работает но вот

    Image1.Canvas.copymode := cmSrcCopy;
  pDC := GetDC(VideoPanel.Handle);
  pCanvas := TCanvas.Create;
  pCanvas.Handle := pDC;

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

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

inttostr(Image1.Canvas.Pixels[x,y])='16777215'

Это ж сколько у вас каждый кадр будет так обрабатываться?

самое интересное что ниче так, работает.
пока приложение поверх всех окон, все более-менее отслеживается, и курсор бегает по экрану, в нужные стороны, но как только приложение сворачиваешь то усе

ЗЫ: отзыв от новичков не влияет на репу

все равно. спасибо

Годным решением будет получать видеоданные от камеры напрямую, без всяких панелей. Кстати, это гораздо проще, чем возня с DC и битмапами

думаю для меня не проще, понятия не имею как это

[Gambler]

Как то давно я столкнулся с той же проблемой. Выход простой и и красивый. Используй DSPack. Я умудрялся дергать картинки прямиком из памяти, но и это было медленно.

Вложил пример. Тут много лишнего, но свое найдешь.

А вот это получение изображения средствами DSPack

SampleGrabber.GetBitmap(BMP);

Разница очевидна. Если что то не понятно - пиши в личку.

[Ghost of Night]

Если так уж хочется на панели канву видеть, то слепи их вместе, получиши новый компонент и юзай его.