Re: Playing Video in a Dialog

On 28/04/2014 18:07, Michael Stahl wrote:
> On 17/04/14 11:23, Fernand Vanrie wrote:
> > On The French user site i found usefull code to play video on Windows
> > using the API and Basic.
> >
> > The code opens a MediaWindow and play any video
> >
> > The player has a undocumented method "CreatePlayerWindow" who needs
> > arguments (a empty array do crash LO)
> >
> > Do someone knows how to use this method and how Video can been played in
> > a Dialog ?
> hi Fernand,
>
> let's see...
>
> avmedia/source/win/window.cxx:
> > bool Window::create( const uno::Sequence< uno::Any >& rArguments )
> > {
> >      IVideoWindow* pVideoWindow = const_cast< IVideoWindow* >( mrPlayer.getVideoWindow() );
> >      WNDCLASS* mpWndClass = lcl_getWndClass();
> >
> >      if( !mnFrameWnd && pVideoWindow && mpWndClass )
> >      {
> >          awt::Rectangle  aRect;
> >          sal_IntPtr       nWnd;
> >
> >          rArguments[ 0 ] >>= nWnd;
> >          rArguments[ 1 ] >>= aRect;
> >
> >          mnParentWnd = static_cast<int>(nWnd);
> so on Windows, parameters are a HWND of the parent and a rectangle...
> probably the parameters are undocumented for a reason, very
> system-dependent and subject to change without notice.  also i have no
> idea how you can get a window's HWND from BASIC code.

Michael thakns for the hint

on the ooForum i found this code:


Dim arg(0) As Object
Dim oWindow As Object
    ...
   moSM = CreateObject("com.sun.star.ServiceManager")

   moDesk = moSM2.CreateInstance("com.sun.star.frame.Desktop")
  oWindow = moDesk.ActiveFrame.GetContainerWindow()
    Dim tableau()
    tableau = Array()
    ' the 1st param is an empty array, the 2nd is an integer = 1 (may 
be OS dependant ?)
    mHwndOOo = oWindow.getWindowHandle(tableau, 1)

but how to make this work in a dialog ?

Greetz

Fernand


> _______________________________________________
> LibreOffice mailing list
> LibreOffice@lists.freedesktop.org
> http://lists.freedesktop.org/mailman/listinfo/libreoffice