1 /*****************************************************************************
2 * vlccontrol2.cpp: ActiveX control for VLC
3 *****************************************************************************
4 * Copyright (C) 2006 the VideoLAN team
6 * Authors: Damien Fouilleul <Damien.Fouilleul@laposte.net>
7 * Jean-Paul Saman <jpsaman _at_ m2x _dot_ nl>
9 * This program is free software; you can redistribute it and/or modify
10 * it under the terms of the GNU General Public License as published by
11 * the Free Software Foundation; either version 2 of the License, or
12 * (at your option) any later version.
14 * This program is distributed in the hope that it will be useful,
15 * but WITHOUT ANY WARRANTY; without even the implied warranty of
16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 * GNU General Public License for more details.
19 * You should have received a copy of the GNU General Public License along
20 * with this program; if not, write to the Free Software Foundation, Inc.,
21 * 51 Franklin Street, Fifth Floor, Boston MA 02110-1301, USA.
22 *****************************************************************************/
25 #include "vlccontrol2.h"
26 #include "vlccontrol.h"
37 HRESULT _exception_bridge(VLCPlugin *p,REFIID riid, libvlc_exception_t *ex)
39 if( libvlc_exception_raised(ex) )
41 p->setErrorInfo(riid,libvlc_exception_get_message(ex));
42 libvlc_exception_clear(ex);
48 #define EMIT_EXCEPTION_BRIDGE( classname ) \
49 HRESULT classname::exception_bridge( libvlc_exception_t *ex ) \
50 { return _exception_bridge( _p_instance, IID_I##classname, ex ); }
52 EMIT_EXCEPTION_BRIDGE( VLCAudio )
53 EMIT_EXCEPTION_BRIDGE( VLCInput )
54 EMIT_EXCEPTION_BRIDGE( VLCMessageIterator )
55 EMIT_EXCEPTION_BRIDGE( VLCMessages )
56 EMIT_EXCEPTION_BRIDGE( VLCLog )
57 EMIT_EXCEPTION_BRIDGE( VLCPlaylistItems )
58 EMIT_EXCEPTION_BRIDGE( VLCPlaylist )
59 EMIT_EXCEPTION_BRIDGE( VLCVideo )
61 #undef EMIT_EXCEPTION_BRIDGE
67 _p_typeinfo->Release();
70 HRESULT VLCAudio::loadTypeInfo(void)
73 if( NULL == _p_typeinfo )
77 hr = _p_instance->getTypeLib(LOCALE_USER_DEFAULT, &p_typelib);
80 hr = p_typelib->GetTypeInfoOfGuid(IID_IVLCAudio, &_p_typeinfo);
91 STDMETHODIMP VLCAudio::GetTypeInfoCount(UINT* pctInfo)
96 if( SUCCEEDED(loadTypeInfo()) )
104 STDMETHODIMP VLCAudio::GetTypeInfo(UINT iTInfo, LCID lcid, LPTYPEINFO* ppTInfo)
106 if( NULL == ppTInfo )
109 if( SUCCEEDED(loadTypeInfo()) )
111 _p_typeinfo->AddRef();
112 *ppTInfo = _p_typeinfo;
119 STDMETHODIMP VLCAudio::GetIDsOfNames(REFIID riid, LPOLESTR* rgszNames,
120 UINT cNames, LCID lcid, DISPID* rgDispID)
122 if( SUCCEEDED(loadTypeInfo()) )
124 return DispGetIDsOfNames(_p_typeinfo, rgszNames, cNames, rgDispID);
129 STDMETHODIMP VLCAudio::Invoke(DISPID dispIdMember, REFIID riid,
130 LCID lcid, WORD wFlags, DISPPARAMS* pDispParams,
131 VARIANT* pVarResult, EXCEPINFO* pExcepInfo, UINT* puArgErr)
133 if( SUCCEEDED(loadTypeInfo()) )
135 return DispInvoke(this, _p_typeinfo, dispIdMember, wFlags, pDispParams,
136 pVarResult, pExcepInfo, puArgErr);
141 STDMETHODIMP VLCAudio::get_mute(VARIANT_BOOL* mute)
146 libvlc_instance_t* p_libvlc;
147 HRESULT hr = _p_instance->getVLC(&p_libvlc);
150 libvlc_exception_t ex;
151 libvlc_exception_init(&ex);
153 *mute = libvlc_audio_get_mute(p_libvlc, &ex) ?
154 VARIANT_TRUE : VARIANT_FALSE;
155 hr = exception_bridge(&ex);
160 STDMETHODIMP VLCAudio::put_mute(VARIANT_BOOL mute)
162 libvlc_instance_t* p_libvlc;
163 HRESULT hr = _p_instance->getVLC(&p_libvlc);
166 libvlc_exception_t ex;
167 libvlc_exception_init(&ex);
169 libvlc_audio_set_mute(p_libvlc, VARIANT_FALSE != mute, &ex);
170 hr = exception_bridge(&ex);
175 STDMETHODIMP VLCAudio::get_volume(long* volume)
180 libvlc_instance_t* p_libvlc;
181 HRESULT hr = _p_instance->getVLC(&p_libvlc);
184 libvlc_exception_t ex;
185 libvlc_exception_init(&ex);
187 *volume = libvlc_audio_get_volume(p_libvlc, &ex);
188 hr = exception_bridge(&ex);
193 STDMETHODIMP VLCAudio::put_volume(long volume)
195 libvlc_instance_t* p_libvlc;
196 HRESULT hr = _p_instance->getVLC(&p_libvlc);
199 libvlc_exception_t ex;
200 libvlc_exception_init(&ex);
202 libvlc_audio_set_volume(p_libvlc, volume, &ex);
203 hr = exception_bridge(&ex);
208 STDMETHODIMP VLCAudio::get_track(long* track)
213 libvlc_media_player_t* p_md;
214 HRESULT hr = _p_instance->getMD(&p_md);
217 libvlc_exception_t ex;
218 libvlc_exception_init(&ex);
220 *track = libvlc_audio_get_track(p_md, &ex);
221 hr = exception_bridge(&ex);
226 STDMETHODIMP VLCAudio::put_track(long track)
228 libvlc_media_player_t *p_md;
229 HRESULT hr = _p_instance->getMD(&p_md);
232 libvlc_exception_t ex;
233 libvlc_exception_init(&ex);
235 libvlc_audio_set_track(p_md, track, &ex);
236 hr = exception_bridge(&ex);
241 STDMETHODIMP VLCAudio::get_count(long* trackNumber)
243 if( NULL == trackNumber )
246 libvlc_media_player_t* p_md;
247 HRESULT hr = _p_instance->getMD(&p_md);
250 libvlc_exception_t ex;
251 libvlc_exception_init(&ex);
252 // get the number of audio track available and return it
253 *trackNumber = libvlc_audio_get_track_count(p_md, &ex);
254 if( libvlc_exception_raised(&ex) )
256 _p_instance->setErrorInfo(IID_IVLCAudio,
257 libvlc_exception_get_message(&ex));
258 libvlc_exception_clear(&ex);
267 STDMETHODIMP VLCAudio::description(long trackID, BSTR* name)
272 libvlc_media_player_t* p_md;
273 libvlc_exception_t ex;
274 libvlc_exception_init(&ex);
276 HRESULT hr = _p_instance->getMD(&p_md);
280 const char *psz_name;
281 libvlc_track_description_t *p_trackDesc;
283 // get tracks description
284 p_trackDesc = libvlc_audio_get_track_description(p_md, &ex);
285 if( libvlc_exception_raised(&ex) )
287 _p_instance->setErrorInfo(IID_IVLCAudio, libvlc_exception_get_message(&ex));
288 libvlc_exception_clear(&ex);
292 //get the number of available track
293 i_limit = libvlc_audio_get_track_count(p_md, &ex);
294 if( libvlc_exception_raised(&ex) )
296 _p_instance->setErrorInfo(IID_IVLCAudio, libvlc_exception_get_message(&ex));
297 libvlc_exception_clear(&ex);
301 // check if the number given is a good one
302 if ( ( trackID > ( i_limit -1 ) ) || ( trackID < 0 ) )
305 // get the good trackDesc
306 for( i = 0 ; i < trackID ; i++ )
308 p_trackDesc = p_trackDesc->p_next;
310 // get the track name
311 psz_name = p_trackDesc->psz_name;
314 if( psz_name != NULL )
316 *name = BSTRFromCStr(CP_UTF8, psz_name);
317 return (NULL == *name) ? E_OUTOFMEMORY : NOERROR;
325 STDMETHODIMP VLCAudio::get_channel(long *channel)
327 if( NULL == channel )
330 libvlc_instance_t* p_libvlc;
331 HRESULT hr = _p_instance->getVLC(&p_libvlc);
334 libvlc_exception_t ex;
335 libvlc_exception_init(&ex);
337 *channel = libvlc_audio_get_channel(p_libvlc, &ex);
338 hr = exception_bridge(&ex);
343 STDMETHODIMP VLCAudio::put_channel(long channel)
345 libvlc_instance_t* p_libvlc;
346 HRESULT hr = _p_instance->getVLC(&p_libvlc);
349 libvlc_exception_t ex;
350 libvlc_exception_init(&ex);
352 libvlc_audio_set_channel(p_libvlc, channel, &ex);
353 hr = exception_bridge(&ex);
358 STDMETHODIMP VLCAudio::toggleMute()
360 libvlc_instance_t* p_libvlc;
361 HRESULT hr = _p_instance->getVLC(&p_libvlc);
364 libvlc_exception_t ex;
365 libvlc_exception_init(&ex);
367 libvlc_audio_toggle_mute(p_libvlc, &ex);
368 hr = exception_bridge(&ex);
373 /*******************************************************************************/
375 VLCInput::~VLCInput()
378 _p_typeinfo->Release();
381 HRESULT VLCInput::loadTypeInfo(void)
383 HRESULT hr = NOERROR;
384 if( NULL == _p_typeinfo )
388 hr = _p_instance->getTypeLib(LOCALE_USER_DEFAULT, &p_typelib);
391 hr = p_typelib->GetTypeInfoOfGuid(IID_IVLCInput, &_p_typeinfo);
396 p_typelib->Release();
402 STDMETHODIMP VLCInput::GetTypeInfoCount(UINT* pctInfo)
404 if( NULL == pctInfo )
407 if( SUCCEEDED(loadTypeInfo()) )
415 STDMETHODIMP VLCInput::GetTypeInfo(UINT iTInfo, LCID lcid, LPTYPEINFO* ppTInfo)
417 if( NULL == ppTInfo )
420 if( SUCCEEDED(loadTypeInfo()) )
422 _p_typeinfo->AddRef();
423 *ppTInfo = _p_typeinfo;
430 STDMETHODIMP VLCInput::GetIDsOfNames(REFIID riid, LPOLESTR* rgszNames,
431 UINT cNames, LCID lcid, DISPID* rgDispID)
433 if( SUCCEEDED(loadTypeInfo()) )
435 return DispGetIDsOfNames(_p_typeinfo, rgszNames, cNames, rgDispID);
440 STDMETHODIMP VLCInput::Invoke(DISPID dispIdMember, REFIID riid,
441 LCID lcid, WORD wFlags, DISPPARAMS* pDispParams,
442 VARIANT* pVarResult, EXCEPINFO* pExcepInfo, UINT* puArgErr)
444 if( SUCCEEDED(loadTypeInfo()) )
446 return DispInvoke(this, _p_typeinfo, dispIdMember, wFlags, pDispParams,
447 pVarResult, pExcepInfo, puArgErr);
452 STDMETHODIMP VLCInput::get_length(double* length)
458 libvlc_media_player_t *p_md;
459 HRESULT hr = _p_instance->getMD(&p_md);
462 libvlc_exception_t ex;
463 libvlc_exception_init(&ex);
465 *length = (double)libvlc_media_player_get_length(p_md, &ex);
466 hr = exception_bridge(&ex);
471 STDMETHODIMP VLCInput::get_position(double* position)
473 if( NULL == position )
477 libvlc_media_player_t *p_md;
478 HRESULT hr = _p_instance->getMD(&p_md);
481 libvlc_exception_t ex;
482 libvlc_exception_init(&ex);
484 *position = libvlc_media_player_get_position(p_md, &ex);
485 hr = exception_bridge(&ex);
490 STDMETHODIMP VLCInput::put_position(double position)
492 libvlc_media_player_t *p_md;
493 HRESULT hr = _p_instance->getMD(&p_md);
496 libvlc_exception_t ex;
497 libvlc_exception_init(&ex);
499 libvlc_media_player_set_position(p_md, position, &ex);
500 hr = exception_bridge(&ex);
505 STDMETHODIMP VLCInput::get_time(double* time)
510 libvlc_media_player_t *p_md;
511 HRESULT hr = _p_instance->getMD(&p_md);
514 libvlc_exception_t ex;
515 libvlc_exception_init(&ex);
517 *time = (double)libvlc_media_player_get_time(p_md, &ex);
518 hr = exception_bridge(&ex);
523 STDMETHODIMP VLCInput::put_time(double time)
525 libvlc_media_player_t *p_md;
526 HRESULT hr = _p_instance->getMD(&p_md);
529 libvlc_exception_t ex;
530 libvlc_exception_init(&ex);
532 libvlc_media_player_set_time(p_md, (int64_t)time, &ex);
533 hr = exception_bridge(&ex);
538 STDMETHODIMP VLCInput::get_state(long* state)
543 libvlc_media_player_t *p_md;
544 HRESULT hr = _p_instance->getMD(&p_md);
547 libvlc_exception_t ex;
548 libvlc_exception_init(&ex);
550 *state = libvlc_media_player_get_state(p_md, &ex);
551 if( ! libvlc_exception_raised(&ex) )
555 libvlc_exception_clear(&ex);
556 // don't fail, just return the idle state
563 STDMETHODIMP VLCInput::get_rate(double* rate)
568 libvlc_media_player_t *p_md;
569 HRESULT hr = _p_instance->getMD(&p_md);
572 libvlc_exception_t ex;
573 libvlc_exception_init(&ex);
575 *rate = libvlc_media_player_get_rate(p_md, &ex);
576 hr = exception_bridge(&ex);
581 STDMETHODIMP VLCInput::put_rate(double rate)
583 libvlc_media_player_t *p_md;
584 HRESULT hr = _p_instance->getMD(&p_md);
587 libvlc_exception_t ex;
588 libvlc_exception_init(&ex);
590 libvlc_media_player_set_rate(p_md, rate, &ex);
591 hr = exception_bridge(&ex);
596 STDMETHODIMP VLCInput::get_fps(double* fps)
602 libvlc_media_player_t *p_md;
603 HRESULT hr = _p_instance->getMD(&p_md);
606 libvlc_exception_t ex;
607 libvlc_exception_init(&ex);
609 *fps = libvlc_media_player_get_fps(p_md, &ex);
610 hr = exception_bridge(&ex);
615 STDMETHODIMP VLCInput::get_hasVout(VARIANT_BOOL* hasVout)
617 if( NULL == hasVout )
620 libvlc_media_player_t *p_md;
621 HRESULT hr = _p_instance->getMD(&p_md);
624 libvlc_exception_t ex;
625 libvlc_exception_init(&ex);
627 *hasVout = libvlc_media_player_has_vout(p_md, &ex) ?
628 VARIANT_TRUE : VARIANT_FALSE;
629 hr = exception_bridge(&ex);
634 /*******************************************************************************/
638 delete _p_vlcmessages;
640 libvlc_log_close(_p_log, NULL);
643 _p_typeinfo->Release();
646 HRESULT VLCLog::loadTypeInfo(void)
648 HRESULT hr = NOERROR;
649 if( NULL == _p_typeinfo )
653 hr = _p_instance->getTypeLib(LOCALE_USER_DEFAULT, &p_typelib);
656 hr = p_typelib->GetTypeInfoOfGuid(IID_IVLCLog, &_p_typeinfo);
661 p_typelib->Release();
667 STDMETHODIMP VLCLog::GetTypeInfoCount(UINT* pctInfo)
669 if( NULL == pctInfo )
672 if( SUCCEEDED(loadTypeInfo()) )
680 STDMETHODIMP VLCLog::GetTypeInfo(UINT iTInfo, LCID lcid, LPTYPEINFO* ppTInfo)
682 if( NULL == ppTInfo )
685 if( SUCCEEDED(loadTypeInfo()) )
687 _p_typeinfo->AddRef();
688 *ppTInfo = _p_typeinfo;
695 STDMETHODIMP VLCLog::GetIDsOfNames(REFIID riid, LPOLESTR* rgszNames,
696 UINT cNames, LCID lcid, DISPID* rgDispID)
698 if( SUCCEEDED(loadTypeInfo()) )
700 return DispGetIDsOfNames(_p_typeinfo, rgszNames, cNames, rgDispID);
705 STDMETHODIMP VLCLog::Invoke(DISPID dispIdMember, REFIID riid,
706 LCID lcid, WORD wFlags, DISPPARAMS* pDispParams,
707 VARIANT* pVarResult, EXCEPINFO* pExcepInfo, UINT* puArgErr)
709 if( SUCCEEDED(loadTypeInfo()) )
711 return DispInvoke(this, _p_typeinfo, dispIdMember, wFlags, pDispParams,
712 pVarResult, pExcepInfo, puArgErr);
717 STDMETHODIMP VLCLog::get_messages(IVLCMessages** obj)
722 *obj = _p_vlcmessages;
723 if( NULL != _p_vlcmessages )
725 _p_vlcmessages->AddRef();
728 return E_OUTOFMEMORY;
731 STDMETHODIMP VLCLog::get_verbosity(long* level)
738 libvlc_instance_t* p_libvlc;
739 HRESULT hr = _p_instance->getVLC(&p_libvlc);
742 libvlc_exception_t ex;
743 libvlc_exception_init(&ex);
745 *level = libvlc_get_log_verbosity(p_libvlc, &ex);
746 hr = exception_bridge(&ex);
752 /* log is not enabled, return -1 */
758 STDMETHODIMP VLCLog::put_verbosity(long verbosity)
760 libvlc_instance_t* p_libvlc;
761 HRESULT hr = _p_instance->getVLC(&p_libvlc);
764 libvlc_exception_t ex;
765 libvlc_exception_init(&ex);
771 _p_log = libvlc_log_open(p_libvlc, &ex);
772 hr = exception_bridge(&ex);
775 libvlc_set_log_verbosity(p_libvlc, (unsigned)verbosity, &ex);
779 /* close log when verbosity is set to -1 */
780 libvlc_log_close(_p_log, &ex);
783 hr = exception_bridge(&ex);
788 /*******************************************************************************/
790 /* STL forward iterator used by VLCEnumIterator class to implement IEnumVARIANT */
792 class VLCMessageSTLIterator
797 VLCMessageSTLIterator(IVLCMessageIterator* iter) : iter(iter), msg(NULL)
803 VLCMessageSTLIterator(const VLCMessageSTLIterator& other)
813 virtual ~VLCMessageSTLIterator()
822 // we only need prefix ++ operator
823 VLCMessageSTLIterator& operator++()
825 VARIANT_BOOL hasNext = VARIANT_FALSE;
828 iter->get_hasNext(&hasNext);
835 if( VARIANT_TRUE == hasNext ) {
842 VARIANT operator*() const
848 if( SUCCEEDED(msg->QueryInterface(IID_IDispatch,
849 (LPVOID*)&V_DISPATCH(&v))) )
851 V_VT(&v) = VT_DISPATCH;
857 bool operator==(const VLCMessageSTLIterator& other) const
859 return msg == other.msg;
862 bool operator!=(const VLCMessageSTLIterator& other) const
864 return msg != other.msg;
868 IVLCMessageIterator* iter;
872 ////////////////////////////////////////////////////////////////////////////////////////////////////////////
874 VLCMessages::~VLCMessages()
877 _p_typeinfo->Release();
880 HRESULT VLCMessages::loadTypeInfo(void)
882 HRESULT hr = NOERROR;
883 if( NULL == _p_typeinfo )
887 hr = _p_instance->getTypeLib(LOCALE_USER_DEFAULT, &p_typelib);
890 hr = p_typelib->GetTypeInfoOfGuid(IID_IVLCMessages, &_p_typeinfo);
895 p_typelib->Release();
901 STDMETHODIMP VLCMessages::GetTypeInfoCount(UINT* pctInfo)
903 if( NULL == pctInfo )
906 if( SUCCEEDED(loadTypeInfo()) )
914 STDMETHODIMP VLCMessages::GetTypeInfo(UINT iTInfo, LCID lcid, LPTYPEINFO* ppTInfo)
916 if( NULL == ppTInfo )
919 if( SUCCEEDED(loadTypeInfo()) )
921 _p_typeinfo->AddRef();
922 *ppTInfo = _p_typeinfo;
929 STDMETHODIMP VLCMessages::GetIDsOfNames(REFIID riid, LPOLESTR* rgszNames,
930 UINT cNames, LCID lcid, DISPID* rgDispID)
932 if( SUCCEEDED(loadTypeInfo()) )
934 return DispGetIDsOfNames(_p_typeinfo, rgszNames, cNames, rgDispID);
939 STDMETHODIMP VLCMessages::Invoke(DISPID dispIdMember, REFIID riid,
940 LCID lcid, WORD wFlags, DISPPARAMS* pDispParams,
941 VARIANT* pVarResult, EXCEPINFO* pExcepInfo, UINT* puArgErr)
943 if( SUCCEEDED(loadTypeInfo()) )
945 return DispInvoke(this, _p_typeinfo, dispIdMember, wFlags, pDispParams,
946 pVarResult, pExcepInfo, puArgErr);
951 STDMETHODIMP VLCMessages::get__NewEnum(LPUNKNOWN* _NewEnum)
953 if( NULL == _NewEnum )
956 IVLCMessageIterator* iter = NULL;
959 *_NewEnum= new VLCEnumIterator<IID_IEnumVARIANT,
962 VLCMessageSTLIterator>
963 (VLCMessageSTLIterator(iter), VLCMessageSTLIterator(NULL));
965 return *_NewEnum ? S_OK : E_OUTOFMEMORY;
968 STDMETHODIMP VLCMessages::clear()
970 HRESULT hr = NOERROR;
971 libvlc_log_t *p_log = _p_vlclog->_p_log;
974 libvlc_exception_t ex;
975 libvlc_exception_init(&ex);
977 libvlc_log_clear(p_log, &ex);
978 hr = exception_bridge(&ex);
983 STDMETHODIMP VLCMessages::get_count(long* count)
990 libvlc_log_t *p_log = _p_vlclog->_p_log;
993 libvlc_exception_t ex;
994 libvlc_exception_init(&ex);
996 *count = libvlc_log_count(p_log, &ex);
997 hr = exception_bridge(&ex);
1004 STDMETHODIMP VLCMessages::iterator(IVLCMessageIterator** iter)
1009 *iter = new VLCMessageIterator(_p_instance, _p_vlclog);
1011 return *iter ? S_OK : E_OUTOFMEMORY;
1014 /*******************************************************************************/
1016 VLCMessageIterator::VLCMessageIterator(VLCPlugin *p_instance, VLCLog* p_vlclog ) :
1017 _p_instance(p_instance),
1022 if( p_vlclog->_p_log )
1024 _p_iter = libvlc_log_get_iterator(p_vlclog->_p_log, NULL);
1030 VLCMessageIterator::~VLCMessageIterator()
1033 libvlc_log_iterator_free(_p_iter, NULL);
1036 _p_typeinfo->Release();
1039 HRESULT VLCMessageIterator::loadTypeInfo(void)
1041 HRESULT hr = NOERROR;
1042 if( NULL == _p_typeinfo )
1044 ITypeLib *p_typelib;
1046 hr = _p_instance->getTypeLib(LOCALE_USER_DEFAULT, &p_typelib);
1049 hr = p_typelib->GetTypeInfoOfGuid(IID_IVLCMessageIterator, &_p_typeinfo);
1054 p_typelib->Release();
1060 STDMETHODIMP VLCMessageIterator::GetTypeInfoCount(UINT* pctInfo)
1062 if( NULL == pctInfo )
1063 return E_INVALIDARG;
1065 if( SUCCEEDED(loadTypeInfo()) )
1073 STDMETHODIMP VLCMessageIterator::GetTypeInfo(UINT iTInfo, LCID lcid, LPTYPEINFO* ppTInfo)
1075 if( NULL == ppTInfo )
1076 return E_INVALIDARG;
1078 if( SUCCEEDED(loadTypeInfo()) )
1080 _p_typeinfo->AddRef();
1081 *ppTInfo = _p_typeinfo;
1088 STDMETHODIMP VLCMessageIterator::GetIDsOfNames(REFIID riid, LPOLESTR* rgszNames,
1089 UINT cNames, LCID lcid, DISPID* rgDispID)
1091 if( SUCCEEDED(loadTypeInfo()) )
1093 return DispGetIDsOfNames(_p_typeinfo, rgszNames, cNames, rgDispID);
1098 STDMETHODIMP VLCMessageIterator::Invoke(DISPID dispIdMember, REFIID riid,
1099 LCID lcid, WORD wFlags, DISPPARAMS* pDispParams,
1100 VARIANT* pVarResult, EXCEPINFO* pExcepInfo, UINT* puArgErr)
1102 if( SUCCEEDED(loadTypeInfo()) )
1104 return DispInvoke(this, _p_typeinfo, dispIdMember, wFlags, pDispParams,
1105 pVarResult, pExcepInfo, puArgErr);
1110 STDMETHODIMP VLCMessageIterator::get_hasNext(VARIANT_BOOL* hasNext)
1114 if( NULL == hasNext )
1117 if( _p_iter && _p_vlclog->_p_log )
1119 libvlc_exception_t ex;
1120 libvlc_exception_init(&ex);
1122 *hasNext = libvlc_log_iterator_has_next(_p_iter, &ex) ?
1123 VARIANT_TRUE : VARIANT_FALSE;
1124 hr = exception_bridge(&ex);
1128 *hasNext = VARIANT_FALSE;
1133 STDMETHODIMP VLCMessageIterator::next(IVLCMessage** message)
1137 if( NULL == message )
1140 if( _p_iter && _p_vlclog->_p_log )
1142 struct libvlc_log_message_t buffer;
1144 buffer.sizeof_msg = sizeof(buffer);
1146 libvlc_exception_t ex;
1147 libvlc_exception_init(&ex);
1149 libvlc_log_iterator_next(_p_iter, &buffer, &ex);
1150 hr = exception_bridge(&ex);
1153 *message = new VLCMessage(_p_instance, buffer);
1161 /*******************************************************************************/
1163 VLCMessage::~VLCMessage()
1166 _p_typeinfo->Release();
1169 HRESULT VLCMessage::loadTypeInfo(void)
1171 HRESULT hr = NOERROR;
1172 if( NULL == _p_typeinfo )
1174 ITypeLib *p_typelib;
1176 hr = _p_instance->getTypeLib(LOCALE_USER_DEFAULT, &p_typelib);
1179 hr = p_typelib->GetTypeInfoOfGuid(IID_IVLCMessage, &_p_typeinfo);
1184 p_typelib->Release();
1190 STDMETHODIMP VLCMessage::GetTypeInfoCount(UINT* pctInfo)
1192 if( NULL == pctInfo )
1193 return E_INVALIDARG;
1195 if( SUCCEEDED(loadTypeInfo()) )
1203 STDMETHODIMP VLCMessage::GetTypeInfo(UINT iTInfo, LCID lcid, LPTYPEINFO* ppTInfo)
1205 if( NULL == ppTInfo )
1206 return E_INVALIDARG;
1208 if( SUCCEEDED(loadTypeInfo()) )
1210 _p_typeinfo->AddRef();
1211 *ppTInfo = _p_typeinfo;
1218 STDMETHODIMP VLCMessage::GetIDsOfNames(REFIID riid, LPOLESTR* rgszNames,
1219 UINT cNames, LCID lcid, DISPID* rgDispID)
1221 if( SUCCEEDED(loadTypeInfo()) )
1223 return DispGetIDsOfNames(_p_typeinfo, rgszNames, cNames, rgDispID);
1228 STDMETHODIMP VLCMessage::Invoke(DISPID dispIdMember, REFIID riid,
1229 LCID lcid, WORD wFlags, DISPPARAMS* pDispParams,
1230 VARIANT* pVarResult, EXCEPINFO* pExcepInfo, UINT* puArgErr)
1232 if( SUCCEEDED(loadTypeInfo()) )
1234 return DispInvoke(this, _p_typeinfo, dispIdMember, wFlags, pDispParams,
1235 pVarResult, pExcepInfo, puArgErr);
1240 inline const char *msgSeverity(int sev)
1255 STDMETHODIMP VLCMessage::get__Value(VARIANT* _Value)
1257 if( NULL == _Value )
1262 snprintf(buffer, sizeof(buffer), "%s %s %s: %s",
1263 _msg.psz_type, _msg.psz_name, msgSeverity(_msg.i_severity), _msg.psz_message);
1265 V_VT(_Value) = VT_BSTR;
1266 V_BSTR(_Value) = BSTRFromCStr(CP_UTF8, buffer);
1271 STDMETHODIMP VLCMessage::get_severity(long* level)
1276 *level = _msg.i_severity;
1281 STDMETHODIMP VLCMessage::get_type(BSTR* type)
1286 *type = BSTRFromCStr(CP_UTF8, _msg.psz_type);
1291 STDMETHODIMP VLCMessage::get_name(BSTR* name)
1296 *name = BSTRFromCStr(CP_UTF8, _msg.psz_name);
1301 STDMETHODIMP VLCMessage::get_header(BSTR* header)
1303 if( NULL == header )
1306 *header = BSTRFromCStr(CP_UTF8, _msg.psz_header);
1311 STDMETHODIMP VLCMessage::get_message(BSTR* message)
1313 if( NULL == message )
1316 *message = BSTRFromCStr(CP_UTF8, _msg.psz_message);
1321 /*******************************************************************************/
1323 VLCPlaylistItems::~VLCPlaylistItems()
1326 _p_typeinfo->Release();
1329 HRESULT VLCPlaylistItems::loadTypeInfo(void)
1331 HRESULT hr = NOERROR;
1332 if( NULL == _p_typeinfo )
1334 ITypeLib *p_typelib;
1336 hr = _p_instance->getTypeLib(LOCALE_USER_DEFAULT, &p_typelib);
1339 hr = p_typelib->GetTypeInfoOfGuid(IID_IVLCPlaylistItems, &_p_typeinfo);
1344 p_typelib->Release();
1350 STDMETHODIMP VLCPlaylistItems::GetTypeInfoCount(UINT* pctInfo)
1352 if( NULL == pctInfo )
1353 return E_INVALIDARG;
1355 if( SUCCEEDED(loadTypeInfo()) )
1363 STDMETHODIMP VLCPlaylistItems::GetTypeInfo(UINT iTInfo, LCID lcid, LPTYPEINFO* ppTInfo)
1365 if( NULL == ppTInfo )
1366 return E_INVALIDARG;
1368 if( SUCCEEDED(loadTypeInfo()) )
1370 _p_typeinfo->AddRef();
1371 *ppTInfo = _p_typeinfo;
1378 STDMETHODIMP VLCPlaylistItems::GetIDsOfNames(REFIID riid, LPOLESTR* rgszNames,
1379 UINT cNames, LCID lcid, DISPID* rgDispID)
1381 if( SUCCEEDED(loadTypeInfo()) )
1383 return DispGetIDsOfNames(_p_typeinfo, rgszNames, cNames, rgDispID);
1388 STDMETHODIMP VLCPlaylistItems::Invoke(DISPID dispIdMember, REFIID riid,
1389 LCID lcid, WORD wFlags, DISPPARAMS* pDispParams,
1390 VARIANT* pVarResult, EXCEPINFO* pExcepInfo, UINT* puArgErr)
1392 if( SUCCEEDED(loadTypeInfo()) )
1394 return DispInvoke(this, _p_typeinfo, dispIdMember, wFlags, pDispParams,
1395 pVarResult, pExcepInfo, puArgErr);
1400 STDMETHODIMP VLCPlaylistItems::get_count(long* count)
1405 libvlc_exception_t ex;
1406 libvlc_exception_init(&ex);
1408 *count = _p_instance->playlist_count(&ex);
1409 return exception_bridge(&ex);
1412 STDMETHODIMP VLCPlaylistItems::clear()
1414 libvlc_exception_t ex;
1415 libvlc_exception_init(&ex);
1417 _p_instance->playlist_clear(&ex);
1418 return exception_bridge(&ex);
1421 STDMETHODIMP VLCPlaylistItems::remove(long item)
1423 libvlc_instance_t* p_libvlc;
1424 HRESULT hr = _p_instance->getVLC(&p_libvlc);
1427 libvlc_exception_t ex;
1428 libvlc_exception_init(&ex);
1430 _p_instance->playlist_delete_item(item, &ex);
1431 hr = exception_bridge(&ex);
1436 /*******************************************************************************/
1438 VLCPlaylist::~VLCPlaylist()
1440 delete _p_vlcplaylistitems;
1442 _p_typeinfo->Release();
1445 HRESULT VLCPlaylist::loadTypeInfo(void)
1447 HRESULT hr = NOERROR;
1448 if( NULL == _p_typeinfo )
1450 ITypeLib *p_typelib;
1452 hr = _p_instance->getTypeLib(LOCALE_USER_DEFAULT, &p_typelib);
1455 hr = p_typelib->GetTypeInfoOfGuid(IID_IVLCPlaylist, &_p_typeinfo);
1460 p_typelib->Release();
1466 STDMETHODIMP VLCPlaylist::GetTypeInfoCount(UINT* pctInfo)
1468 if( NULL == pctInfo )
1469 return E_INVALIDARG;
1471 if( SUCCEEDED(loadTypeInfo()) )
1479 STDMETHODIMP VLCPlaylist::GetTypeInfo(UINT iTInfo, LCID lcid, LPTYPEINFO* ppTInfo)
1481 if( NULL == ppTInfo )
1482 return E_INVALIDARG;
1484 if( SUCCEEDED(loadTypeInfo()) )
1486 _p_typeinfo->AddRef();
1487 *ppTInfo = _p_typeinfo;
1494 STDMETHODIMP VLCPlaylist::GetIDsOfNames(REFIID riid, LPOLESTR* rgszNames,
1495 UINT cNames, LCID lcid, DISPID* rgDispID)
1497 if( SUCCEEDED(loadTypeInfo()) )
1499 return DispGetIDsOfNames(_p_typeinfo, rgszNames, cNames, rgDispID);
1504 STDMETHODIMP VLCPlaylist::Invoke(DISPID dispIdMember, REFIID riid,
1505 LCID lcid, WORD wFlags, DISPPARAMS* pDispParams,
1506 VARIANT* pVarResult, EXCEPINFO* pExcepInfo, UINT* puArgErr)
1508 if( SUCCEEDED(loadTypeInfo()) )
1510 return DispInvoke(this, _p_typeinfo, dispIdMember, wFlags, pDispParams,
1511 pVarResult, pExcepInfo, puArgErr);
1516 STDMETHODIMP VLCPlaylist::get_itemCount(long* count)
1522 libvlc_exception_t ex;
1523 libvlc_exception_init(&ex);
1525 *count = _p_instance->playlist_count(&ex);
1526 return exception_bridge(&ex);
1529 STDMETHODIMP VLCPlaylist::get_isPlaying(VARIANT_BOOL* isPlaying)
1531 if( NULL == isPlaying )
1534 libvlc_media_player_t *p_md;
1535 HRESULT hr = _p_instance->getMD(&p_md);
1538 libvlc_exception_t ex;
1539 libvlc_exception_init(&ex);
1541 *isPlaying = libvlc_media_player_is_playing(p_md, &ex) ?
1542 VARIANT_TRUE: VARIANT_FALSE;
1543 libvlc_exception_clear(&ex);
1548 STDMETHODIMP VLCPlaylist::add(BSTR uri, VARIANT name, VARIANT options, long* item)
1553 if( 0 == SysStringLen(uri) )
1554 return E_INVALIDARG;
1556 libvlc_instance_t* p_libvlc;
1557 HRESULT hr = _p_instance->getVLC(&p_libvlc);
1560 libvlc_exception_t ex;
1561 libvlc_exception_init(&ex);
1563 char *psz_uri = NULL;
1564 if( SysStringLen(_p_instance->getBaseURL()) > 0 )
1567 ** if the MRL a relative URL, we should end up with an absolute URL
1569 LPWSTR abs_url = CombineURL(_p_instance->getBaseURL(), uri);
1570 if( NULL != abs_url )
1572 psz_uri = CStrFromWSTR(CP_UTF8, abs_url, wcslen(abs_url));
1573 CoTaskMemFree(abs_url);
1577 psz_uri = CStrFromBSTR(CP_UTF8, uri);
1583 ** baseURL is empty, assume MRL is absolute
1585 psz_uri = CStrFromBSTR(CP_UTF8, uri);
1588 if( NULL == psz_uri )
1590 return E_OUTOFMEMORY;
1594 char **ppsz_options;
1596 hr = VLCControl::CreateTargetOptions(CP_UTF8, &options, &ppsz_options, &i_options);
1599 CoTaskMemFree(psz_uri);
1603 char *psz_name = NULL;
1605 VariantInit(&v_name);
1606 if( SUCCEEDED(VariantChangeType(&v_name, &name, 0, VT_BSTR)) )
1608 if( SysStringLen(V_BSTR(&v_name)) > 0 )
1609 psz_name = CStrFromBSTR(CP_UTF8, V_BSTR(&v_name));
1611 VariantClear(&v_name);
1614 *item = _p_instance->playlist_add_extended_untrusted(psz_uri,
1615 i_options, const_cast<const char **>(ppsz_options), &ex);
1617 VLCControl::FreeTargetOptions(ppsz_options, i_options);
1618 CoTaskMemFree(psz_uri);
1619 if( psz_name ) /* XXX Do we even need to check? */
1620 CoTaskMemFree(psz_name);
1621 hr = exception_bridge(&ex);
1626 STDMETHODIMP VLCPlaylist::play()
1628 libvlc_exception_t ex;
1629 libvlc_exception_init(&ex);
1631 _p_instance->playlist_play(&ex);
1632 return exception_bridge(&ex);
1635 STDMETHODIMP VLCPlaylist::playItem(long item)
1637 libvlc_exception_t ex;
1638 libvlc_exception_init(&ex);
1640 _p_instance->playlist_play_item(item,&ex);
1641 return exception_bridge(&ex);;
1644 STDMETHODIMP VLCPlaylist::togglePause()
1646 libvlc_media_player_t* p_md;
1647 HRESULT hr = _p_instance->getMD(&p_md);
1650 libvlc_exception_t ex;
1651 libvlc_exception_init(&ex);
1653 libvlc_media_player_pause(p_md, &ex);
1654 hr = exception_bridge(&ex);;
1659 STDMETHODIMP VLCPlaylist::stop()
1661 libvlc_media_player_t *p_md;
1662 HRESULT hr = _p_instance->getMD(&p_md);
1665 libvlc_exception_t ex;
1666 libvlc_exception_init(&ex);
1668 libvlc_media_player_stop(p_md, &ex);
1669 hr = exception_bridge(&ex);;
1674 STDMETHODIMP VLCPlaylist::next()
1676 libvlc_exception_t ex;
1677 libvlc_exception_init(&ex);
1679 _p_instance->playlist_next(&ex);
1680 return exception_bridge(&ex);;
1683 STDMETHODIMP VLCPlaylist::prev()
1685 libvlc_exception_t ex;
1686 libvlc_exception_init(&ex);
1688 _p_instance->playlist_prev(&ex);
1689 return exception_bridge(&ex);;
1692 STDMETHODIMP VLCPlaylist::clear()
1694 libvlc_exception_t ex;
1695 libvlc_exception_init(&ex);
1697 _p_instance->playlist_clear(&ex);
1698 return exception_bridge(&ex);;
1701 STDMETHODIMP VLCPlaylist::removeItem(long item)
1703 libvlc_instance_t* p_libvlc;
1704 HRESULT hr = _p_instance->getVLC(&p_libvlc);
1707 libvlc_exception_t ex;
1708 libvlc_exception_init(&ex);
1710 _p_instance->playlist_delete_item(item, &ex);
1711 hr = exception_bridge(&ex);;
1716 STDMETHODIMP VLCPlaylist::get_items(IVLCPlaylistItems** obj)
1721 *obj = _p_vlcplaylistitems;
1722 if( NULL != _p_vlcplaylistitems )
1724 _p_vlcplaylistitems->AddRef();
1727 return E_OUTOFMEMORY;
1730 /*******************************************************************************/
1732 VLCSubtitle::~VLCSubtitle()
1735 _p_typeinfo->Release();
1738 HRESULT VLCSubtitle::loadTypeInfo(void)
1740 HRESULT hr = NOERROR;
1741 if( NULL == _p_typeinfo )
1743 ITypeLib *p_typelib;
1745 hr = _p_instance->getTypeLib(LOCALE_USER_DEFAULT, &p_typelib);
1748 hr = p_typelib->GetTypeInfoOfGuid(IID_IVLCSubtitle, &_p_typeinfo);
1753 p_typelib->Release();
1759 STDMETHODIMP VLCSubtitle::GetTypeInfoCount(UINT* pctInfo)
1761 if( NULL == pctInfo )
1762 return E_INVALIDARG;
1764 if( SUCCEEDED(loadTypeInfo()) )
1772 STDMETHODIMP VLCSubtitle::GetTypeInfo(UINT iTInfo, LCID lcid, LPTYPEINFO* ppTInfo)
1774 if( NULL == ppTInfo )
1775 return E_INVALIDARG;
1777 if( SUCCEEDED(loadTypeInfo()) )
1779 _p_typeinfo->AddRef();
1780 *ppTInfo = _p_typeinfo;
1787 STDMETHODIMP VLCSubtitle::GetIDsOfNames(REFIID riid, LPOLESTR* rgszNames,
1788 UINT cNames, LCID lcid, DISPID* rgDispID)
1790 if( SUCCEEDED(loadTypeInfo()) )
1792 return DispGetIDsOfNames(_p_typeinfo, rgszNames, cNames, rgDispID);
1797 STDMETHODIMP VLCSubtitle::Invoke(DISPID dispIdMember, REFIID riid,
1798 LCID lcid, WORD wFlags, DISPPARAMS* pDispParams,
1799 VARIANT* pVarResult, EXCEPINFO* pExcepInfo, UINT* puArgErr)
1801 if( SUCCEEDED(loadTypeInfo()) )
1803 return DispInvoke(this, _p_typeinfo, dispIdMember, wFlags, pDispParams,
1804 pVarResult, pExcepInfo, puArgErr);
1809 STDMETHODIMP VLCSubtitle::get_track(long* spu)
1814 libvlc_media_player_t *p_md;
1815 HRESULT hr = _p_instance->getMD(&p_md);
1818 libvlc_exception_t ex;
1819 libvlc_exception_init(&ex);
1821 *spu = libvlc_video_get_spu(p_md, &ex);
1822 if( ! libvlc_exception_raised(&ex) )
1826 _p_instance->setErrorInfo(IID_IVLCSubtitle, libvlc_exception_get_message(&ex));
1827 libvlc_exception_clear(&ex);
1833 STDMETHODIMP VLCSubtitle::put_track(long spu)
1835 libvlc_media_player_t *p_md;
1836 HRESULT hr = _p_instance->getMD(&p_md);
1839 libvlc_exception_t ex;
1840 libvlc_exception_init(&ex);
1842 libvlc_video_set_spu(p_md, spu, &ex);
1843 if( libvlc_exception_raised(&ex) )
1845 _p_instance->setErrorInfo(IID_IVLCSubtitle, libvlc_exception_get_message(&ex));
1846 libvlc_exception_clear(&ex);
1854 STDMETHODIMP VLCSubtitle::get_count(long* spuNumber)
1856 if( NULL == spuNumber )
1859 libvlc_media_player_t *p_md;
1860 HRESULT hr = _p_instance->getMD(&p_md);
1863 libvlc_exception_t ex;
1864 libvlc_exception_init(&ex);
1865 // get the number of video subtitle available and return it
1866 *spuNumber = libvlc_video_get_spu_count(p_md, &ex);
1867 if( libvlc_exception_raised(&ex) )
1869 _p_instance->setErrorInfo(IID_IVLCSubtitle, libvlc_exception_get_message(&ex));
1870 libvlc_exception_clear(&ex);
1879 STDMETHODIMP VLCSubtitle::description(long nameID, BSTR* name)
1884 libvlc_media_player_t* p_md;
1885 libvlc_exception_t ex;
1886 libvlc_exception_init(&ex);
1888 HRESULT hr = _p_instance->getMD(&p_md);
1892 const char *psz_name;
1893 libvlc_track_description_t *p_spuDesc;
1895 // get subtitles description
1896 p_spuDesc = libvlc_video_get_spu_description(p_md, &ex);
1897 if( libvlc_exception_raised(&ex) )
1899 _p_instance->setErrorInfo(IID_IVLCSubtitle, libvlc_exception_get_message(&ex));
1900 libvlc_exception_clear(&ex);
1904 // get the number of available subtitle
1905 i_limit = libvlc_video_get_spu_count(p_md, &ex);
1906 if( libvlc_exception_raised(&ex) )
1908 _p_instance->setErrorInfo(IID_IVLCSubtitle, libvlc_exception_get_message(&ex));
1909 libvlc_exception_clear(&ex);
1913 // check if the number given is a good one
1914 if ( ( nameID > ( i_limit -1 ) ) || ( nameID < 0 ) )
1917 // get the good spuDesc
1918 for( i = 0 ; i < nameID ; i++ )
1920 p_spuDesc = p_spuDesc->p_next;
1922 // get the subtitle name
1923 psz_name = p_spuDesc->psz_name;
1926 if( psz_name != NULL )
1928 *name = BSTRFromCStr(CP_UTF8, psz_name);
1929 return (NULL == *name) ? E_OUTOFMEMORY : NOERROR;
1937 /*******************************************************************************/
1939 VLCVideo::~VLCVideo()
1942 _p_typeinfo->Release();
1945 HRESULT VLCVideo::loadTypeInfo(void)
1947 HRESULT hr = NOERROR;
1948 if( NULL == _p_typeinfo )
1950 ITypeLib *p_typelib;
1952 hr = _p_instance->getTypeLib(LOCALE_USER_DEFAULT, &p_typelib);
1955 hr = p_typelib->GetTypeInfoOfGuid(IID_IVLCVideo, &_p_typeinfo);
1960 p_typelib->Release();
1966 STDMETHODIMP VLCVideo::GetTypeInfoCount(UINT* pctInfo)
1968 if( NULL == pctInfo )
1969 return E_INVALIDARG;
1971 if( SUCCEEDED(loadTypeInfo()) )
1979 STDMETHODIMP VLCVideo::GetTypeInfo(UINT iTInfo, LCID lcid, LPTYPEINFO* ppTInfo)
1981 if( NULL == ppTInfo )
1982 return E_INVALIDARG;
1984 if( SUCCEEDED(loadTypeInfo()) )
1986 _p_typeinfo->AddRef();
1987 *ppTInfo = _p_typeinfo;
1994 STDMETHODIMP VLCVideo::GetIDsOfNames(REFIID riid, LPOLESTR* rgszNames,
1995 UINT cNames, LCID lcid, DISPID* rgDispID)
1997 if( SUCCEEDED(loadTypeInfo()) )
1999 return DispGetIDsOfNames(_p_typeinfo, rgszNames, cNames, rgDispID);
2004 STDMETHODIMP VLCVideo::Invoke(DISPID dispIdMember, REFIID riid,
2005 LCID lcid, WORD wFlags, DISPPARAMS* pDispParams,
2006 VARIANT* pVarResult, EXCEPINFO* pExcepInfo, UINT* puArgErr)
2008 if( SUCCEEDED(loadTypeInfo()) )
2010 return DispInvoke(this, _p_typeinfo, dispIdMember, wFlags, pDispParams,
2011 pVarResult, pExcepInfo, puArgErr);
2016 STDMETHODIMP VLCVideo::get_fullscreen(VARIANT_BOOL* fullscreen)
2018 if( NULL == fullscreen )
2021 libvlc_media_player_t *p_md;
2022 HRESULT hr = _p_instance->getMD(&p_md);
2025 libvlc_exception_t ex;
2026 libvlc_exception_init(&ex);
2028 *fullscreen = libvlc_get_fullscreen(p_md, &ex) ?
2029 VARIANT_TRUE : VARIANT_FALSE;
2030 hr = exception_bridge(&ex);
2035 STDMETHODIMP VLCVideo::put_fullscreen(VARIANT_BOOL fullscreen)
2037 libvlc_media_player_t *p_md;
2038 HRESULT hr = _p_instance->getMD(&p_md);
2041 libvlc_exception_t ex;
2042 libvlc_exception_init(&ex);
2044 libvlc_set_fullscreen(p_md, VARIANT_FALSE != fullscreen, &ex);
2045 hr = exception_bridge(&ex);
2050 STDMETHODIMP VLCVideo::get_width(long* width)
2055 libvlc_media_player_t *p_md;
2056 HRESULT hr = _p_instance->getMD(&p_md);
2059 libvlc_exception_t ex;
2060 libvlc_exception_init(&ex);
2062 *width = libvlc_video_get_width(p_md, &ex);
2063 hr = exception_bridge(&ex);
2068 STDMETHODIMP VLCVideo::get_height(long* height)
2070 if( NULL == height )
2073 libvlc_media_player_t *p_md;
2074 HRESULT hr = _p_instance->getMD(&p_md);
2077 libvlc_exception_t ex;
2078 libvlc_exception_init(&ex);
2080 *height = libvlc_video_get_height(p_md, &ex);
2081 hr = exception_bridge(&ex);
2086 STDMETHODIMP VLCVideo::get_aspectRatio(BSTR* aspect)
2088 if( NULL == aspect )
2091 libvlc_media_player_t *p_md;
2092 HRESULT hr = _p_instance->getMD(&p_md);
2095 libvlc_exception_t ex;
2096 libvlc_exception_init(&ex);
2098 char *psz_aspect = libvlc_video_get_aspect_ratio(p_md, &ex);
2100 hr = exception_bridge(&ex);
2101 if( SUCCEEDED(hr) && NULL != psz_aspect )
2103 *aspect = BSTRFromCStr(CP_UTF8, psz_aspect);
2104 if( NULL == *aspect )
2106 } else if( NULL == psz_aspect) hr = E_OUTOFMEMORY; // strdup("") failed
2112 STDMETHODIMP VLCVideo::put_aspectRatio(BSTR aspect)
2114 if( NULL == aspect )
2117 if( 0 == SysStringLen(aspect) )
2118 return E_INVALIDARG;
2120 libvlc_media_player_t *p_md;
2121 HRESULT hr = _p_instance->getMD(&p_md);
2124 libvlc_exception_t ex;
2125 libvlc_exception_init(&ex);
2127 char *psz_aspect = CStrFromBSTR(CP_UTF8, aspect);
2128 if( NULL == psz_aspect )
2130 return E_OUTOFMEMORY;
2133 libvlc_video_set_aspect_ratio(p_md, psz_aspect, &ex);
2135 CoTaskMemFree(psz_aspect);
2136 hr = exception_bridge(&ex);
2141 STDMETHODIMP VLCVideo::get_subtitle(long* spu)
2146 libvlc_media_player_t *p_md;
2147 HRESULT hr = _p_instance->getMD(&p_md);
2150 libvlc_exception_t ex;
2151 libvlc_exception_init(&ex);
2153 *spu = libvlc_video_get_spu(p_md, &ex);
2154 hr = exception_bridge(&ex);
2159 STDMETHODIMP VLCVideo::put_subtitle(long spu)
2161 libvlc_media_player_t *p_md;
2162 HRESULT hr = _p_instance->getMD(&p_md);
2165 libvlc_exception_t ex;
2166 libvlc_exception_init(&ex);
2168 libvlc_video_set_spu(p_md, spu, &ex);
2169 hr = exception_bridge(&ex);
2174 STDMETHODIMP VLCVideo::get_crop(BSTR* geometry)
2176 if( NULL == geometry )
2179 libvlc_media_player_t *p_md;
2180 HRESULT hr = _p_instance->getMD(&p_md);
2183 libvlc_exception_t ex;
2184 libvlc_exception_init(&ex);
2186 char *psz_geometry = libvlc_video_get_crop_geometry(p_md, &ex);
2188 hr = exception_bridge(&ex);
2189 if( SUCCEEDED(&ex) && NULL != psz_geometry )
2191 *geometry = BSTRFromCStr(CP_UTF8, psz_geometry);
2192 if( NULL == geometry ) hr = E_OUTOFMEMORY;
2193 } else if( NULL == psz_geometry ) hr = E_OUTOFMEMORY;
2194 free( psz_geometry );
2199 STDMETHODIMP VLCVideo::put_crop(BSTR geometry)
2201 if( NULL == geometry )
2204 if( 0 == SysStringLen(geometry) )
2205 return E_INVALIDARG;
2207 libvlc_media_player_t *p_md;
2208 HRESULT hr = _p_instance->getMD(&p_md);
2211 libvlc_exception_t ex;
2212 libvlc_exception_init(&ex);
2214 char *psz_geometry = CStrFromBSTR(CP_UTF8, geometry);
2215 if( NULL == psz_geometry )
2217 return E_OUTOFMEMORY;
2220 libvlc_video_set_crop_geometry(p_md, psz_geometry, &ex);
2222 CoTaskMemFree(psz_geometry);
2223 hr = exception_bridge(&ex);
2228 STDMETHODIMP VLCVideo::get_teletext(long* page)
2233 libvlc_media_player_t *p_md;
2234 HRESULT hr = _p_instance->getMD(&p_md);
2237 libvlc_exception_t ex;
2238 libvlc_exception_init(&ex);
2240 *page = libvlc_video_get_teletext(p_md, &ex);
2241 hr = exception_bridge(&ex);
2246 STDMETHODIMP VLCVideo::put_teletext(long page)
2248 libvlc_media_player_t *p_md;
2249 HRESULT hr = _p_instance->getMD(&p_md);
2252 libvlc_exception_t ex;
2253 libvlc_exception_init(&ex);
2255 libvlc_video_set_teletext(p_md, page, &ex);
2256 hr = exception_bridge(&ex);
2261 STDMETHODIMP VLCVideo::takeSnapshot(LPPICTUREDISP* picture)
2263 if( NULL == picture )
2266 libvlc_media_player_t *p_md;
2267 HRESULT hr = _p_instance->getMD(&p_md);
2270 libvlc_exception_t ex;
2271 libvlc_exception_init(&ex);
2273 static int uniqueId = 0;
2274 TCHAR path[MAX_PATH+1];
2276 int pathlen = GetTempPath(MAX_PATH-24, path);
2277 if( (0 == pathlen) || (pathlen > (MAX_PATH-24)) )
2280 /* check temp directory path by openning it */
2282 HANDLE dirHandle = CreateFile(path, GENERIC_READ,
2283 FILE_SHARE_READ|FILE_SHARE_WRITE|FILE_SHARE_DELETE,
2284 NULL, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, NULL);
2285 if( INVALID_HANDLE_VALUE == dirHandle )
2287 _p_instance->setErrorInfo(IID_IVLCVideo,
2288 "Invalid temporary directory for snapshot images, check values of TMP, TEMP envars.");
2293 BY_HANDLE_FILE_INFORMATION bhfi;
2294 BOOL res = GetFileInformationByHandle(dirHandle, &bhfi);
2295 CloseHandle(dirHandle);
2296 if( !res || !(bhfi.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) )
2298 _p_instance->setErrorInfo(IID_IVLCVideo,
2299 "Invalid temporary directory for snapshot images, check values of TMP, TEMP envars.");
2305 TCHAR filepath[MAX_PATH+1];
2307 _stprintf(filepath, TEXT("%sAXVLC%lXS%lX.bmp"),
2308 path, GetCurrentProcessId(), ++uniqueId);
2311 /* reuse path storage for UTF8 string */
2312 char *psz_filepath = (char *)path;
2313 WCHAR* wpath = filepath;
2315 char *psz_filepath = path;
2316 /* first convert to unicode using current code page */
2317 WCHAR wpath[MAX_PATH+1];
2318 if( 0 == MultiByteToWideChar(CP_ACP, 0, filepath, -1, wpath, sizeof(wpath)/sizeof(WCHAR)) )
2321 /* convert to UTF8 */
2322 pathlen = WideCharToMultiByte(CP_UTF8, 0, wpath, -1, psz_filepath, sizeof(path), NULL, NULL);
2323 // fail if path is 0 or too short (i.e pathlen is the same as storage size)
2324 if( (0 == pathlen) || (sizeof(path) == pathlen) )
2327 /* take snapshot into file */
2328 libvlc_video_take_snapshot(p_md, psz_filepath, 0, 0, &ex);
2329 if( ! libvlc_exception_raised(&ex) )
2332 /* open snapshot file */
2333 HANDLE snapPic = LoadImage(NULL, filepath, IMAGE_BITMAP,0, 0, LR_CREATEDIBSECTION|LR_LOADFROMFILE);
2338 snapDesc.cbSizeofstruct = sizeof(PICTDESC);
2339 snapDesc.picType = PICTYPE_BITMAP;
2340 snapDesc.bmp.hbitmap = (HBITMAP)snapPic;
2341 snapDesc.bmp.hpal = NULL;
2343 hr = OleCreatePictureIndirect(&snapDesc, IID_IPictureDisp, TRUE, (LPVOID*)picture);
2347 DeleteObject(snapPic);
2350 DeleteFile(filepath);
2353 _p_instance->setErrorInfo(IID_IVLCVideo, libvlc_exception_get_message(&ex));
2354 libvlc_exception_clear(&ex);
2360 STDMETHODIMP VLCVideo::toggleFullscreen()
2362 libvlc_media_player_t *p_md;
2363 HRESULT hr = _p_instance->getMD(&p_md);
2366 libvlc_exception_t ex;
2367 libvlc_exception_init(&ex);
2369 libvlc_toggle_fullscreen(p_md, &ex);
2370 hr = exception_bridge(&ex);
2375 STDMETHODIMP VLCVideo::toggleTeletext()
2377 libvlc_media_player_t *p_md;
2378 HRESULT hr = _p_instance->getMD(&p_md);
2381 libvlc_exception_t ex;
2382 libvlc_exception_init(&ex);
2384 libvlc_toggle_teletext(p_md, &ex);
2385 hr = exception_bridge(&ex);
2390 /*******************************************************************************/
2392 VLCControl2::VLCControl2(VLCPlugin *p_instance) :
2393 _p_instance(p_instance),
2397 _p_vlcplaylist(NULL),
2398 _p_vlcsubtitle(NULL),
2401 _p_vlcaudio = new VLCAudio(p_instance);
2402 _p_vlcinput = new VLCInput(p_instance);
2403 _p_vlclog = new VLCLog(p_instance);
2404 _p_vlcplaylist = new VLCPlaylist(p_instance);
2405 _p_vlcsubtitle = new VLCSubtitle(p_instance);
2406 _p_vlcvideo = new VLCVideo(p_instance);
2409 VLCControl2::~VLCControl2()
2412 delete _p_vlcsubtitle;
2413 delete _p_vlcplaylist;
2418 _p_typeinfo->Release();
2421 HRESULT VLCControl2::loadTypeInfo(void)
2423 HRESULT hr = NOERROR;
2424 if( NULL == _p_typeinfo )
2426 ITypeLib *p_typelib;
2428 hr = _p_instance->getTypeLib(LOCALE_USER_DEFAULT, &p_typelib);
2431 hr = p_typelib->GetTypeInfoOfGuid(IID_IVLCControl2, &_p_typeinfo);
2436 p_typelib->Release();
2442 STDMETHODIMP VLCControl2::GetTypeInfoCount(UINT* pctInfo)
2444 if( NULL == pctInfo )
2445 return E_INVALIDARG;
2447 if( SUCCEEDED(loadTypeInfo()) )
2455 STDMETHODIMP VLCControl2::GetTypeInfo(UINT iTInfo, LCID lcid, LPTYPEINFO* ppTInfo)
2457 if( NULL == ppTInfo )
2458 return E_INVALIDARG;
2460 if( SUCCEEDED(loadTypeInfo()) )
2462 _p_typeinfo->AddRef();
2463 *ppTInfo = _p_typeinfo;
2470 STDMETHODIMP VLCControl2::GetIDsOfNames(REFIID riid, LPOLESTR* rgszNames,
2471 UINT cNames, LCID lcid, DISPID* rgDispID)
2473 if( SUCCEEDED(loadTypeInfo()) )
2475 return DispGetIDsOfNames(_p_typeinfo, rgszNames, cNames, rgDispID);
2480 STDMETHODIMP VLCControl2::Invoke(DISPID dispIdMember, REFIID riid,
2481 LCID lcid, WORD wFlags, DISPPARAMS* pDispParams,
2482 VARIANT* pVarResult, EXCEPINFO* pExcepInfo, UINT* puArgErr)
2484 if( SUCCEEDED(loadTypeInfo()) )
2486 return DispInvoke(this, _p_typeinfo, dispIdMember, wFlags, pDispParams,
2487 pVarResult, pExcepInfo, puArgErr);
2492 STDMETHODIMP VLCControl2::get_AutoLoop(VARIANT_BOOL *autoloop)
2494 if( NULL == autoloop )
2497 *autoloop = _p_instance->getAutoLoop() ? VARIANT_TRUE: VARIANT_FALSE;
2501 STDMETHODIMP VLCControl2::put_AutoLoop(VARIANT_BOOL autoloop)
2503 _p_instance->setAutoLoop((VARIANT_FALSE != autoloop) ? TRUE: FALSE);
2507 STDMETHODIMP VLCControl2::get_AutoPlay(VARIANT_BOOL *autoplay)
2509 if( NULL == autoplay )
2512 *autoplay = _p_instance->getAutoPlay() ? VARIANT_TRUE: VARIANT_FALSE;
2516 STDMETHODIMP VLCControl2::put_AutoPlay(VARIANT_BOOL autoplay)
2518 _p_instance->setAutoPlay((VARIANT_FALSE != autoplay) ? TRUE: FALSE);
2522 STDMETHODIMP VLCControl2::get_BaseURL(BSTR *url)
2527 *url = SysAllocStringLen(_p_instance->getBaseURL(),
2528 SysStringLen(_p_instance->getBaseURL()));
2532 STDMETHODIMP VLCControl2::put_BaseURL(BSTR mrl)
2534 _p_instance->setBaseURL(mrl);
2539 STDMETHODIMP VLCControl2::get_MRL(BSTR *mrl)
2544 *mrl = SysAllocStringLen(_p_instance->getMRL(),
2545 SysStringLen(_p_instance->getMRL()));
2549 STDMETHODIMP VLCControl2::put_MRL(BSTR mrl)
2551 _p_instance->setMRL(mrl);
2557 STDMETHODIMP VLCControl2::get_Toolbar(VARIANT_BOOL *visible)
2559 if( NULL == visible )
2563 * Note to developpers
2565 * Returning the _b_toolbar is closer to the method specification.
2566 * But returning True when toolbar is not implemented so not displayed
2567 * could be bad for ActiveX users which rely on this value to show their
2568 * own toolbar if not provided by the ActiveX.
2570 * This is the reason why FALSE is returned, until toolbar get implemented.
2573 /* DISABLED for now */
2574 // *visible = _p_instance->getShowToolbar() ? VARIANT_TRUE: VARIANT_FALSE;
2576 *visible = VARIANT_FALSE;
2581 STDMETHODIMP VLCControl2::put_Toolbar(VARIANT_BOOL visible)
2583 _p_instance->setShowToolbar((VARIANT_FALSE != visible) ? TRUE: FALSE);
2588 STDMETHODIMP VLCControl2::get_StartTime(long *seconds)
2590 if( NULL == seconds )
2593 *seconds = _p_instance->getStartTime();
2598 STDMETHODIMP VLCControl2::put_StartTime(long seconds)
2600 _p_instance->setStartTime(seconds);
2605 STDMETHODIMP VLCControl2::get_VersionInfo(BSTR *version)
2607 if( NULL == version )
2610 const char *versionStr = libvlc_get_version();
2611 if( NULL != versionStr )
2613 *version = BSTRFromCStr(CP_UTF8, versionStr);
2615 return (NULL == *version) ? E_OUTOFMEMORY : NOERROR;
2621 STDMETHODIMP VLCControl2::get_Visible(VARIANT_BOOL *isVisible)
2623 if( NULL == isVisible )
2626 *isVisible = _p_instance->getVisible() ? VARIANT_TRUE : VARIANT_FALSE;
2631 STDMETHODIMP VLCControl2::put_Visible(VARIANT_BOOL isVisible)
2633 _p_instance->setVisible(isVisible != VARIANT_FALSE);
2638 STDMETHODIMP VLCControl2::get_Volume(long *volume)
2640 if( NULL == volume )
2643 *volume = _p_instance->getVolume();
2647 STDMETHODIMP VLCControl2::put_Volume(long volume)
2649 _p_instance->setVolume(volume);
2653 STDMETHODIMP VLCControl2::get_BackColor(OLE_COLOR *backcolor)
2655 if( NULL == backcolor )
2658 *backcolor = _p_instance->getBackColor();
2662 STDMETHODIMP VLCControl2::put_BackColor(OLE_COLOR backcolor)
2664 _p_instance->setBackColor(backcolor);
2668 STDMETHODIMP VLCControl2::get_audio(IVLCAudio** obj)
2674 if( NULL != _p_vlcaudio )
2676 _p_vlcaudio->AddRef();
2679 return E_OUTOFMEMORY;
2682 STDMETHODIMP VLCControl2::get_input(IVLCInput** obj)
2688 if( NULL != _p_vlcinput )
2690 _p_vlcinput->AddRef();
2693 return E_OUTOFMEMORY;
2696 STDMETHODIMP VLCControl2::get_log(IVLCLog** obj)
2702 if( NULL != _p_vlclog )
2704 _p_vlclog->AddRef();
2707 return E_OUTOFMEMORY;
2710 STDMETHODIMP VLCControl2::get_playlist(IVLCPlaylist** obj)
2715 *obj = _p_vlcplaylist;
2716 if( NULL != _p_vlcplaylist )
2718 _p_vlcplaylist->AddRef();
2721 return E_OUTOFMEMORY;
2724 STDMETHODIMP VLCControl2::get_subtitle(IVLCSubtitle** obj)
2729 *obj = _p_vlcsubtitle;
2730 if( NULL != _p_vlcsubtitle )
2732 _p_vlcsubtitle->AddRef();
2735 return E_OUTOFMEMORY;
2738 STDMETHODIMP VLCControl2::get_video(IVLCVideo** obj)
2744 if( NULL != _p_vlcvideo )
2746 _p_vlcvideo->AddRef();
2749 return E_OUTOFMEMORY;