| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

tuner

VIS ©   (2005-03-29 10:54:00) 

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

---

AlterEgo of WondeRu   (2005-04-13 21:04:00) [1]

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

---

VIS   (2005-04-13 17:39:00) [2]

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

---

WondeRu   (2005-04-13 17:06:00) [3]

WondeRu ©   (13.04.05 17:05) [16]
берешь у кроссбара и переключаешь!

*пины у кроссбара берешь

---

WondeRu   (2005-04-13 17:05:00) [4]

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

---

VIS   (2005-04-13 17:04:00) [5]

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

---

WondeRu   (2005-04-13 15:50:00) [6]

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

---

VIS   (2005-04-13 13:22:00) [7]

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

---

WondeRu   (2005-03-31 12:05:00) [8]

SendMessage, WM_CLOSE

---

VIS   (2005-03-31 11:44:00) [9]

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

---

WondeRu   (2005-03-30 12:05:00) [10]

TerminateProcess

---

VIS   (2005-03-30 10:03:00) [11]

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

---

WondeRu   (2005-03-30 08:33:00) [12]

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-29 17:53:00) [13]

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-29 17:22:00) [14]

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

---

VIS   (2005-03-29 17:07:00) [15]

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

---

WondeRu   (2005-03-29 15:13:00) [16]

 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 14:42:00) [17]

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

---

VIS   (2005-03-29 13:12:00) [18]

ок!

---

WondeRu   (2005-03-29 11:55:00) [19]

IAMCrossBar читать DirectX SDK

---

Наверх