Как исправить ошибку: Incompatible types: 'DirectShow9._AMMediaType' and 'FilterOutput._AMMediaType'

@legat · Регистрация: 02.08.2021

Author24 — интернет-сервис помощи студентам

Пытаюсь создать фильтр DirectShow но столкнулся с проблемами в грамматике.
Вот код моего юнита

Delphi

unit FilterOutput;
 
{$HPPEMIT '#include "RleFilt.h"'}
{$HPPEMIT '#include "initguid.h"'}
{$HPPEMIT '#include "Dshow.h"'}
 
interface
 
uses DirectShow9, ActiveX, BaseClass, Windows;
 
  const
   IID_FilterOutput                 : TGUID = '{364859F3-885F-4DA3-9EA7-595EE06A3DB9}';
  {$EXTERNALSYM IID_FilterOutput}
 
type
    PAMMediaType = ^TAMMediaType;
  _AMMediaType = record
    majortype            : TGUID;
    subtype              : TGUID;
    bFixedSizeSamples    : BOOL;
    bTemporalCompression : BOOL;
    lSampleSize          : ULONG;
    formattype           : TGUID;
    pUnk                 : IUnknown;
    cbFormat             : ULONG;
    pbFormat             : Pointer;
  end;
  {$EXTERNALSYM _AMMediaType}
  AM_MEDIA_TYPE = _AMMediaType;
  {$EXTERNALSYM AM_MEDIA_TYPE}
  TAMMediaType = _AMMediaType;
 
type
 
  FilterOutputs = class (TBCBaseFilter)
 
    private
 
    public
    inPin: TBCBasePin;
 
    function ReceiveConnection(pConnector1: IPin ; pmt: AM_MEDIA_TYPE):HRESULT; stdcall;
 
   end;
 
 var
  MediaType: TAMMediaType;
  // pin: IPin;
 
 
implementation
 
{ cFilterOutput }
 
 
 
{ cFilterOutput }
 
function FilterOutputs.ReceiveConnection(pConnector1: IPin;
  pmt: AM_MEDIA_TYPE): HRESULT; stdcall;
 
begin
 
  MediaType:= pmt;
  inPin.ReceiveConnection(pConnector1,pmt);
 
end;
 
end.

Ошибка в строке 65
[Error] FilterOutput.pas(65): Incompatible types: 'DirectShow9._AMMediaType' and 'FilterOutput._AMMediaType'

Структура _AMMediaType полностью скопирована из модуля DirectShow9.
По идеи работать должно так: ReceiveConnection вызывается другим фильтром предоставляя параметры. Мне нужно на них отреагировать и сделать как сказано в MSDN:

"1. сохранить тип носителя и вернуть тот же тип в методе IPin :: ConnectionMediaType.
2. сохранить интерфейс IPin выходного вывода (pConnector) и вернуть этот указатель в методе IPin :: ConnectedTo"

Ошибка простая, в интернете есть ответы с обычным integer но этого мне не хватает. Не могу сообразить.

DenNik · 18.11.2021, 12:24

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

Incompatible types: 'DirectShow9._AMMediaType' and 'FilterOutput._AMMediaType'

Для компилятора это совершенно разные типы. А ты не знал?

Добавлено через 11 минут

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

Структура _AMMediaType полностью скопирована из модуля DirectShow9.

Зачем?

@legat · 18.11.2021, 15:49 **[ТС]**

Да, компилятор видит их как разные, при этом они пересекаются и работать не хотят.
Зная принцип работы DirectShow я сомневаюсь, что смогу сохранить данные этой структуры для дальнейшего применения не создавая в своем модуле локальную.
Даже если ему нужен именно тип из DirectShow, я пробовал указывать именно этот тип в объявлениях. Так же я пробовал переименовывать свою структуру но это не привело ни к чему.
К тому же я не могу использовать структуру DirectShow у себя, я не могу ее объявить.
Что то я упускаю, а что понять не могу.

Добавлено через 5 минут
Кстати так описан этот метод в BaseClass

Delphi

1 2	function TBCBasePin.ReceiveConnection(pConnector: IPin; const pmt: TAMMediaType): HRESULT;

Есть такой же Ipin В DirectShow9 в виде интерфейса, но я не видел в MSDN рекомендации применять его (вообще об этом речи не было)

Delphi

 IPin = interface(IUnknown)
    ['{56A86891-0AD4-11CE-B03A-0020AF0BA770}']
...
function ConnectionMediaType(out pmt: TAMMediaType): HResult; stdcall;

Результат у нее такой же.

Добавлено через 3 часа 2 минуты
Осенило, блин

, я эту ошибку не одну сотню раз видел

... Сделал из мухи слона

.
Элементарно поставил в кавычки (убрал структуру) все заработало.
А теперь вопрос: в своем поведении будет чем то отличатся от (к примеру) integer? (П.С кроме обращения к каждой переменной MediaType.subtype:= ['{EA4FDA1C-DD92-42C7-81B0-4F7604C71BCB}']; )
Меня волнует тот факт, что DShow возьмет и перепишет содержимое. Или он не зависит от Dshow?

Delphi

var
  MediaType: TAMMediaType;
  //аналогично
  i: integer;

DenNik Житель Земли 3003 / 3008 / 391 Регистрация: 26.07.2011 Сообщений: 11,464 Записей в блоге: 1
	18.11.2021, 12:24	2
	Сообщение было отмечено legat как решение Решение Сообщение от legat Incompatible types: 'DirectShow9._AMMediaType' and 'FilterOutput._AMMediaType' Для компилятора это совершенно разные типы. А ты не знал? Добавлено через 11 минут Сообщение от legat Структура _AMMediaType полностью скопирована из модуля DirectShow9. Зачем? 0

	18.11.2021, 15:49

Как исправить ошибку: Incompatible types: 'DirectShow9._AMMediaType' and 'FilterOutput._AMMediaType'

Решение