[flaunder]

При соединение фильтра, у которого много выходов с фильтром, у которого один вход прога ругается. Я в панике).
ругается здесь:


красным выделил сообщение, которое вылетает

Код:

вот процедура:

function GetPin(pFilter: IBaseFilter; pinDir: PIN_DIRECTION): IPin;
var
  bFound: Boolean;
  pEnum : IEnumPins;
  pPin  : IPin;
  PinDirThis: PIN_DIRECTION;

begin
  Result := nil;
  bFound := false;
  pFilter.EnumPins(pEnum);
  while (pEnum.Next(1, pPin, nil) = S_OK) do
  begin
    pPin.QueryDirection(PinDirThis);
    if (pinDir = PinDirThis) then
    begin
      bFound := true;
      break;
    end;
  end;
  pEnum.Reset;
  if bFound then Result := pPin;
end;

Админ: Пользуемся тегами для оформления кода!

Видимо надо здесь как то узнавать какой пин брать... плииз хеелп, а то бадааа буум))

[AlexSku]

Нет красного цвета. Где вылетает?

[flaunder]

спасибо администратору, который удалил весь второй листинг))

Код:

// берем пины
  pAVIspliterOutV := GetPin(pAVIspliter, PINDIR_OUTPUT);
  if not Assigned(pAVIspliterOutV) then begin
    ShowMessage('Не удается получить pAVIspliterOutV');
    exit;
  end;

  pVideodecoderIn := GetPin(pVideodecoder, PINDIR_INPUT);
  if not Assigned(pVideodecoderIn) then begin
    ShowMessage('Не удается получить pVideodecoderIn');
    exit;
  end;

  pAudiodecoderIn := GetPin(pAudiodecoder, PINDIR_INPUT);
  if not Assigned(pAudiodecoderIn) then begin
    ShowMessage('Не удается получить pAudiodecoderIn');
    exit;
  end;

  // соединяем
  hr := pGraphBuilder.Connect(pAVIspliterOutV, pVideodecoderIn);
  if FAILED(hr) then begin
    ShowMessage('Не удается соединить фильтры pAVIspliterOutV и pVideodecoderIn');
    exit;
  end;
  hr := pGraphBuilder.Connect(pAVIspliterOutV, pAudiodecoderIn);
  if FAILED(hr) then begin
    ShowMessage('Не удается соединить фильтры pAVIspliterOutV и pAudiodecoderIn');
    exit;
  end;

вот здесь должно быть выделено)

[AlexSku]

У вас два последних Connect не могут сработать одновременно, т.к. вы дважды задействовали пин pAVIspliterOutV. Попробуйте поменять местами, может, он соединится с pAudiodecoderIn. При нумерации и поиске пинов вы проверяете только направление (in/out), а надо ещё и тип среды (видео-, аудио-поток).

[flaunder]

А каким образом проверить видео поток это или нет?)

[AlexSku]

Когда вы находите IPin, то у него есть метод EnumMediaTypes. Это интерфейс IEnumMediaTypes, который через метод Next перечислит вам все возможные среды: массив структур AM_MEDIA_TYPE. Вот в этой структуре член majortype (GUID) будет равен или MEDIATYPE_Audio, или MEDIATYPE_Video, хотя есть и другие варианты. Извините, читаю справку (а там для Си), так что без примеров на Delphi.

[flaunder]

тогда получается мне находить этот majortype через свойства пина с помощью pPin.QueryPinInfo()? типо так?

[flaunder]

и ведь получилось таки)))) только не через тип майора)) а через название пина, оно тоже уникальное))) пришлось по подставлять, зато работает)) огромное спасибо.

[AlexSku]

Сообщение от flaunder

тогда получается мне находить этот majortype через свойства пина с помощью pPin.QueryPinInfo()? типо так?

Нет, я же сказал, что это метод:
pPin.EnumMediaTypes()

[AlexSku]

Сообщение от flaunder

и ведь получилось таки)))) только не через тип майора)) а через название пина, оно тоже уникальное))) пришлось по подставлять, зато работает)) огромное спасибо.

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

[flaunder]

ну я программу пишу, можно сказать, из графа) поэтому все должно быть чики-чики))

[flaunder]

появился еще один вопрос, мне для того, что бы сохранить в mov формате файл, надо видео и аудио поток соеденить при помощи фильтра MOV muxer. Но изначально у него только один вход, в граф едите) при соединение одного пина, сразу создается второй, а в делфи - нет. Как мне принудительно сделать еще один пин?

[AlexSku]

Нашёл пример, в котором сначала соединяют MUX с видеовходом, а затем ICaptureGraphBuilder2.RenderStream() подсоединит и аудиовход.