/*
 * MediaPlayer.h 
 * Copyright (c) 2011 Antillia.com TOSHIYUKI ARAI. ALL RIGHTS RESERVED. 
 */


/**
This is a simple Win32 C++ class (not MFC and WTL) to embed a WMPPlayer control 
(an OLE object) into your own window.
*/

// SOL9
// 2011/02/21
// 2011/12/12 Updated

#pragma once

#include <sol\Object.h>
#include <exdisp.h>
#include <sol\StringConverter.h>
#include <sol\String.h>
#include <sol\ole\IMediaPlayer.h>
#include <sol\ole\OleSite.h>

#include <sol\ole\OleInPlaceFrame.h>

#include <sol\ole\MediaEvents.h>
#include <sol/Stdio.h>

namespace SOL {

/**
 * Implementation of IMediaPlayer
 */
class MediaPlayer : public IMediaPlayer {

public:
    COleSite    oleSite;
    MediaEvents mediaEvents;
    IOleObject* oleObject;

    COleInPlaceFrame frame;

public:
    /**
     *
     */
    MediaPlayer()
        :oleObject(NULL)
    {
        oleSite.host  = this;
    }

public:
    Boolean create(View* parent, const TCHAR* name, Args& args)
    {
        Boolean rc = Composite::create(parent, name, args);
        createWebControl();

        return rc;
    }

public:
    /**
     *
     */
    ~MediaPlayer()
    {
        destroyWebControl();
    }

private:
    void createWebControl(void)
    {
        HRESULT hr = CoCreateInstance( __uuidof(WindowsMediaPlayer), 0, CLSCTX_INPROC_SERVER, 
                IID_IOleObject, 
                (void **)&oleObject);
            
        if (FAILED(hr)) throw hr;

        HWND hwnd = getWindow();

        oleObject->SetHostNames(L"WMP Host", L"WMP View");
        OleSetContainedObject(oleObject, TRUE);

        hr = oleObject-> SetClientSite(&oleSite);
        if (FAILED(hr)) throw hr;
                        
        RECT r;            
        GetClientRect(hwnd, &r);
        hr = oleObject->DoVerb(
                //OLEIVERB_INPLACEACTIVATE,
                OLEIVERB_SHOW, 
                NULL, (IOleClientSite*) &oleSite, -1, 
                hwnd, 
                &r);
        if (FAILED(hr)) throw hr;

        IWMPPlayer4* pPlayer = NULL;
        hr = oleObject->QueryInterface(__uuidof(IWMPPlayer4), 
                (void**)&pPlayer);
        if (FAILED(hr)) throw hr;

        hr = mediaEvents.Advise(oleObject, __uuidof(IWMPEvents));
        if (FAILED(hr)) throw hr;

        IWMPSettings *pSettings=NULL;

        hr = pPlayer->QueryInterface(__uuidof(IWMPSettings), (void **)&pSettings);
        if (FAILED(hr)) throw hr;

        pPlayer->put_uiMode(_bstr_t("full"));
            
        pPlayer->put_enabled(VARIANT_TRUE);
        pSettings->put_enableErrorDialogs(VARIANT_TRUE);
        pPlayer->Release();
        pSettings->Release();
        
    }

public:
    //2011/12/12
    IWMPSettings* getSettings()
    {
        IWMPPlayer4* pPlayer = NULL;
        HRESULT hr = oleObject->QueryInterface(__uuidof(IWMPPlayer4), (void**)&pPlayer);
        if (FAILED(hr)) {
            throw hr;
        }

        IWMPSettings *pSettings=NULL;

        hr = pPlayer->QueryInterface(__uuidof(IWMPSettings), (void **)&pSettings);
        if (FAILED(hr)) {
            throw hr;
        }
        return pSettings;
    }

public:
    //2011/12/12
    IWMPControls* getControls()
    {
        IWMPPlayer4* pPlayer = NULL;
        HRESULT hr = oleObject->QueryInterface(__uuidof(IWMPPlayer4), (void**)&pPlayer);
        if (FAILED(hr)) {
            throw hr;
        }

        IWMPControls *pControls = NULL;

        hr = pPlayer->QueryInterface(__uuidof(IWMPControls), (void **)&pControls);
        if (FAILED(hr)) {
            throw hr;
        }
        return pControls;
    }                        

public:
    HRESULT    QueryInterface(REFIID riid, void ** ppvObject)
    {
        if(ppvObject == NULL) {
            return E_INVALIDARG;
        }

        *ppvObject = NULL;
            
        if(riid == IID_IUnknown) {
                *ppvObject = this;
        } else if(riid == IID_IOleClientSite) {
                *ppvObject = &oleSite;
        } else if(riid == __uuidof(IWMPEvents)) {
                *ppvObject = &mediaEvents;
        }

        if(*ppvObject == NULL) {
            return E_NOINTERFACE;
        }
            //AddRef();
        return S_OK;
    }

public:
    void play(const TCHAR* url) 
    {
        IWMPPlayer4* pPlayer = NULL;
        if (oleObject ==NULL) {
            return;
        }
        HRESULT hr = oleObject->QueryInterface(__uuidof(IWMPPlayer4), (void**)&pPlayer);
        if (FAILED(hr)) throw hr;

        IWMPControls *pControls = NULL;

        hr = pPlayer->QueryInterface(__uuidof(IWMPControls), (void **)&pControls);
        if (FAILED(hr)) throw hr;

        pControls->stop();
                        
        pPlayer->put_enabled(VARIANT_TRUE);
        pPlayer->put_URL(_bstr_t(url));    
        pControls->play();

        pControls->Release();
        pPlayer->Release();
    }

private:
    void destroyWebControl()
    {
        HRESULT hr = mediaEvents.Unadvise(oleObject, __uuidof(IWMPEvents));

        IWMPPlayer4* pPlayer =NULL;
        hr =  oleObject->QueryInterface(__uuidof(IWMPPlayer4), (void**)&pPlayer);
        if (FAILED(hr)) throw hr;

        pPlayer->Release();        
        oleObject->Close(OLECLOSE_NOSAVE);
        oleObject->Release();
    }

public:
    virtual IOleInPlaceFrame* getInPlaceFrame() 
    { 
        return &frame;
    }

public:
    virtual IOleObject* getOleObject() 
    { 
        return oleObject; 
    };

};

}