Files belonging to patch from, thannoy: Allow future control toolbar to be hidden...
[vlc.git] / projects / activex / plugin.cpp
1 /*****************************************************************************
2  * plugin.cpp: ActiveX control for VLC
3  *****************************************************************************
4  * Copyright (C) 2006 the VideoLAN team
5  *
6  * Authors: Damien Fouilleul <Damien.Fouilleul@laposte.net>
7  *
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.
12  *
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.
17  *
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., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301, USA.
21  *****************************************************************************/
22
23 #include "plugin.h"
24
25 #include "oleobject.h"
26 #include "olecontrol.h"
27 #include "oleinplaceobject.h"
28 #include "oleinplaceactiveobject.h"
29 #include "persistpropbag.h"
30 #include "persiststreaminit.h"
31 #include "persiststorage.h"
32 #include "provideclassinfo.h"
33 #include "connectioncontainer.h"
34 #include "objectsafety.h"
35 #include "vlccontrol.h"
36 #include "vlccontrol2.h"
37 #include "viewobject.h"
38 #include "dataobject.h"
39 #include "supporterrorinfo.h"
40
41 #include "utils.h"
42
43 #include <string.h>
44 #include <winreg.h>
45 #include <winuser.h>
46 #include <servprov.h>
47 #include <shlwapi.h>
48 #include <wininet.h>
49
50 using namespace std;
51
52 ////////////////////////////////////////////////////////////////////////
53 //class factory
54
55 static LRESULT CALLBACK VLCInPlaceClassWndProc(HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam) {
56     VLCPlugin *p_instance = reinterpret_cast<VLCPlugin *>(GetWindowLongPtr(hWnd, GWLP_USERDATA));
57
58     switch( uMsg )
59     {
60         case WM_ERASEBKGND:
61             return 1L;
62
63         case WM_PAINT:
64             PAINTSTRUCT ps;
65             RECT pr;
66             if( GetUpdateRect(hWnd, &pr, FALSE) )
67             {
68                 RECT bounds;
69                 GetClientRect(hWnd, &bounds);
70                 BeginPaint(hWnd, &ps);
71                 p_instance->onPaint(ps.hdc, bounds, pr);
72                 EndPaint(hWnd, &ps);
73             }
74             return 0L;
75
76         default:
77             return DefWindowProc(hWnd, uMsg, wParam, lParam);
78     }
79 };
80
81 VLCPluginClass::VLCPluginClass(LONG *p_class_ref, HINSTANCE hInstance, REFCLSID rclsid) :
82     _p_class_ref(p_class_ref),
83     _hinstance(hInstance),
84     _classid(rclsid),
85     _inplace_picture(NULL)
86 {
87     WNDCLASS wClass;
88
89     if( ! GetClassInfo(hInstance, getInPlaceWndClassName(), &wClass) )
90     {
91         wClass.style          = CS_NOCLOSE|CS_DBLCLKS;
92         wClass.lpfnWndProc    = VLCInPlaceClassWndProc;
93         wClass.cbClsExtra     = 0;
94         wClass.cbWndExtra     = 0;
95         wClass.hInstance      = hInstance;
96         wClass.hIcon          = NULL;
97         wClass.hCursor        = LoadCursor(NULL, IDC_ARROW);
98         wClass.hbrBackground  = NULL;
99         wClass.lpszMenuName   = NULL;
100         wClass.lpszClassName  = getInPlaceWndClassName();
101
102         _inplace_wndclass_atom = RegisterClass(&wClass);
103     }
104     else
105     {
106         _inplace_wndclass_atom = 0;
107     }
108
109     HBITMAP hbitmap = (HBITMAP)LoadImage(getHInstance(), MAKEINTRESOURCE(2), IMAGE_BITMAP, 0, 0, LR_DEFAULTCOLOR);
110     if( NULL != hbitmap )
111     {
112         PICTDESC pictDesc;
113
114         pictDesc.cbSizeofstruct = sizeof(PICTDESC);
115         pictDesc.picType        = PICTYPE_BITMAP;
116         pictDesc.bmp.hbitmap    = hbitmap;
117         pictDesc.bmp.hpal       = NULL;
118
119         if( FAILED(OleCreatePictureIndirect(&pictDesc, IID_IPicture, TRUE, reinterpret_cast<LPVOID*>(&_inplace_picture))) )
120             _inplace_picture = NULL;
121     }
122     AddRef();
123 };
124
125 VLCPluginClass::~VLCPluginClass()
126 {
127     if( 0 != _inplace_wndclass_atom )
128         UnregisterClass(MAKEINTATOM(_inplace_wndclass_atom), _hinstance);
129
130     if( NULL != _inplace_picture )
131         _inplace_picture->Release();
132 };
133
134 STDMETHODIMP VLCPluginClass::QueryInterface(REFIID riid, void **ppv)
135 {
136     if( NULL == ppv )
137         return E_INVALIDARG;
138
139     if( (IID_IUnknown == riid)
140      || (IID_IClassFactory == riid) )
141     {
142         AddRef();
143         *ppv = reinterpret_cast<LPVOID>(this);
144
145         return NOERROR;
146     }
147
148     *ppv = NULL;
149
150     return E_NOINTERFACE;
151 };
152
153 STDMETHODIMP_(ULONG) VLCPluginClass::AddRef(void)
154 {
155     return InterlockedIncrement(_p_class_ref);
156 };
157
158 STDMETHODIMP_(ULONG) VLCPluginClass::Release(void)
159 {
160     ULONG refcount = InterlockedDecrement(_p_class_ref);
161     if( 0 == refcount )
162     {
163         delete this;
164         return 0;
165     }
166     return refcount;
167 };
168
169 STDMETHODIMP VLCPluginClass::CreateInstance(LPUNKNOWN pUnkOuter, REFIID riid, void **ppv)
170 {
171     if( NULL == ppv )
172         return E_POINTER;
173
174     *ppv = NULL;
175
176     if( (NULL != pUnkOuter) && (IID_IUnknown != riid) ) {
177         return CLASS_E_NOAGGREGATION;
178     }
179
180     VLCPlugin *plugin = new VLCPlugin(this, pUnkOuter);
181     if( NULL != plugin )
182     {
183         HRESULT hr = plugin->QueryInterface(riid, ppv);
184         // the following will destroy the object if QueryInterface() failed
185         plugin->Release();
186         return hr;
187     }
188     return E_OUTOFMEMORY;
189 };
190
191 STDMETHODIMP VLCPluginClass::LockServer(BOOL fLock)
192 {
193     if( fLock )
194         AddRef();
195     else
196         Release();
197
198     return S_OK;
199 };
200
201 ////////////////////////////////////////////////////////////////////////
202
203 VLCPlugin::VLCPlugin(VLCPluginClass *p_class, LPUNKNOWN pUnkOuter) :
204     _inplacewnd(NULL),
205     _p_class(p_class),
206     _i_ref(1UL),
207     _p_libvlc(NULL),
208     _i_codepage(CP_ACP),
209     _b_usermode(TRUE)
210 {
211     p_class->AddRef();
212
213     vlcOleControl = new VLCOleControl(this);
214     vlcOleInPlaceObject = new VLCOleInPlaceObject(this);
215     vlcOleInPlaceActiveObject = new VLCOleInPlaceActiveObject(this);
216     vlcPersistStorage = new VLCPersistStorage(this);
217     vlcPersistStreamInit = new VLCPersistStreamInit(this);
218     vlcPersistPropertyBag = new VLCPersistPropertyBag(this);
219     vlcProvideClassInfo = new VLCProvideClassInfo(this);
220     vlcConnectionPointContainer = new VLCConnectionPointContainer(this);
221     vlcObjectSafety = new VLCObjectSafety(this);
222     vlcControl = new VLCControl(this);
223     vlcControl2 = new VLCControl2(this);
224     vlcViewObject = new VLCViewObject(this);
225     vlcDataObject = new VLCDataObject(this);
226     vlcOleObject = new VLCOleObject(this);
227     vlcSupportErrorInfo = new VLCSupportErrorInfo(this);
228
229     // configure controlling IUnknown interface for implemented interfaces
230     this->pUnkOuter = (NULL != pUnkOuter) ? pUnkOuter : dynamic_cast<LPUNKNOWN>(this);
231
232     // default picure
233     _p_pict = p_class->getInPlacePict();
234
235     // make sure that persistable properties are initialized
236     onInit();
237 };
238
239 VLCPlugin::~VLCPlugin()
240 {
241     /*
242     ** bump refcount to avoid recursive release from
243     ** following interfaces when releasing this interface
244     */
245     AddRef();
246
247     delete vlcSupportErrorInfo;
248     delete vlcOleObject;
249     delete vlcDataObject;
250     delete vlcViewObject;
251     delete vlcControl2;
252     delete vlcControl;
253     delete vlcConnectionPointContainer;
254     delete vlcProvideClassInfo;
255     delete vlcPersistPropertyBag;
256     delete vlcPersistStreamInit;
257     delete vlcPersistStorage;
258     delete vlcOleInPlaceActiveObject;
259     delete vlcOleInPlaceObject;
260     delete vlcObjectSafety;
261
262     delete vlcOleControl;
263     if( _p_pict )
264         _p_pict->Release();
265
266     SysFreeString(_bstr_mrl);
267     SysFreeString(_bstr_baseurl);
268
269     _p_class->Release();
270 };
271
272 STDMETHODIMP VLCPlugin::QueryInterface(REFIID riid, void **ppv)
273 {
274     if( NULL == ppv )
275         return E_INVALIDARG;
276
277     if( IID_IUnknown == riid )
278         *ppv = reinterpret_cast<LPVOID>(this);
279     else if( IID_IOleObject == riid )
280         *ppv = reinterpret_cast<LPVOID>(vlcOleObject);
281     else if( IID_IOleControl == riid )
282         *ppv = reinterpret_cast<LPVOID>(vlcOleControl);
283     else if( IID_IOleWindow == riid )
284         *ppv = reinterpret_cast<LPVOID>(vlcOleInPlaceObject);
285     else if( IID_IOleInPlaceObject == riid )
286         *ppv = reinterpret_cast<LPVOID>(vlcOleInPlaceObject);
287     else if( IID_IOleInPlaceActiveObject == riid )
288         *ppv = reinterpret_cast<LPVOID>(vlcOleInPlaceActiveObject);
289     else if( IID_IPersist == riid )
290         *ppv = reinterpret_cast<LPVOID>(vlcPersistStreamInit);
291     else if( IID_IPersistStreamInit == riid )
292         *ppv = reinterpret_cast<LPVOID>(vlcPersistStreamInit);
293     else if( IID_IPersistStorage == riid )
294         *ppv = reinterpret_cast<LPVOID>(vlcPersistStorage);
295     else if( IID_IPersistPropertyBag == riid )
296         *ppv = reinterpret_cast<LPVOID>(vlcPersistPropertyBag);
297     else if( IID_IProvideClassInfo == riid )
298         *ppv = reinterpret_cast<LPVOID>(vlcProvideClassInfo);
299     else if( IID_IProvideClassInfo2 == riid )
300         *ppv = reinterpret_cast<LPVOID>(vlcProvideClassInfo);
301     else if( IID_IConnectionPointContainer == riid )
302         *ppv = reinterpret_cast<LPVOID>(vlcConnectionPointContainer);
303     else if( IID_IObjectSafety == riid )
304         *ppv = reinterpret_cast<LPVOID>(vlcObjectSafety);
305     else if( IID_IDispatch == riid )
306         *ppv = (CLSID_VLCPlugin2 == getClassID()) ?
307                 reinterpret_cast<LPVOID>(vlcControl2) :
308                 reinterpret_cast<LPVOID>(vlcControl);
309     else if( IID_IVLCControl == riid )
310         *ppv = reinterpret_cast<LPVOID>(vlcControl);
311     else if( IID_IVLCControl2 == riid )
312         *ppv = reinterpret_cast<LPVOID>(vlcControl2);
313     else if( IID_IViewObject == riid )
314         *ppv = reinterpret_cast<LPVOID>(vlcViewObject);
315     else if( IID_IViewObject2 == riid )
316         *ppv = reinterpret_cast<LPVOID>(vlcViewObject);
317     else if( IID_IDataObject == riid )
318         *ppv = reinterpret_cast<LPVOID>(vlcDataObject);
319     else if( IID_ISupportErrorInfo == riid )
320         *ppv = reinterpret_cast<LPVOID>(vlcSupportErrorInfo);
321     else
322     {
323         *ppv = NULL;
324         return E_NOINTERFACE;
325     }
326     ((LPUNKNOWN)*ppv)->AddRef();
327     return NOERROR;
328 };
329
330 STDMETHODIMP_(ULONG) VLCPlugin::AddRef(void)
331 {
332     return InterlockedIncrement((LONG *)&_i_ref);
333 };
334
335 STDMETHODIMP_(ULONG) VLCPlugin::Release(void)
336 {
337     if( ! InterlockedDecrement((LONG *)&_i_ref) )
338     {
339         delete this;
340         return 0;
341     }
342     return _i_ref;
343 };
344
345 //////////////////////////////////////
346
347 HRESULT VLCPlugin::onInit(void)
348 {
349     if( NULL == _p_libvlc )
350     {
351         // initialize persistable properties
352         _b_autoplay   = TRUE;
353         _b_autoloop   = FALSE;
354         _b_toolbar    = FALSE;
355         _bstr_baseurl = NULL;
356         _bstr_mrl     = NULL;
357         _b_visible    = TRUE;
358         _b_mute       = FALSE;
359         _i_volume     = 50;
360         _i_time       = 0;
361         _i_backcolor  = 0;
362         // set default/preferred size (320x240) pixels in HIMETRIC
363         HDC hDC = CreateDevDC(NULL);
364         _extent.cx = 320;
365         _extent.cy = 240;
366         HimetricFromDP(hDC, (LPPOINT)&_extent, 1);
367         DeleteDC(hDC);
368
369         return S_OK;
370     }
371     return CO_E_ALREADYINITIALIZED;
372 };
373
374 HRESULT VLCPlugin::onLoad(void)
375 {
376     if( SysStringLen(_bstr_baseurl) == 0 )
377     {
378         /*
379         ** try to retreive the base URL using the client site moniker, which for Internet Explorer
380         ** is the URL of the page the plugin is embedded into.
381         */
382         LPOLECLIENTSITE pClientSite;
383         if( SUCCEEDED(vlcOleObject->GetClientSite(&pClientSite)) && (NULL != pClientSite) )
384         {
385             IBindCtx *pBC = 0;
386             if( SUCCEEDED(CreateBindCtx(0, &pBC)) )
387             {
388                 LPMONIKER pContMoniker = NULL;
389                 if( SUCCEEDED(pClientSite->GetMoniker(OLEGETMONIKER_ONLYIFTHERE,
390                                 OLEWHICHMK_CONTAINER, &pContMoniker)) )
391                 {
392                     LPOLESTR base_url;
393                     if( SUCCEEDED(pContMoniker->GetDisplayName(pBC, NULL, &base_url)) )
394                     {
395                         /*
396                         ** check that the moniker name is a URL
397                         */
398                         if( UrlIsW(base_url, URLIS_URL) )
399                         {
400                             /* copy base URL */
401                             _bstr_baseurl = SysAllocString(base_url);
402                         }
403                         CoTaskMemFree(base_url);
404                     }
405                 }
406             }
407         }
408     }
409     setDirty(FALSE);
410     return S_OK;
411 };
412
413 HRESULT VLCPlugin::getVLCObject(int* i_vlc)
414 {
415     libvlc_instance_t *p_libvlc;
416     HRESULT result = getVLC(&p_libvlc);
417     if( SUCCEEDED(result) )
418     {
419         *i_vlc = libvlc_get_vlc_id(p_libvlc);
420     }
421     else
422     {
423         *i_vlc = 0;
424     }
425     return result;
426 }
427
428 HRESULT VLCPlugin::getVLC(libvlc_instance_t** pp_libvlc)
429 {
430     extern HMODULE DllGetModule();
431
432     if( ! isRunning() )
433     {
434         /*
435         ** default initialization options
436         */
437         const char *ppsz_argv[32] = { };
438         int   ppsz_argc = 0;
439
440         char p_progpath[MAX_PATH];
441         {
442             TCHAR w_progpath[MAX_PATH];
443             DWORD len = GetModuleFileName(DllGetModule(), w_progpath, MAX_PATH);
444             if( len > 0 )
445             {
446                 len = WideCharToMultiByte(CP_UTF8, 0, w_progpath, len, p_progpath,
447                            sizeof(p_progpath)-1, NULL, NULL);
448                 if( len > 0 )
449                 {
450                     p_progpath[len] = '\0';
451                     ppsz_argv[0] = p_progpath;
452                 }
453             }
454         }
455
456         ppsz_argv[ppsz_argc++] = "-vv";
457
458         HKEY h_key;
459         char p_pluginpath[MAX_PATH];
460         if( RegOpenKeyEx( HKEY_LOCAL_MACHINE, TEXT("Software\\VideoLAN\\VLC"),
461                           0, KEY_READ, &h_key ) == ERROR_SUCCESS )
462         {
463             DWORD i_type, i_data = MAX_PATH;
464             TCHAR w_pluginpath[MAX_PATH];
465             if( RegQueryValueEx( h_key, TEXT("InstallDir"), 0, &i_type,
466                                  (LPBYTE)w_pluginpath, &i_data ) == ERROR_SUCCESS )
467             {
468                 if( i_type == REG_SZ )
469                 {
470                     if( WideCharToMultiByte(CP_UTF8, 0, w_pluginpath, -1, p_pluginpath,
471                              sizeof(p_pluginpath)-sizeof("\\plugins")+1, NULL, NULL) )
472                     {
473                         strcat( p_pluginpath, "\\plugins" );
474                         ppsz_argv[ppsz_argc++] = "--plugin-path";
475                         ppsz_argv[ppsz_argc++] = p_pluginpath;
476                     }
477                 }
478             }
479             RegCloseKey( h_key );
480         }
481
482         // make sure plugin isn't affected with VLC single instance mode
483         ppsz_argv[ppsz_argc++] = "--no-one-instance";
484
485         /* common settings */
486         ppsz_argv[ppsz_argc++] = "--no-stats";
487         ppsz_argv[ppsz_argc++] = "--no-media-library";
488         ppsz_argv[ppsz_argc++] = "--intf=dummy";
489
490         // loop mode is a configuration option only
491         if( _b_autoloop )
492             ppsz_argv[ppsz_argc++] = "--loop";
493
494         _p_libvlc = libvlc_new(ppsz_argc, ppsz_argv, NULL);
495         if( NULL == _p_libvlc )
496         {
497             *pp_libvlc = NULL;
498             return E_FAIL;
499         }
500
501         // initial volume setting
502         libvlc_audio_set_volume(_p_libvlc, _i_volume, NULL);
503         if( _b_mute )
504         {
505             libvlc_audio_set_mute(_p_libvlc, TRUE, NULL);
506         }
507
508         // initial playlist item
509         if( SysStringLen(_bstr_mrl) > 0 )
510         {
511             char *psz_mrl = NULL;
512
513             if( SysStringLen(_bstr_baseurl) > 0 )
514             {
515                 /*
516                 ** if the MRL a relative URL, we should end up with an absolute URL
517                 */
518                 LPWSTR abs_url = CombineURL(_bstr_baseurl, _bstr_mrl);
519                 if( NULL != abs_url )
520                 {
521                     psz_mrl = CStrFromWSTR(CP_UTF8, abs_url, wcslen(abs_url));
522                     CoTaskMemFree(abs_url);
523                 }
524                 else
525                 {
526                     psz_mrl = CStrFromBSTR(CP_UTF8, _bstr_mrl);
527                 }
528             }
529             else
530             {
531                 /*
532                 ** baseURL is empty, assume MRL is absolute
533                 */
534                 psz_mrl = CStrFromBSTR(CP_UTF8, _bstr_mrl);
535             }
536             if( NULL != psz_mrl )
537             {
538                 const char *options[1];
539                 int i_options = 0;
540
541                 char timeBuffer[32];
542                 if( _i_time )
543                 {
544                     snprintf(timeBuffer, sizeof(timeBuffer), ":start-time=%d", _i_time);
545                     options[i_options++] = timeBuffer;
546                 }
547                 // add default target to playlist
548                 libvlc_playlist_add_extended(_p_libvlc, psz_mrl, NULL, i_options, options, NULL);
549                 CoTaskMemFree(psz_mrl);
550             }
551         }
552     }
553     *pp_libvlc = _p_libvlc;
554     return S_OK;
555 };
556
557 void VLCPlugin::setErrorInfo(REFIID riid, const char *description)
558 {
559     vlcSupportErrorInfo->setErrorInfo( getClassID() == CLSID_VLCPlugin2 ?
560         OLESTR("VideoLAN.VLCPlugin.2") : OLESTR("VideoLAN.VLCPlugin.1"),
561         riid, description );
562 };
563
564 HRESULT VLCPlugin::onAmbientChanged(LPUNKNOWN pContainer, DISPID dispID)
565 {
566     VARIANT v;
567     switch( dispID )
568     {
569         case DISPID_AMBIENT_BACKCOLOR:
570             VariantInit(&v);
571             V_VT(&v) = VT_I4;
572             if( SUCCEEDED(GetObjectProperty(pContainer, dispID, v)) )
573             {
574                 setBackColor(V_I4(&v));
575             }
576             break;
577         case DISPID_AMBIENT_DISPLAYNAME:
578             break;
579         case DISPID_AMBIENT_FONT:
580             break;
581         case DISPID_AMBIENT_FORECOLOR:
582             break;
583         case DISPID_AMBIENT_LOCALEID:
584             break;
585         case DISPID_AMBIENT_MESSAGEREFLECT:
586             break;
587         case DISPID_AMBIENT_SCALEUNITS:
588             break;
589         case DISPID_AMBIENT_TEXTALIGN:
590             break;
591         case DISPID_AMBIENT_USERMODE:
592             VariantInit(&v);
593             V_VT(&v) = VT_BOOL;
594             if( SUCCEEDED(GetObjectProperty(pContainer, dispID, v)) )
595             {
596                 setUserMode(V_BOOL(&v) != VARIANT_FALSE);
597             }
598             break;
599         case DISPID_AMBIENT_UIDEAD:
600             break;
601         case DISPID_AMBIENT_SHOWGRABHANDLES:
602             break;
603         case DISPID_AMBIENT_SHOWHATCHING:
604             break;
605         case DISPID_AMBIENT_DISPLAYASDEFAULT:
606             break;
607         case DISPID_AMBIENT_SUPPORTSMNEMONICS:
608             break;
609         case DISPID_AMBIENT_AUTOCLIP:
610             break;
611         case DISPID_AMBIENT_APPEARANCE:
612             break;
613         case DISPID_AMBIENT_CODEPAGE:
614             VariantInit(&v);
615             V_VT(&v) = VT_I4;
616             if( SUCCEEDED(GetObjectProperty(pContainer, dispID, v)) )
617             {
618                 setCodePage(V_I4(&v));
619             }
620             break;
621         case DISPID_AMBIENT_PALETTE:
622             break;
623         case DISPID_AMBIENT_CHARSET:
624             break;
625         case DISPID_AMBIENT_RIGHTTOLEFT:
626             break;
627         case DISPID_AMBIENT_TOPTOBOTTOM:
628             break;
629         case DISPID_UNKNOWN:
630             /*
631             ** multiple property change, look up the ones we are interested in
632             */
633             VariantInit(&v);
634             V_VT(&v) = VT_BOOL;
635             if( SUCCEEDED(GetObjectProperty(pContainer, DISPID_AMBIENT_USERMODE, v)) )
636             {
637                 setUserMode(V_BOOL(&v) != VARIANT_FALSE);
638             }
639             VariantInit(&v);
640             V_VT(&v) = VT_I4;
641             if( SUCCEEDED(GetObjectProperty(pContainer, DISPID_AMBIENT_CODEPAGE, v)) )
642             {
643                 setCodePage(V_I4(&v));
644             }
645             break;
646     }
647     return S_OK;
648 };
649
650 HRESULT VLCPlugin::onClose(DWORD dwSaveOption)
651 {
652     if( isInPlaceActive() )
653     {
654         onInPlaceDeactivate();
655     }
656     if( isRunning() )
657     {
658         libvlc_instance_t* p_libvlc = _p_libvlc;
659
660         IVLCLog *p_log;
661         if( SUCCEEDED(vlcControl2->get_log(&p_log)) )
662         {
663             // make sure the log is disabled
664             p_log->put_verbosity(-1);
665             p_log->Release();
666         }
667
668         _p_libvlc = NULL;
669         vlcDataObject->onClose();
670
671         libvlc_release(p_libvlc);
672     }
673     return S_OK;
674 };
675
676 BOOL VLCPlugin::isInPlaceActive(void)
677 {
678     return (NULL != _inplacewnd);
679 };
680
681 HRESULT VLCPlugin::onActivateInPlace(LPMSG lpMesg, HWND hwndParent, LPCRECT lprcPosRect, LPCRECT lprcClipRect)
682 {
683     RECT clipRect = *lprcClipRect;
684
685     /*
686     ** record keeping of control geometry within container
687     */
688     _posRect = *lprcPosRect;
689
690     /*
691     ** Create a window for in place activated control.
692     ** the window geometry matches the control viewport
693     ** within container so that embedded video is always
694     ** properly displayed.
695     */
696     _inplacewnd = CreateWindow(_p_class->getInPlaceWndClassName(),
697             TEXT("VLC Plugin In-Place Window"),
698             WS_CHILD|WS_CLIPCHILDREN|WS_CLIPSIBLINGS,
699             lprcPosRect->left,
700             lprcPosRect->top,
701             lprcPosRect->right-lprcPosRect->left,
702             lprcPosRect->bottom-lprcPosRect->top,
703             hwndParent,
704             0,
705             _p_class->getHInstance(),
706             NULL
707            );
708
709     if( NULL == _inplacewnd )
710         return E_FAIL;
711
712     SetWindowLongPtr(_inplacewnd, GWLP_USERDATA, reinterpret_cast<LONG_PTR>(this));
713
714     /* change cliprect coordinates system relative to window bounding rect */
715     OffsetRect(&clipRect, -lprcPosRect->left, -lprcPosRect->top);
716
717     HRGN clipRgn = CreateRectRgnIndirect(&clipRect);
718     SetWindowRgn(_inplacewnd, clipRgn, TRUE);
719
720     if( _b_usermode )
721     {
722         /* will run vlc if not done already */
723         libvlc_instance_t* p_libvlc;
724         HRESULT result = getVLC(&p_libvlc);
725         if( FAILED(result) )
726             return result;
727
728         /* set internal video width and height */
729         libvlc_video_set_size(p_libvlc,
730             lprcPosRect->right-lprcPosRect->left,
731             lprcPosRect->bottom-lprcPosRect->top,
732             NULL );
733
734         /* set internal video parent window */
735         libvlc_video_set_parent(p_libvlc,
736             reinterpret_cast<libvlc_drawable_t>(_inplacewnd), NULL);
737
738         if( _b_autoplay & (libvlc_playlist_items_count(p_libvlc, NULL) > 0) )
739         {
740             libvlc_playlist_play(p_libvlc, 0, 0, NULL, NULL);
741             fireOnPlayEvent();
742         }
743     }
744
745     if( isVisible() )
746         ShowWindow(_inplacewnd, SW_SHOW);
747
748     return S_OK;
749 };
750
751 HRESULT VLCPlugin::onInPlaceDeactivate(void)
752 {
753     if( isRunning() )
754     {
755         libvlc_playlist_stop(_p_libvlc, NULL);
756         fireOnStopEvent();
757     }
758
759     DestroyWindow(_inplacewnd);
760     _inplacewnd = NULL;
761
762     return S_OK;
763 };
764
765 void VLCPlugin::setVisible(BOOL fVisible)
766 {
767     if( fVisible != _b_visible )
768     {
769         _b_visible = fVisible;
770         if( isInPlaceActive() )
771         {
772             ShowWindow(_inplacewnd, fVisible ? SW_SHOW : SW_HIDE);
773             if( fVisible )
774                 InvalidateRect(_inplacewnd, NULL, TRUE);
775         }
776         setDirty(TRUE);
777         firePropChangedEvent(DISPID_Visible);
778     }
779 };
780
781 void VLCPlugin::setVolume(int volume)
782 {
783     if( volume < 0 )
784         volume = 0;
785     else if( volume > 200 )
786         volume = 200;
787
788     if( volume != _i_volume )
789     {
790         _i_volume = volume;
791         if( isRunning() )
792         {
793             libvlc_audio_set_volume(_p_libvlc, _i_volume, NULL);
794         }
795         setDirty(TRUE);
796     }
797 };
798
799 void VLCPlugin::setBackColor(OLE_COLOR backcolor)
800 {
801     if( _i_backcolor != backcolor )
802     {
803         _i_backcolor = backcolor;
804         if( isInPlaceActive() )
805         {
806
807         }
808         setDirty(TRUE);
809     }
810 };
811
812 void VLCPlugin::setTime(int seconds)
813 {
814     if( seconds < 0 )
815         seconds = 0;
816
817     if( seconds != _i_time )
818     {
819         setStartTime(_i_time);
820         if( isRunning() )
821         {
822             libvlc_media_player_t *p_md = libvlc_playlist_get_media_player(_p_libvlc, NULL);
823             if( NULL != p_md )
824             {
825                 libvlc_media_player_set_time(p_md, _i_time, NULL);
826                 libvlc_media_player_release(p_md);
827             }
828         }
829     }
830 };
831
832 void VLCPlugin::setFocus(BOOL fFocus)
833 {
834     if( fFocus )
835         SetActiveWindow(_inplacewnd);
836 };
837
838 BOOL VLCPlugin::hasFocus(void)
839 {
840     return GetActiveWindow() == _inplacewnd;
841 };
842
843 void VLCPlugin::onDraw(DVTARGETDEVICE * ptd, HDC hicTargetDev,
844         HDC hdcDraw, LPCRECTL lprcBounds, LPCRECTL lprcWBounds)
845 {
846     if( isVisible() )
847     {
848         long width = lprcBounds->right-lprcBounds->left;
849         long height = lprcBounds->bottom-lprcBounds->top;
850
851         RECT bounds = { lprcBounds->left, lprcBounds->top, lprcBounds->right, lprcBounds->bottom };
852
853         if( isUserMode() )
854         {
855             /* VLC is in user mode, just draw background color */
856             COLORREF colorref = RGB(0, 0, 0);
857             OleTranslateColor(_i_backcolor, (HPALETTE)GetStockObject(DEFAULT_PALETTE), &colorref);
858             if( colorref != RGB(0, 0, 0) )
859             {
860                 /* custom background */
861                 HBRUSH colorbrush = CreateSolidBrush(colorref);
862                 FillRect(hdcDraw, &bounds, colorbrush);
863                 DeleteObject((HANDLE)colorbrush);
864             }
865             else
866             {
867                 /* black background */
868                 FillRect(hdcDraw, &bounds, (HBRUSH)GetStockObject(BLACK_BRUSH));
869             }
870         }
871         else
872         {
873             /* VLC is in design mode, draw the VLC logo */
874             FillRect(hdcDraw, &bounds, (HBRUSH)GetStockObject(WHITE_BRUSH));
875
876             LPPICTURE pict = getPicture();
877             if( NULL != pict )
878             {
879                 OLE_XSIZE_HIMETRIC picWidth;
880                 OLE_YSIZE_HIMETRIC picHeight;
881
882                 pict->get_Width(&picWidth);
883                 pict->get_Height(&picHeight);
884
885                 SIZEL picSize = { picWidth, picHeight };
886
887                 if( NULL != hicTargetDev )
888                 {
889                     DPFromHimetric(hicTargetDev, (LPPOINT)&picSize, 1);
890                 }
891                 else if( NULL != (hicTargetDev = CreateDevDC(ptd)) )
892                 {
893                     DPFromHimetric(hicTargetDev, (LPPOINT)&picSize, 1);
894                     DeleteDC(hicTargetDev);
895                 }
896
897                 if( picSize.cx > width-4 )
898                     picSize.cx = width-4;
899                 if( picSize.cy > height-4 )
900                     picSize.cy = height-4;
901
902                 LONG dstX = lprcBounds->left+(width-picSize.cx)/2;
903                 LONG dstY = lprcBounds->top+(height-picSize.cy)/2;
904
905                 if( NULL != lprcWBounds )
906                 {
907                     RECT wBounds = { lprcWBounds->left, lprcWBounds->top, lprcWBounds->right, lprcWBounds->bottom };
908                     pict->Render(hdcDraw, dstX, dstY, picSize.cx, picSize.cy,
909                             0L, picHeight, picWidth, -picHeight, &wBounds);
910                 }
911                 else
912                     pict->Render(hdcDraw, dstX, dstY, picSize.cx, picSize.cy,
913                             0L, picHeight, picWidth, -picHeight, NULL);
914
915                 pict->Release();
916             }
917
918             SelectObject(hdcDraw, GetStockObject(BLACK_BRUSH));
919
920             MoveToEx(hdcDraw, bounds.left, bounds.top, NULL);
921             LineTo(hdcDraw, bounds.left+width-1, bounds.top);
922             LineTo(hdcDraw, bounds.left+width-1, bounds.top+height-1);
923             LineTo(hdcDraw, bounds.left, bounds.top+height-1);
924             LineTo(hdcDraw, bounds.left, bounds.top);
925         }
926     }
927 };
928
929 void VLCPlugin::onPaint(HDC hdc, const RECT &bounds, const RECT &clipRect)
930 {
931     if( isVisible() )
932     {
933         /* if VLC is in design mode, draw control logo */
934         HDC hdcDraw = CreateCompatibleDC(hdc);
935         if( NULL != hdcDraw )
936         {
937             SIZEL size = getExtent();
938             DPFromHimetric(hdc, (LPPOINT)&size, 1);
939             RECTL posRect = { 0, 0, size.cx, size.cy };
940
941             int width = bounds.right-bounds.left;
942             int height = bounds.bottom-bounds.top;
943
944             HBITMAP hBitmap = CreateCompatibleBitmap(hdc, width, height);
945             if( NULL != hBitmap )
946             {
947                 HBITMAP oldBmp = (HBITMAP)SelectObject(hdcDraw, hBitmap);
948
949                 if( (size.cx != width) || (size.cy != height) )
950                 {
951                     // needs to scale canvas
952                     SetMapMode(hdcDraw, MM_ANISOTROPIC);
953                     SetWindowExtEx(hdcDraw, size.cx, size.cy, NULL);
954                     SetViewportExtEx(hdcDraw, width, height, NULL);
955                 }
956
957                 onDraw(NULL, hdc, hdcDraw, &posRect, NULL);
958
959                 SetMapMode(hdcDraw, MM_TEXT);
960                 BitBlt(hdc, bounds.left, bounds.top,
961                         width, height,
962                         hdcDraw, 0, 0,
963                         SRCCOPY);
964
965                 SelectObject(hdcDraw, oldBmp);
966                 DeleteObject(hBitmap);
967             }
968             DeleteDC(hdcDraw);
969         }
970     }
971 };
972
973 void VLCPlugin::onPositionChange(LPCRECT lprcPosRect, LPCRECT lprcClipRect)
974 {
975     RECT clipRect = *lprcClipRect;
976
977     //RedrawWindow(GetParent(_inplacewnd), &_posRect, NULL, RDW_INVALIDATE|RDW_ERASE|RDW_ALLCHILDREN);
978
979     /*
980     ** record keeping of control geometry within container
981     */
982     _posRect = *lprcPosRect;
983
984     /*
985     ** change in-place window geometry to match clipping region
986     */
987     SetWindowPos(_inplacewnd, NULL,
988             lprcPosRect->left,
989             lprcPosRect->top,
990             lprcPosRect->right-lprcPosRect->left,
991             lprcPosRect->bottom-lprcPosRect->top,
992             SWP_NOACTIVATE|
993             SWP_NOCOPYBITS|
994             SWP_NOZORDER|
995             SWP_NOOWNERZORDER );
996
997     /* change cliprect coordinates system relative to window bounding rect */
998     OffsetRect(&clipRect, -lprcPosRect->left, -lprcPosRect->top);
999     HRGN clipRgn = CreateRectRgnIndirect(&clipRect);
1000     SetWindowRgn(_inplacewnd, clipRgn, FALSE);
1001
1002     //RedrawWindow(_videownd, &posRect, NULL, RDW_INVALIDATE|RDW_ERASE|RDW_ALLCHILDREN);
1003     if( isRunning() )
1004     {
1005         libvlc_video_set_size(_p_libvlc,
1006             lprcPosRect->right-lprcPosRect->left,
1007             lprcPosRect->bottom-lprcPosRect->top,
1008             NULL );
1009     }
1010 };
1011
1012 void VLCPlugin::freezeEvents(BOOL freeze)
1013 {
1014     vlcConnectionPointContainer->freezeEvents(freeze);
1015 };
1016
1017 void VLCPlugin::firePropChangedEvent(DISPID dispid)
1018 {
1019     vlcConnectionPointContainer->firePropChangedEvent(dispid);
1020 };
1021
1022 void VLCPlugin::fireOnPlayEvent(void)
1023 {
1024     DISPPARAMS dispparamsNoArgs = {NULL, NULL, 0, 0};
1025     vlcConnectionPointContainer->fireEvent(DISPID_PlayEvent, &dispparamsNoArgs);
1026 };
1027
1028 void VLCPlugin::fireOnPauseEvent(void)
1029 {
1030     DISPPARAMS dispparamsNoArgs = {NULL, NULL, 0, 0};
1031     vlcConnectionPointContainer->fireEvent(DISPID_PauseEvent, &dispparamsNoArgs);
1032 };
1033
1034 void VLCPlugin::fireOnStopEvent(void)
1035 {
1036     DISPPARAMS dispparamsNoArgs = {NULL, NULL, 0, 0};
1037     vlcConnectionPointContainer->fireEvent(DISPID_StopEvent, &dispparamsNoArgs);
1038 };