Запись двух видео потоков и последующее синхронное воспроизведение

[dg79]

Всем присутствующим привет!

Надо одновременно сделать запись двух видеопотоков, с целью последующего синхронного анализа.

Исходные данные:
1 поток: видео с экрана компьютера. В окне браузера в реальном времени, выводиться построчное выполнение некой программы движения манипулятора робота.
2 поток: возможный источник-веб камера, которая снимает собственно сам манипулятор.

Вот эти потоки надо записать и потом воспроизводить синхронно, с целью анализа - какая строка программы переводит манипулятор в то или иное состояние.

Точность синхронности воспроизведения 0.5...1 сек.

Подскажите идеи реализации.

[mtit]

Дешёвая: квадратор (или как там у охранников это называется) - два видеосигнала идут на один монитор. Плюс - распространено. Минус - потеря разрешения.

[svad0]

Вариант 1
Две аналоговые камеры, одна снимает изображение с монитора, другая снимает манипулятор.
Выходы камер подключить к квадратору, а выход квадратора к плате видеозахвата ПК. Далее записываем видеопоток.

Вариант 2
Есть такая программка ffmpeg, которая может записывать изображение с монитора и с веб камеры.Для этого придется запустить 2 процесса ffmpeg и в итоге получится 2 разных файла, которые потом можно попытаться синхронизовать с помощью видеоредактора.

[Yurkin2007]

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

[raxp]

текстовую строку исполняемой программы подмешивать в изображение веб-камеры, как титры снизу экрана, в реальном времени, и писать только один поток

очень светлая мысль ...а подмешивать можно через IVMRMixerBitmap в DirectShow:

procedure dsmp_logo(_dsmp: TDSMP; s: string; alpha: single);
var osb: tbitmap;
w,h: integer;
begin
with _dsmp do if Initialized then begin
osb:= tbitmap.Create;
osb.Canvas.Brush.Color:= $0;

osb.Canvas.Font.Name:= 'arial';
osb.Canvas.Font.Size:= 16;
osb.Canvas.Font.Style:= [fsBold];
osb.Canvas.Font.Color:= 65535;// 65280
w:= osb.Canvas.TextWidth('w');
h:= osb.Canvas.TextHeight('w');
osb.Width := length(s)*w;
osb.Height:= h;
osb.Canvas.TextOut(0,0,s);

ZeroMemory(@VMRBitmap, sizeof(VMRBitmap));
VMRBitmap.dwFlags := VMRBITMAP_HDC or VMRBITMAP_SRCCOLORKEY;
VMRBitmap.clrSrcKey:= 0;
VMRBitmap.hdc := osb.Canvas.Handle;
VMRBitmap.rSrc := osb.Canvas.ClipRect;
//

VMRBitmap.rDest.left := 0.25;
VMRBitmap.rDest.right := 0.95;
VMRBitmap.rDest.top := 0.05;
VMRBitmap.rDest.bottom:= 0.12;
VMRBitmap.fAlpha := alpha;
pBitmap.SetAlphaBitmap(VMRBitmap);
osb.Free
end
end;

кстати, эта реализация уже есть готовая в наборе DSPack/