🚀 go-pugleaf

"Jonathan Benedicto" <invalid@nobody.com> wrote in message
news:4469cd34@newsgroups.borland.com...

> No, Windows Media Player uses DirectShow.

Which in itself is not that hard to use.  I just recently wrote an app that
plays MP3s via DirectShow.  It only takes a few lines of code to play a
file, ie:

    #include <dshow.h>

    IGraphBuilder *Graph = NULL;
    IMediaControl *Control = NULL;
    IMediaSeeking *Seeker = NULL

    __fastcall TForm1::TForm1(TComponent *Owner)
        : TForm(Owner)
    {
        ::CoInitialize(NULL);
        if( SUCCEEDED(::CoCreateInstance(CLSID_FilterGraph, NULL,
CLSCTX_INPROC_SERVER, IID_IGraphBuilder, (LPVOID*)&Graph)) )
        {
            Graph->QueryInterface(IID_IMediaControl, (LPVOID*)&Control);
            Graph->QueryInterface(IID_IMediaSeeking, (LPVOID*)&Seeker);
        }
    }

    __fastcall TForm1::~TForm1()
    {
        if( Seeker )
            Seeker->Release();

        if( Control )
        {
            Control->Stop();
            Control->Release();
        }

        if( Graph )
            Graph->Release();

        ::CoUninitialize();
    }

    void __fastcall TForm1::OpenFileButtonClick(TObject *Sender)
    {
        if( Graph && Control )
        {
            if( OpenDialog1->Execute() )
            {
                Control->Stop();
                RemoveFilters();
                Graph->RenderFile(WideString(OpenDialog1->FileName), NULL);
            }
        }
    }

    void __fastcall TForm1::PlayFileButtonClick(TObject *Sender)
    {
        if( Control && Seeker )
        {
            REFERENCE_TIME rt = 0;
            if( SUCCEEDED(Seeker->SetPositions(&rt,
AM_SEEKING_AbsolutePositioning, NULL, AM_SEEKING_NoPositioning)) )
                Control->Run();
        }
    }

    void __fastcall TForm1::RemoveFilters()
    {
        IEnumFilters* pEnumFilters = NULL;
        IBaseFilter* pFilter = NULL;
        IEnumPins* pEnumPins = NULL;
        IPin* pPin = NULL;
        IPin* pOtherPin = NULL;

        if( SUCCEEDED(Graph->EnumFilters(&pEnumFilters)) )
        {
            while( pEnumFilters->Next(1, &pFilter, NULL) == S_OK )
            {
                if( SUCCEEDED(pFilter->EnumPins(&pEnumPins)) )
                {
                    while( pEnumPins->Next(1, &pPin, NULL) == S_OK )
                    {
                        if( pPin->ConnectedTo(&pOtherPin) == S_OK )
                        {
                            Graph->Disconnect(pPin);
                            Graph->Disconnect(pOtherPin);
                            pOtherPin->Release();
                        }
                        pPin->Release();
                    }
                    pEnumPins->Release();
                }
                Graph->RemoveFilter(pFilter);
                pFilter->Release();
                pEnumFilters->Reset();
            }
            pEnumFilters->Release();
        }
    }


Gambit