Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.08.14;
Скачать: CL | DM;

Вниз

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;

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



Страницы: 1 вся ветка

Текущий архив: 2005.08.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.053 c
1-1122323177
dRake
2005-07-26 00:26
2005.08.14
Подскажите функцию :)


3-1120466958
ААА
2005-07-04 12:49
2005.08.14
Как перейти


4-1118575139
Naphy
2005-06-12 15:18
2005.08.14
Параметр функции GetEnvironmentVariable...


1-1122366255
Kolan
2005-07-26 12:24
2005.08.14
Никак не получается сохранить структуру.


14-1122284720
Труп Васи Доброго
2005-07-25 13:45
2005.08.14
Цифрочитающее устройство