Вопрос решил по сигналу что бы работало без запуска программы beholder TV добавил фильтр к MPEG 2 demultiplexer ещё один фильтр это

KSCATEGORY_BDA_TRANSPORT_INFORMATION,

hr := LoadFilter (
KSCATEGORY_BDA_TRANSPORT_INFORMATION,
FTIF,
FDemux,
TRUE, ''
);
if (FAILED (hr)) then
begin
WriteLog('Cannot load TIF');
Result := hr;
Exit;
end;







Все вопросы решил почти,Осталось переключение PLP и получить уровень сигнала SNR, поток программ 1 мультиплекса я получил 8 программ видео 2 радио ,это все в одном TS потоке, все программы разом. что хотел то получил, осталось дело за малым, PLP и получить уровень сигнала SNR




Подскажите как получить уровень сигнала SNR?



Как правильно получить сигналы уровня в DVB ,а то в WINDOWS7 оба индикатора показывают 100% ,в ХР работает нормально, Как получить сигнал SNR

Спасибо.

Подскажите пожалуйста:
1: Как использовать KSPROPERTY_BDA_PLP_NUMBER, не могу понять и найти.
2. Получить сигнал уровня SNR.




Кому интересно нашел на си модуль Header_DirectShow.h



Нашел исходник на си (DVB T2) Кому нужно скачивайте.

Спасибо.

Продолжение к библиотеки для исходника.

В этих исходниках на СИ нашел что можно получить(задать) сигнал и PLP ,
но как мне их использовать пока не могу понять может кто что подскажет?



using System;
using DirectShowLib;
using DirectShowLib.BDA;
using DVBT2Viewer.BDA.Helpers;
using DVBT2Viewer.BDA.Helpers.HelperTypes;
using DVBT2Viewer.BDA.Interfaces;

namespace DVBT2Viewer.BDA
{
internal abstract class DVBT2BaseGraphCommands
{
/// <summary>
/// Build DVB-T/T2 tune request
/// </summary>
/// <param name="aFrequency">Tune frequency</param>
/// <param name="aBandwidth">Tune bandwidth</param>
/// <returns>ITuneRequest implementation</returns>
protected ITuneRequest GetTuneRequest(int aFrequency, int aBandwidth)
{
if (aFrequency == -1 || aBandwidth == -1)
throw new Exception("Invalid tune");

ITuneRequest baseTuneRequest;
GetGraph().TuningSpace.CreateTuneRequest(out baseTuneRequest);
var tuneRequest = (IDVBTuneRequest)baseTuneRequest;
var locator = (IDVBTLocator)new DVBTLocator();
var hr = locator.put_CarrierFrequency(aFrequency);
DsError.ThrowExceptionForHR(hr);
hr = locator.put_Bandwidth(aBandwidth);
DsError.ThrowExceptionForHR(hr);
hr = tuneRequest.put_Locator(locator);
DsError.ThrowExceptionForHR(hr);

return tuneRequest;
}

/// <summary>
/// Set active PLP ID
/// </summary>
/// <param name="plp">PLP ID</param>
protected void SetPlp(int plp)
{
var plpSupported = KsPropertyHelper.KSSupported(GetGraph().TunerPin, KSPropSets.KSPROPSETID_BdaDigitalDemodulator,
(int)KSPROPERTY_BDA_DIGITAL_DEMODULATOR.KSPROPERTY_BDA_PLP_NUMBER);
if (plpSupported.HasFlag(KSPropertySupport.Set))
KsPropertyHelper.KSSetNode(GetGraph().TunerPin, KSPropSets.KSPROPSETID_BdaDigitalDemodulator,
(int)KSPROPERTY_BDA_DIGITAL_DEMODULATOR.KSPROPERTY_BDA_PLP_NUMBER, plp);
}

protected abstract IDVBT2BaseGraphProps GetGraph();
}


}

//-------------------------------------------------------------------------------

там же нашел

namespace DVBT2Viewer.BDA.Graph
{
class TunerKspNodeManager
{
private readonly IKsPropertySet ksProperty;

internal TunerKspNodeManager(IKsPropertySet tunerKsProperty)
{
ksProperty = tunerKsProperty;
}

public void SetPlpId(int plp)
{
KsPropertyHelper.KSSetNode(ksProperty, KSPropSets.KSPROPSETID_BdaDigitalDemodulator,
(int)KSPROPERTY_BDA_DIGITAL_DEMODULATOR.KSPROPERTY_BDA_PLP_NUMBER, plp);
}

public int GetPlpCount()
{
return (int)KsPropertyHelper.KSGetNode(ksProperty, KSPropSets.KSPROPSETID_BdaDigitalDemodulator,
(int)KSPROPERTY_BDA_DIGITAL_DEMODULATOR.KSPROPERTY_BDA_PLP_NUMBER, typeof(int));
}

Tolyan249
Для работы с DVB устройствами общий принцип такой:
- Через ICreateDevEnum::CreateClassEnumerator находится нужное устройство типа KSCATEGORY_BDA_NETWORK_TUNER и создается его инстанс.
- Инстанс BDA тюнера сканируется на наличие узлов Tuner Node и Demodulator Node

- В узле Demodulator Node используется KsProperty KSPROPSETID_BdaDigitalDemodulator для доступа в частности к свойству KSPROPERTY_BDA_PLP_NUMBER
- В узле Tuner Node используется KsProperty KSPROPSETID_BdaSignalStats для доступа к свойствам KSPROPERTY_BDA_SIGNAL_STRENGTH, KSPROPERTY_BDA_SIGNAL_QUALITY, KSPROPERTY_BDA_SIGNAL_PRESENT, KSPROPERTY_BDA_SIGNAL_LOCKED.

В разных интерпретациях KSPROPSETID_BdaSignalStats может быть реализовано как в узле Tuner Node, так и в узле Demodulator Node, поэтому нужно просканировать оба узла на предмет получения доступа к KSPROPSETID_BdaSignalStats.

В наших драйверах KSPROPSETID_BdaSignalStats находится всегда в узле Tuner Node.

Ясно, спасибо,за ответ , вся проблема что я граф собрал все работает каналы сканирует, видео и звук
есть,ну естественно только 8 каналов тв и 2-радио ,ну видать которые идут в PLP 0 ,придется наверно граф переcтраиваать? У меня граф собран как на картинке в месте с Samle Grabberom до MPEG 2 demultiplexer. задаю pid video and pid audio, все работает.

соеденил все пины как на картинках которые в посте выше. Пытаюсь взять то что исходник выложил на си , но в си я не селен. Если бы кто смог на pascal перевести, тогда может что то и сдвинулось бы с места, застрял на одном месте.

Ну буду пробовать искать, спасибо еще раз за помощь советы и ответы. Будут вопросы напишу.

исходника на си получение сигнала и ну и так далее
Спасибо за помощь.

Вот у меня написано:




// Load tuner device and connect to network provider
hr := LoadFilter(KSCATEGORY_BDA_NETWORK_TUNER, FTunerDevice,FNetworkProvider, True, TunerPath);
if FAILED( hr) then
begin
WriteLog('Could not load tuner.' + SysErrorMessage(hr));
Result := hr;
Exit;
end;


как я понял нужно у FTunerDevice-найти Инстанс BDA тюнера сканируется на наличие узлов Tuner Node и Demodulator Node .

KSPROPSETID_BdaDigitalDemodulator -это есть в directshow
KSPROPSETID_BdaSignalStats - это есть в directshow;

Tuner Node такого нет в directshow, как правильно написать Tuner Node ?





hr:= (FTunerDevice.QueryInterface(IID_IBDA_Topology, topology) );
if FAILED( hr) then
begin
Exit;
end;



Так ошибки нет но что дальше делать я не знаю как найти Инстанс BDA тюнера ,и там найти KSPROPSETID_BdaSignalStats ?

вот в directshow нашел:

//===========================================================================
//
// BDA Node Categories
//
//===========================================================================

KSNODE_BDA_RF_TUNER : TGUID = '{71985F4C-1CA1-11d3-9CC8-00C04F7971E0}';
{$EXTERNALSYM KSNODE_BDA_RF_TUNER}
KSNODE_BDA_QAM_DEMODULATOR : TGUID = '{71985F4D-1CA1-11d3-9CC8-00C04F7971E0}';
{$EXTERNALSYM KSNODE_BDA_QAM_DEMODULATOR}
KSNODE_BDA_QPSK_DEMODULATOR : TGUID = '{6390C905-27C1-4d67-BDB7-77C50D079300}';
{$EXTERNALSYM KSNODE_BDA_QPSK_DEMODULATOR}
KSNODE_BDA_8VSB_DEMODULATOR : TGUID = '{71985F4F-1CA1-11d3-9CC8-00C04F7971E0}';
{$EXTERNALSYM KSNODE_BDA_8VSB_DEMODULATOR}
KSNODE_BDA_OPENCABLE_POD : TGUID = '{D83EF8FC-F3B8-45ab-8B71-ECF7C339DEB4}';
{$EXTERNALSYM KSNODE_BDA_OPENCABLE_POD}
KSNODE_BDA_PID_FILTER : TGUID = '{F5412789-B0A0-44e1-AE4F-EE999B1B7FBE}';
{$EXTERNALSYM KSNODE_BDA_PID_FILTER}
KSNODE_BDA_IP_SINK : TGUID = '{71985F4E-1CA1-11d3-9CC8-00C04F7971E0}';
{$EXTERNALSYM KSNODE_BDA_IP_SINK}

KSNODE_BDA_COFDM_DEMODULATOR: TGUID = '{2DAC6E05-EDBE-4b9c-B387-1B6FAD7D6495}';
{$EXTERNALSYM KSNODE_BDA_COFDM_DEMODULATOR}
KSNODE_BDA_COMMON_CA_POD : TGUID = '{D83EF8FC-F3B8-45ab-8B71-ECF7C339DEB4}';
{$EXTERNALSYM KSNODE_BDA_COMMON_CA_POD}

//===========================================================================



Но как это всё использовать пока не знаю может кто что объяснит?



что обозначает на си вот это object ostats;


Спасибо.

нашел интерфейс KSPROPSETID_BdaSignalStats : TGUID = '{1347D106-CF3A-428a-A5CB-AC0D9A2A4338}';




function TBDAFilterGraph.GetTopologySIGN:Hresult;
var
enum: IEnumFilters;
topology: IBDA_Topology;
nodetypeslist: array[0..63] of Cardinal;
nodetypes: Cardinal;
nodeinterfaceslist: array[0..63] of TGuid;
nodeinterfaces: Cardinal;
i, c: Integer;
unk: IUnknown;
bda: IUnknown;
filter_info: TFilterInfo;
list:TstringList;
hr:hresult;

begin
list:=TstringList.Create;
for i:=0 to 63 do nodetypeslist[i]:=0;

try
if (FTunerDevice.QueryInterface(IID_IBDA_Topology, topology) = S_OK) then
if topology.GetNodeTypes(nodetypes, 10, nodetypeslist[0])=S_OK then
if nodetypes > 0 then
for i := 0 to nodetypes -1 do
if topology.GetNodeInterfaces(nodetypeslist[i], nodeinterfaces, 10, @nodeinterfaceslist) = S_OK then
if nodeinterfaces > 0 then
for c := 0 to nodeinterfaces -1 do
if IsEqualGUID(nodeinterfaceslist[c], KSPROPSETID_BdaSignalStats) then
begin
hr:=topology.GetControlNode(0, 1, nodetypeslist[i], unk);
if Failed(hr) then
begin
Exit;
end;

не выполняется действие выделенное цветовом , дает ошибку, хотя KSPROPSETID_BdaSignalStats найден , но

hr:=topology.GetControlNode(0, 1, nodetypeslist[i], unk)-ошибка,не могу понят почему,может поможете найти ошибку ?


Спасибо.

Tolyan249
Уважайте других участников форума, не нужно постить столько кода, да еще не обрамленного тегами.

Вот вам гарантированно рабочий пример парсинга топологии фильтра DVB тюнера на ObjectPascal. Проверено лично.

Понял ,исправлюсь.
Спасибо огромное за помощь,за ответы, а то застрял на одном месте и в нете не могу найти, хотя сравниваю с си то что нашел, вроде должно работать но не работало. Еще раз Спасибо огромное.

Странно вот тут также дает ошибку как у меня в этом же предложении:

hr := pTopology.GetControlNode(0, 1, node_types_list[i], pUnk);
hr=-2147467261;

Вот это предложение переделал ,Delphi давала ошибку на
hr := pTopology.GetNodeTypes(node_types, 10,node_types_list);

так как node_types_list это массив пришлось сделать так
node_types_list[0]

в node_types_list -массив содержит цифры (0,1,0,0,0,0,0,0,0,0),т.е. одна 1 в массиве.

Не понятно почему дает ошибку что не так?

1) В ParseBdaTopology передается указатель на DS фильтр "Behold TV XXX: DVB-T Frontend"
2) Этот DS фильтр должен быть добавлен в граф
3) В граф должен быть добавлен DS фильтр "Behold TV XXX: DVB-T Capture"
4) В граф должен быть добавлен DS фильтр "Microsoft DVB-T Network Provider"
5) Все 3 DS фильтра должны быть соединены.

GetControlNode должен вернуть указатель и hr без ошибки. node_types = 2, в node_types_list два значения, 0 и 1. Это индексы двух нодов.

Да это все соединено я писал раньше, что каналы показывают .

у меня сделано так как на 1 странице моей темы на рисунке 2.PNG.

хотя возвращает данные правильно,те же что вы описали.

Граф фильтров не запущен.

да node_types = 2 это так и
node_types_list два значения (0,1,0,0,0,0,0,0,0,0),
1-значение это 0
2-значение это 1
возвращает вроде все правильно.

просто доходит до этого предложения и всё ошибка,остальное он до этого отрабатывает , находит интерфейс KSPROPSETID_BdaSignalStats, а когда нужно сделать
hr := pTopology.GetControlNode(0, 1, node_types_list[i], pUnk), по чему то возвращает ошибку.


в node_types_list[i] он должен передать 2 нода или 1 нод,?

если node_types_list[0] то передает только ноль, так как в массиве 1 значение это 0
если node_types_list[1] то передает только единицу, так как в массиве 2 значение это 1


Так же и KSPROPSETID_BdaDigitalDemodulator ставил, тоже находит все вроде хорошо, интерфейсы есть,ноды есть ,доходит до этой строчки
hr := pTopology.GetControlNode(0, 1, node_types_list[i], pUnk);

и все тоже самое.

Проверял и на запущенном графе,и не на запущенном графе ,все вроде нормально видео есть звук тоже каналы находит ,каналы переключаются, что граф построен правильно.

где искать ошибку не пойму ,не выполняется pTopology.GetControlNode, что делать не знаю посоветуйте где копать , что посмотреть?

Находит 3 интерфейса в вашей функции
function ParseBdaTopology(const pDvbtTuner : IBaseFilter) : HRESULT;



KSPROPSETID_BdaFrequencyFilter : TGUID = '{71985F47-1CA1-11d3-9CC8-00C04F7971E0}';
KSPROPSETID_BdaSignalStats : TGUID = '{1347D106-CF3A-428a-A5CB-AC0D9A2A4338}';
KSPROPSETID_BdaDigitalDemodulator : TGUID = '{EF30F379-985B-4d10-B640-A79D5E04E1E0}';

все вроде нормально но не работает
hr := pTopology.GetControlNode(0, 1, node_types_list[i], pUnk);

уже весь нет просмотрел веэде код почти одинаковый в основном на си, сути не меняет,вроде как должно работать.
Почему у меня не работает GetControlNode не понятно?

Что где искать причину не могу понять ,помогите пожалуйста.



В интернете нашел еще 2 функции на pas ,так же в этом месте дает ошибку,
Topology.GetControlNode

Просто переменная массива node_types_list
вызывается у вас
hr := pTopology.GetNodeTypes(node_types, 10, node_types_list);
у меня
hr := pTopology.GetNodeTypes(node_types, 10, node_types_list[0]);
скачанные с нета
hr := pTopology.GetNodeTypes(node_types, 10, PULONG(@node_types_list));

работает только как у меня,иначе delphi дает ошибку что переменная node_types_list ,это массив.

может ошибка тут закралась?

Пробовал и так
hr:=pTopology.GetControlNode(0, 1,0,pUnk);
и так
hr:=pTopology.GetControlNode(0, 1,1,pUnk);

без разницы,что то не хватает, чего понять не могу.

Спасибо за ответы и помощь.

Есть ощущение, что у вас C++ заголовки с интерфейсами портированы в pas модули некорректно. Либо в системе что-то с неисправно с COM объектами.

Для проверки, возьмите приложение AltDVB 2.2, оно точно работает через DirectShow и использует энумерацию IBDA_Topology. Оно у вас должно увидеть ваш DVB-T тюнер, при этом оно будет сканировать каналы и корректно показывать Level/Quality. Хоть и приложение старое и не умеет PLP, этого будет достаточно понять, что работает или нет. Я проверял, оно в Windows 10 прекрасно видит тюнер и работает.

Если работать не будет, значит проблема в вашей Windows системе.

Спасибо за ответ. Скачал ALTDVB проверил работает показывает сигнал.

Но программа ваша BEHOLDER работает в WINDOWS XP SP3 , каналы все сканирует, видит PLP и сигнал показывает все 3.

Значит проблема у меня, могу отправить проект (2мгб) на DElphi но куда не знаю,что бы посмотрели, может где ошибку допустил.


Даёт ошибку,не правильный указатель.



Вложил файл pas который работает у меня.
1.Создается граф
2.Подключаем NetworkProvider
3.Подключаем
//Интерфейс Тюнера
hr := FNetworkProvider.QueryInterface(IID_ITuner, FTuner);

4.
// Установка частоты тюнера DVB-T2
hr := CreateDVBTTuneRequest(ch,bn,DVBTuneRequest);


5. hr := FTuner.put_TuneRequest(DVBTuneRequest);

6.
hr := LoadFilter(KSCATEGORY_BDA_NETWORK_TUNER, FTunerDevice, FNetworkProvider, True, TunerPath);

7.Подключаем CAPTURE фильтр
hr := LoadFilter (KSCATEGORY_BDA_RECEIVER_COMPONENT, FCaptureDevice, FTunerDevice, TRUE, CapturePath);


8. Вызываю функцию вашу Topology
ParseBdaTopology(FTunerDevice);


8. Регистрация фильтра
hr := AddGraphToRot(FGraphBuilder, FGraphRegister);



Граф не запущен. Фильтры соединены,можно запустить. Сигнал показывает который идет с
FTuner.get_SignalStrength(strength);

А в функции ParseBdaTopology(FTunerDevice)
выдает Даёт ошибку,не правильный указатель в
hr := pTopology.GetControlNode(0, 1, node_types_list[i], pUnk);

Какой указатель на что указатель, почему не работает, хотя все остальное работает.

Что дальше делать не знаю и в интернете не могу найти в чем проблема.

Может кто поможет на основе моего кода который выложен , что то исправить ,если надо могу исходник дать. пишите мыло отправлю. Просто застрял на одном месте, и ни куда не двигаюсь, пото му что не знаю что где искать.


Спасибо за помощь.