SampleGrabber не работает

← →
dimon__ (2005-04-08 19:51) [0]

Здраствуйте! Что только ни делал-не работает!!! Как настроить SampleGrabber(DSPACK) так, чтобы он захватывал
изображение с TfilterGraph, который получает изображение с web камеры. VideoWindow все исправно показывает,
а код

SampleGrabber.Getbitmap(Image1.Picture.bitmap); Image1.Repaint;
ничего не показывает. В коде TSampleGrabber.Getbitmap он не может какую-то DIBSection создать:

BitmapHandle := CreateDIBSection(0, PBitmapInfo(BIHeaderPtr)^, DIB_RGB_COLORS, DIBPtr, 0, 0); if BitmapHandle <> 0 then

тут то он по условию не идет!!

PS. Я адаптировал исходный код примера VideoCap: добавил Image и TsampleGrabber.

Помогите пожалуйста!!!! Буду ЧРЕЗВЫЧАЙНО ПРИЗНАТЕЛЕН за помощь. Если у кого есть готовый код,
присылайте пожалуйста на dimonlp@narod.ru

← →
programania © (2005-04-08 22:04) [1]

У меня работает пример PlayCap.dpr для D5 с TV и webCam

В свойствах:
FilterGraph.mode:=gmCapture;
SampleGrabber1 в mediaType у меня video [automatic] videoinfo
//для скрытного захвата если не видно videoWindow
videoWindows VMROptions mode vmrWindowless

в примере добавил:
в form1Create
b:=tbitmap.create;
b.PixelFormat:=pf32bit;
//для захвата если не видно videoWindow
videoWindow.Mode:=vmVMR;

Захват:
procedure TVideoForm.Button1Click(Sender: TObject);
begin
b.Height:=200;
b.width:=300;
ms:= TMemoryStream.Create;
try
if VideoWindow.VMRGetBitmap(ms) then b.LoadFromStream(ms);
finally
ms.Free;
end;
canvas.Draw(button1.Left,button1.Top,b);
end;

Сначала тоже что-то не работало
заработало как надо, когда перебрал все возможности

SampleGrabber не работает Найти похожие ветки