const  // глобальные константы
CLSID_FfdshowVideoDecoder : TGUID = '{04FE9017-F873-410E-871E-AB91661A4EF7}';
CLSID_ffdshowAudioDecoder : TGUID = '{0F40E1E5-4F79-4988-B1A9-CC98794E6B55}';
CLSID_haaliMediaSplitter : TGUID = '{55DA30FC-F16B-49FC-BAA5-AE59FC65F82D}';
CLSID_AC3ParserFilter : TGUID = '{280A3020-86CF-11D1-ABE6-00A0C905F375}'; //mpg2splt.ax
CLSID_AC3Filter : TGUID = '{A753A1EC-973E-4718-AF8E-A3F554D45C44}'; //ac3filter.ax
CLSID_ElecardMPEGDemultiplexer : TGUID = '{136DCBF5-3874-4B70-AE3E-15997D6334F7}';

var // глобальные переменные
   pGraphBuilder        : IGraphBuilder         = nil;  
   pCaptureGraphBuilder : ICaptureGraphBuilder2 = nil;
   pMediaControl        : IMediaControl         = nil;
   pMediaEvent          : IMediaEvent           = nil;
   pVideoWindow         : IVideoWindow          = nil;
   pMediaPosition       : IMediaPosition        = nil;
   pBasicAudio          : IBasicAudio           = nil;  
   pBasicVideo : IBasicVideo = nil;
   fSource : IBaseFilter = nil;
   ffdshow_video : IBaseFilter = nil;
   ffdshow_audio : IBaseFilter = nil;
//  haali : IBaseFilter = nil;
   ac3filter : IBaseFilter = nil;
   ac3parser : IBaseFilter = nil;
   ElecardDemultiplexer : IBaseFilter = nil;
   pAudioRender : IBaseFilter = nil;
   pVideoRender : IBaseFilter = nil;

function FindPin(const filter: IBaseFilter; const pinDir: _PinDirection; var pinOut: IPin):Boolean;
var
    enumPins: IEnumPins;
    Direction : _PinDirection;
begin
    Result := False;
    enumPins := nil;
    filter.EnumPins(enumPins);
    while enumPins.Next(1,pinOut,0)=s_ok do
      begin
        pinOut.QueryDirection(Direction);
        if Direction=pinDir then
        begin
          Result := True;
          enumPins := nil;
          Exit;
        end;
      end;
    if Assigned(enumPins) then enumPins := nil;
end;

function buildgraph: hresult;
var
    pin : IPin;
    mediatype : TAMMediaType;
    InPin, OutPin : IPin;
begin
CoCreateInstance(CLSID_FilterGraph, nil, CLSCTX_INPROC_SERVER , IID_IGraphBuilder, pGraphBuilder);
CoCreateInstance(CLSID_CaptureGraphBuilder2, NIL, CLSCTX_INPROC_SERVER, IID_ICaptureGraphBuilder2,
                           pCaptureGraphBuilder);
pCaptureGraphBuilder.SetFiltergraph(pGraphBuilder);
pGraphBuilder.AddSourceFilter(StringToOleStr(FileName),'source file',fSource);

CoCreateInstance(CLSID_AudioRender, nil, CLSCTX_INPROC, IID_IBaseFilter, pAudioRender);
pGraphBuilder.AddFilter(pAudioRender, 'DirectSound Audio Renderer');

CoCreateInstance(CLSID_VideoMixingRenderer9, nil, CLSCTX_INPROC, IID_IBaseFilter, pVideoRender);
pGraphBuilder.AddFilter(pVideoRender, 'Video Mixing Renderer 9');

CoCreateInstance(CLSID_ElecardMPEGDemultiplexer,nil,CLSCTX_INPROC_SERVER,IID_IBaseFilter,ElecardDemultiplexer);
pGraphBuilder.AddFilter(ElecardDemultiplexer,'elecard demultiplexer');

CoCreateInstance(CLSID_FfdshowVideoDecoder,nil,CLSCTX_INPROC,IID_IBaseFilter,ffdshow_video);
pGraphBuilder.AddFilter(ffdshow_video,'ffdshow video decoder');

{CoCreateInstance(CLSID_ffdshowAudioDecoder,nil,CLSCTX_INPROC,IID_IBaseFilter,ffdshow_audio);
pGraphBuilder.AddFilter(ffdshow_audio,'ffdshow audio decoder');}

CoCreateInstance(CLSID_AC3Filter,nil,CLSCTX_INPROC,IID_IBaseFilter,ac3filter);
pGraphBuilder.AddFilter(ac3filter,'ac3filter');

{CoCreateInstance(CLSID_AC3ParserFilter,nil,CLSCTX_INPROC,IID_IBaseFilter,ac3parser);
pGraphBuilder.AddFilter(ac3parser,'ac3parser');}

    if not FindPin(fSource,PINDIR_OUTPUT,pin) then
    begin
      ClearGraph;
      Result := S_FALSE;
      Exit;
    end;
    pin.ConnectionMediaType(mediatype);

    Result := pCaptureGraphBuilder.RenderStream(nil, mediatype.pbFormat, fSource, nil ,pAudioRender);
    Result := pCaptureGraphBuilder.RenderStream(nil, mediatype.pbFormat, fSource, nil ,pVideoRender);

    MoFreeMediaType(@mediatype);

     pGraphBuilder.QueryInterface(IID_IBasicAudio,pBasicAudio);
     pGraphBuilder.QueryInterface(IID_IBasicVideo,pBasicVideo);
     pGraphBuilder.QueryInterface(IID_IMediaControl,pMediaControl);
     pGraphBuilder.QueryInterface(IID_IMediaPosition,pMediaPosition);
     pGraphBuilder.QueryInterface(IID_IVideoWindow,pVideoWindow);