BASSVIDEO

[АНАТОЛИЙ249]

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

procedure TForm1.SaveFrame(FileName : widestring);
var
  pos : double;
begin
  pos := BassVideo_GetPosition(Chan);//+ precis que progressDuree.Position
  BassVideo.BassVideo_CaptureBitmap(PWideChar(PATH+FileName), pos, PWideChar(PATH+FileName), BASS_UNICODE);
end;

Спасибо.

[dummy_user]

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

[АНАТОЛИЙ249]

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

Спасибо.

Hi kenshin1101 
I am trying to get pictures from video every 5 secs
BassVideo.BassVideo_CaptureBitmap isn't working with all video files
please read this code in delphi and tel me where is wrong.
thank you

if not OpenDialog1.Execute then exit;
source := OpenDialog1.FileName;
chan := BassVideo_StreamCreateFileEx(source, 0,nil, nil);
if chan = 0 then exit;
   BassVideo_Play(chan);
   BassVideo_Pause(chan);
   vLength  := BassVideo_GetLength(chan);
   while (vPos < vLength) do begin
      vPos := vPos + 5;
      BassVideo_SetPosition(chan,vPos);
      dc := GetDC(BassVideo_GetVideoWindow(chan,0));
      BitBlt(buffer.Canvas.Handle ,0,0,vWidth, vHeight,dc,0,0,SRCCOPY);
      Form3.Image1.Canvas.Draw(0,0,Buffer);
   end;


BassVideo_CaptureBitmap is open video and try grab some frame, if you can't get bitmap from that maybe the VideoWindow not support or some error appear

You can't use GetDC with the videowindow because the video is work using other way

try use BassVideo_StreamCreateFile with BASSVIDEO_VIDEOEFFECT flags and call BassVideo_Set_Draw_CallBack, you'll have dc of the image in the 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);
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;

[АНАТОЛИЙ249]

Спасибо вам огромное за помощь. Как я понял это обратная функция вызова видео DC с которого можно взять bitmap картинку то что мне и было нужно.

и еще не большой вопрос ,как в форуме выставить код оформленный или как в рамке ?

[Aliens_wolfs]

Для оформления кода нажмите на панели инструментов в окне сообщения значок решетки у вас появиться в квадратных скобках CODE Вставляем свой код /CODE, а для цитаты значок перед решеткой
QUOTE Вставляем цитату /QUOTE

[АНАТОЛИЙ249]

Спасибо за помощь.