SampleGrabber не работает [D7, WinXP]
dimon__ © (2005-04-08 19:51:00)
Здраствуйте! Что только ни делал-не работает!!! Как настроить
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:00) [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;
Сначала тоже что-то не работало
заработало как надо, когда перебрал все возможности
Наверх 
ЧАТ |
Орешник |
|
