[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;

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

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