1 /*****************************************************************************
2 * persistpropbag.cpp: ActiveX control for VLC
3 *****************************************************************************
4 * Copyright (C) 2005 VideoLAN
6 * Authors: Damien Fouilleul <Damien.Fouilleul@laposte.net>
8 * This program is free software; you can redistribute it and/or modify
9 * it under the terms of the GNU General Public License as published by
10 * the Free Software Foundation; either version 2 of the License, or
11 * (at your option) any later version.
13 * This program is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 * GNU General Public License for more details.
18 * You should have received a copy of the GNU General Public License
19 * along with this program; if not, write to the Free Software
20 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111, USA.
21 *****************************************************************************/
24 #include "persistpropbag.h"
27 #include "oleobject.h"
31 STDMETHODIMP VLCPersistPropertyBag::GetClassID(LPCLSID pClsID)
36 *pClsID = _p_instance->getClassID();
41 STDMETHODIMP VLCPersistPropertyBag::InitNew(void)
43 return _p_instance->onInit(TRUE);
46 STDMETHODIMP VLCPersistPropertyBag::Load(LPPROPERTYBAG pPropBag, LPERRORLOG pErrorLog)
48 if( NULL == pPropBag )
51 HRESULT hr = _p_instance->onInit(FALSE);
57 V_VT(&value) = VT_BSTR;
58 if( S_OK == pPropBag->Read(OLESTR("filename"), &value, pErrorLog) )
60 char *src = CStrFromBSTR(_p_instance->getCodePage(), V_BSTR(&value));
63 _p_instance->setSourceURL(src);
69 V_VT(&value) = VT_BSTR;
70 if( S_OK == pPropBag->Read(OLESTR("src"), &value, pErrorLog) )
72 char *src = CStrFromBSTR(_p_instance->getCodePage(), V_BSTR(&value));
75 _p_instance->setSourceURL(src);
81 V_VT(&value) = VT_BOOL;
82 if( S_OK == pPropBag->Read(OLESTR("autoplay"), &value, pErrorLog) )
84 _p_instance->setAutoStart(V_BOOL(&value) != VARIANT_FALSE);
88 V_VT(&value) = VT_BOOL;
89 if( S_OK == pPropBag->Read(OLESTR("autostart"), &value, pErrorLog) )
91 _p_instance->setAutoStart(V_BOOL(&value) != VARIANT_FALSE);
95 V_VT(&value) = VT_BOOL;
96 if( S_OK == pPropBag->Read(OLESTR("loop"), &value, pErrorLog) )
98 _p_instance->setLoopMode(V_BOOL(&value) != VARIANT_FALSE);
102 V_VT(&value) = VT_BOOL;
103 if( S_OK == pPropBag->Read(OLESTR("mute"), &value, pErrorLog) )
105 _p_instance->setMute(V_BOOL(&value) != VARIANT_FALSE);
106 VariantClear(&value);
109 V_VT(&value) = VT_BOOL;
110 if( S_OK == pPropBag->Read(OLESTR("showdisplay"), &value, pErrorLog) )
112 _p_instance->setVisible(V_BOOL(&value) != VARIANT_FALSE);
113 VariantClear(&value);
116 return _p_instance->onLoad();
119 STDMETHODIMP VLCPersistPropertyBag::Save(LPPROPERTYBAG pPropBag, BOOL fClearDirty, BOOL fSaveAllProperties)
121 if( NULL == pPropBag )