tuner

← →
VIS © (2005-03-29 10:54) [0]

я установил DSPack всё впорядке, работает!
но проблема возникает когда я принимаю поток с камеры. тоесть драйвер настроен на приём с антенного входа а мне нужно настроить его на приём с видео входа! после того как я загружаю любую программу для работы с тюнером и переключаю тюнер на видео вход всё становится на свои места. так вот подскажите кто нибудь как програмно заставить тюнер или драйвер принимать сигнал с видео входа. зарание спасибо

← →
WondeRu © (2005-03-29 11:55) [1]

IAMCrossBar читать DirectX SDK

← →
VIS © (2005-03-29 13:12) [2]

ок!

← →
VIS © (2005-03-29 14:42) [3]

ну это конечно то что нужно но для с++
мне всё это дело для делфи нужно... если есть сылочка или отрывок плиз скиньте

← →
WondeRu © (2005-03-29 15:13) [4]

ACaptureBuilder.FindInterface(@LOOK_UPSTREAM_ONLY, nil, AFilter, IID_IAMCrossbar, FAMCrossbar); ............................... procedure TCrossbar.ShowPropertyPage; var pSpec : ISpecifyPropertyPages; cauuid : TCAGUID; begin if FAMCrossBar.QueryInterface(IID_ISpecifyPropertyPages, pSpec) = s_OK then if pSpec.GetPages(cauuid) = s_OK then if OleCreatePropertyFrame(0, 50, 50, "Crossbar", 1, @FAMCrossBar, cauuid.cElems, cauuid.pElems, 0, 0, nil) = s_OK then begin CoTaskMemFree(cauuid.pElems); end; pSpec := nil; end;

← →
VIS © (2005-03-29 17:07) [5]

а если без кроссбара?
у меня его нет

← →
WondeRu © (2005-03-29 17:22) [6]

ага... у тебя видимо и не только этого нет! (:

← →
VIS © (2005-03-29 17:53) [7]

SysDev:= TSysDevEnum.Create(CLSID_VideoInputDeviceCategory);
if SysDev.CountFilters > 0 then
FilterGraph.ClearGraph;
FilterGraph.Active := false;
Filter.BaseFilter.Moniker := SysDev.GetMoniker(TMenuItem(Sender).tag);
FilterGraph.Active := true;
with FilterGraph as ICaptureGraphBuilder2 do
RenderStream(@PIN_CATEGORY_PREVIEW, nil, Filter as IBaseFilter, SampleGrabber as IBaseFilter, VideoWindow as IbaseFilter);
FilterGraph.Play;
VideoForm.Timer1.Enabled:=true;

вот мой код
тут определяеться твтюнер и кнему привязываеться поток.
я использовал directshow9
а как переключиться незнаю.

← →
WondeRu © (2005-03-30 08:33) [8]

SysDev:= TSysDevEnum.Create(CLSID_VideoInputDeviceCategory); if SysDev.CountFilters > 0 then FilterGraph.ClearGraph; FilterGraph.Active := false; Filter.BaseFilter.Moniker := SysDev.GetMoniker(TMenuItem(Sender).tag); FilterGraph.Active := true; FCrossbar := TCrossbar.Create(FFilterGraph as ICaptureGraphBuilder2, FFilter as IBaseFilter); with FilterGraph as ICaptureGraphBuilder2 do RenderStream(@PIN_CATEGORY_PREVIEW, nil, Filter as IBaseFilter, SampleGrabber as IBaseFilter, VideoWindow as IbaseFilter); FilterGraph.Play; VideoForm.Timer1.Enabled:=true; constructor TCrossbar.Create(ACaptureBuilder: ICaptureGraphBuilder2; AFilter: IBaseFilter); .... begin FNowRoute := 0; ACaptureBuilder.FindInterface(@LOOK_UPSTREAM_ONLY, nil, AFilter, IID_IAMCrossbar, FAMCrossbar); ...... end;

← →
VIS © (2005-03-30 10:03) [9]

спасибо. это мне пригодилось.
хочу задать ешё один вопрос но он к теме не относится.
как завершить программу которая сидит в трей.
через ctrl-alt-del система глючит и перезагружаеться.
например fly2000

← →
WondeRu © (2005-03-30 12:05) [10]

TerminateProcess

← →
VIS © (2005-03-31 11:44) [11]

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

← →
WondeRu © (2005-03-31 12:05) [12]

SendMessage, WM_CLOSE

← →
VIS © (2005-04-13 13:22) [13]

в чём заключаецца работа кроссбара?

это переключалка источника видеосигнала и рендерера...

нет какой нибудь стандартной процедуры которая бы спомощью нескольких параметров переключала его?

берешь у кроссбара и переключаешь!

примерчик можеш дать?

дал выше....
+
DirectX SDK

tuner Найти похожие ветки