Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

27th
Окт

Взять кадр из видео без остановки видео потока (BASSVIDEO)

Posted by obzor under Delphi

Как взять кадр из видео без остановки самого видео потока? Мне нужно сделать детектор движения.

АНАТОЛИЙ249

Вот нашел что можно вызвать BassVideo_Set_Draw_CallBack но как это применить ума не приложу,может кто что подскажет ?

Aliens_wolfs

Немного поэкспериментировав у меня получилось добиться вызова интересующую вас функцию

Код:


procedure myCallBackDraw(chan : DWORD; DC : HDC; user : Pointer); stdcall;
begin
//рисуем на чем угодно для примера на форме но можно и в Bitmap думаю разберетсь
BitBlt(Form1.Canvas.Handle ,0,0, Form1.Width, Form1.Height,dc,0,0,SRCCOPY);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
Rect: Trect;
begin
 if OpenDialog1.Execute then
  begin
    chan := BassVideo_StreamCreateFile(PChar(OpenDialog1.FileName),
      BASSVIDEO_VIDEOEFFECT, 0, nil, nil);
 if chan <> 0 then
    begin
  // Вызываем CallBack
    BassVideo_Set_Draw_CallBack(chan, myCallBackDraw, nil);
     BassVideo_Play(chan);
     end;
  end;
end;