VPF::TV-Tuner - Форум программистов

Casper2006

Дата 5.3.2007, 12:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 14.12.2006

Репутация: нет
Всего: нет

Здраствуйте !
Подскажите пожалуста как из Delphi переключить тюнер из отображения каналов (телевизор) на отображения картинки из ТВ-входа. Потому что если ето зделать программой которая идет из тюнером то при перезагрузке компа моя программа запускается и отображает картинку не из ТВ-входа а из антены. Если перед ее запуском включить а потом выключить программу которая идет с тюнером то все работает но нужно чтоб программа сама переключала тюнер.
Зарание спасибо !

Moid

Дата 5.3.2007, 12:44 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 396
Регистрация: 27.3.2006

Репутация: нет
Всего: 3

Попробуй использовать прогу для просмотра с тюнера Fly2000Tv. Я пользуюсь ею. Всё работает отлично и удобная она

--------------------

"Всё должно быть сделано настолько простым, насколько это возможно, но не проще" (с) А.Эйнштейн

Casper2006

Дата 5.3.2007, 14:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 14.12.2006

Репутация: нет
Всего: нет

Спасиббо за ответ но проблемма в том что мне надо зделать так чтоб переключала тюнер программа которою я пишу на Делфи. Для отображения картинки использую DS-Pack.

Toboom

Дата 5.3.2007, 17:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 46
Регистрация: 16.12.2005

Репутация: нет
Всего: нет

За подключение входов отвечает
pBar:IAMCrossbar;

Так можно перебрать имеющиеся пины:

Код


    with FilterGraph as ICaptureGraphBuilder2 Do FindInterface
   (@look_upstream_only, nil, Filter as IBaseFilter, IID_IAMCrossBar, pBar);
    If pBar=nil Then
    begin
      ShowMessage('Не могу получить интерфейс Кроссбара!!! Работа с этим устройством невозможна.'); Exit
    end;
    pBar.get_PinCounts(Pout,Pin);
    If not Succeeded(pBar.get_PinCounts(Pout,Pin)) Then
    begin
      ShowMessage('Не могу получить пины Кроссбара!!! Работа с этим устройством невозможна.'); Exit
    end;
    For I:=0 To PIn Do
    if Succeeded(pBar.get_CrossbarPinInfo(True, I, PIrelated, PinType)) Then
    begin
      Case PinType Of
        PhysConn_Video_Tuner:
        begin
          MemoInfo.Lines.Add('TVTuner PinIndex ='+IntToStr(I));
          TunerPinIndex:=I; LBInput.Items.Add(sTuner);
        end;
        PhysConn_Video_Composite:
        begin
          MemoInfo.Lines.Add('Composite PinIndex ='+IntToStr(I));
          CompositePinIndex:=I; LBInput.Items.Add(sComposite);
        end;
        PhysConn_Video_SVideo:
        begin
          MemoInfo.Lines.Add('SVideo PinIndex ='+IntToStr(I));
          SVideoPinIndex:=I; LBInput.Items.Add(sSVideo);
        end;
        PhysConn_Audio_Tuner:
        begin
          MemoInfo.Lines.Add('AudioTuner PinIndex ='+IntToStr(I));
          AudioTunerPinIndex:=I;
        end;
      end {of case}
    end
  end;

А так подключит необходимый пин:

Код



  If not Succeeded(pBar.Route(OutVideoDecoderPinIndex,PIN)) Then
  begin ShowMessage('Невозможно подключить ВидеоВход!'); Exit end;

M
Alexeis

Используйте подсветку кода. Как это примерно делается можно посмотреть тут
http://forum.vingrad.ru/index.php?showtopic=126445

Это сообщение отредактировал(а) Alexeis - 5.3.2007, 18:41

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »