OpenEuphoria

1. [Win32Lib] wrap Media control?

• Posted by DanM Feb 07, 2009
• 1103 views

Has or can anyone wrap the Media control (aka Media Player) for Win32Lib?

I know Matt or Greg has wrapped it (in a dll?) for wxEuphoria, but I've got an app started using Win32Lib, & it'd be easier to continue with what I've done than "port" it over to wxEuphoria.

Maybe the wxEuphoria dll could be utilized from within Win32Lib programs?

Dan

3. Re: [Win32Lib] wrap Media control?

• Posted by DanM Feb 07, 2009
• 1226 views

Well, I do need the Media control to be a child of another window, hope the control isn't inherently limited to top level window in wxEuphoria?

Any 'hints' as to how the dll might be utilized from within Win32Lib?

It's kinda "six-of-one, or half-a-dozen-of-another" as to which I would need more help with, "porting" my Win32Lib code over to wxEuphoria, or attempting to bring Media control over from the dll to Win32Lib. I'm guessing harder to bring the control over to Win32Lib.

Dan

5. Re: [Win32Lib] wrap Media control?

• Posted by jimcbrown (admin) Feb 07, 2009
• 1139 views

Not sure how wxWidgets works (or if it allows this), but if he creates the main (top-level) window with wxEuphoria and can get the HANDLE to the native top-level window, he should be able to create other controls as childs of that window using W32API directly. So it shouldn't be too hard to use Win32Lib for the rest of the app.

7. Re: [Win32Lib] wrap Media control?

• Posted by jimcbrown (admin) Feb 07, 2009
• 1122 views
• Last edited Feb 08, 2009

Which is why the top level window has to be a wxWidget window with Win32Lib child controls (and one wxWidget Media Control), instead of making the top level window with Win32Lib and adding a wxWidget to that window.

9. Re: [Win32Lib] wrap Media control?

• Posted by ghaberek (admin) Feb 09, 2009
• 1216 views

You can do everything with EuCOM. So far I've been able to wrap wmp.ocx using TBrowse, and create a control on the window and move it around (using Win32Lib). Now I'm just trying to figure out all these methods and stuff...

Windows Media Player Object Model

-Greg

11. Re: [Win32Lib] wrap Media control?

• Posted by ghaberek (admin) Feb 09, 2009
• 1086 views

Here's the wrapped EuCOM file, for those interested (requires EuCOM and Win32Lib): wmp.ew (267 KB)

This is what I have so far (note the "now what" part)...

include Win32Lib.ew 
include wmp.ew 
without warning 
 
object PATH 
 
    PATH = getenv("PATH") 
    if sequence( PATH ) then 
        PATH = w32split( PATH, ";" ) 
        VOID = setSearchPaths( PATH ) 
    end if 
 
constant icoMedia   = extractIcon({ "wmp.dll", 7, 1 }) 
constant Main       = create( Window, "Windows Media Player Demo", 0, Default, Default, 640, 480, 0 ) 
constant File       = create( Menu, "&File", Main, 0, 0, 0, 0, 0 ) 
constant File_Open  = create( MenuItem, "&Open...", File, 0, 0, 0, 0, 0 ) 
constant File_Sep1  = create( MenuItem, "-", File, 0, 0, 0, 0, 0 ) 
constant File_Exit  = create( MenuItem, "E&xit", File, 0, 0, 0, 0, w32AUTOCLOSE ) 
constant WMPlayer   = create_com_control( WindowsMediaPlayer_clsid_ix, getHandle(Main), 0, 0, 0, 0 ) 
 
setIcon( Main, icoMedia ) 
 
procedure Main_onResize( integer pSelf, integer pEvent, sequence pParams ) 
 
    sequence rect 
     
    rect = getClientRect( pSelf ) 
    move_obj( WMPlayer, rect[1..4] ) 
     
end procedure 
setHandler( Main, w32HResize, routine_id("Main_onResize") ) 
 
procedure File_Open_onClick( integer pSelf, integer pEvent, sequence pParams ) 
 
    sequence filename 
    atom bstr 
     
    filename = getOpenFileName( Main, "", {"All files (*.*)", "*.*"} ) 
    if length( filename ) = 0 then 
        return 
    end if 
     
    -- ...now what? 
     
end procedure 
setHandler( File_Open, w32HClick, routine_id("File_Open_onClick") ) 
 
WinMain( Main, Normal ) 

-Greg

13. Re: [Win32Lib] wrap Media control?

• Posted by DanM Feb 09, 2009
• 1067 views

include Win32Lib.ew 
include wmp.ew 
without warning 
 
object PATH 
 
    PATH = getenv("PATH") 
    if sequence( PATH ) then 
        PATH = w32split( PATH, ";" ) 
        VOID = setSearchPaths( PATH ) 
    end if 
 
constant icoMedia   = extractIcon({ "wmp.dll", 7, 1 }) 
constant Main       = create( Window, "Windows Media Player Demo", 0, Default, Default, 640, 480, 0 ) 
constant File       = create( Menu, "&File", Main, 0, 0, 0, 0, 0 ) 
constant File_Open  = create( MenuItem, "&Open...", File, 0, 0, 0, 0, 0 ) 
constant File_Sep1  = create( MenuItem, "-", File, 0, 0, 0, 0, 0 ) 
constant File_Exit  = create( MenuItem, "E&xit", File, 0, 0, 0, 0, w32AUTOCLOSE ) 
constant WMPlayer   = create_com_control( WindowsMediaPlayer_clsid_ix, getHandle(Main), 0, 0, 0, 0 ) 
 
setIcon( Main, icoMedia ) 
 
procedure Main_onResize( integer pSelf, integer pEvent, sequence pParams ) 
 
    sequence rect 
     
    rect = getClientRect( pSelf ) 
    move_obj( WMPlayer, rect[1..4] ) 
     
end procedure 
setHandler( Main, w32HResize, routine_id("Main_onResize") ) 
 
procedure File_Open_onClick( integer pSelf, integer pEvent, sequence pParams ) 
 
    sequence filename 
    atom bstr 
     
    filename = getOpenFileName( Main, "", {"All files (*.*)", "*.*"} ) 
    if length( filename ) = 0 then 
        return 
    end if 
     
    -- ...now what? 
     
end procedure 
setHandler( File_Open, w32HClick, routine_id("File_Open_onClick") ) 
 
WinMain( Main, Normal ) 

Wow, I never expected this much so soon! I really hate to have to leave for the rest of the day!

I did set up to see what your code + EuCom + your wrap did, and got this error on my system:

C:\Programming\EUPHORIA\Libraries\Win32Lib_60_5\Include\w32file.ew:1114
in function setSearchPaths()
subscript value 0 is out of bounds, reading from a sequence of length 0

Any obvious cause leap out at anyone?

Dan (regretfully signing off for rest of day)

15. Re: [Win32Lib] wrap Media control?

• Posted by ghaberek (admin) Feb 09, 2009
• 1074 views

Here's my updated example. It still doesn't load the media, but other methods work fine...

 
include Win32Lib.ew 
include wmp.ew 
without warning 
 
object PATH 
 
    PATH = getenv("PATH") 
    if sequence( PATH ) then 
        PATH = w32split( PATH, ";" ) 
        PATH = w32removeItem( "", PATH ) 
        VOID = setSearchPaths( PATH ) 
    end if 
 
constant icoMedia = extractIcon({ "wmp.dll", 7, 1 }) 
 
constant kAppName   = "Windows Media Player Demo" 
constant Main       = create( Window, kAppName, 0, Default, Default, 640, 480, 0 ) 
constant File       = create( Menu, "&File", Main, 0, 0, 0, 0, 0 ) 
constant File_Open  = create( MenuItem, "&Open...", File, 0, 0, 0, 0, 0 ) 
constant File_Sep1  = create( MenuItem, "-", File, 0, 0, 0, 0, 0 ) 
constant File_Exit  = create( MenuItem, "E&xit", File, 0, 0, 0, 0, w32AUTOCLOSE ) 
constant Help       = create( Menu, "&Help", Main, 0, 0, 0, 0, 0 ) 
constant Help_About = create( MenuItem, "&About...", Help, 0, 0, 0, 0, 0 ) 
 
constant WMPlayer   = create_com_control( WindowsMediaPlayer_clsid_ix, getHandle(Main), 0, 0, 0, 0 ) 
constant WMControls = ref_com_object( IWMPControls3_clsid_ix, invoke(WMPlayer, {WindowsMediaPlayer_p_controls}, {}, {}, DISPATCH_PROPERTYGET) ) 
constant WMSettings = ref_com_object( IWMPSettings2_clsid_ix, invoke(WMPlayer, {WindowsMediaPlayer_p_settings}, {}, {}, DISPATCH_PROPERTYGET) ) 
 
setIcon( Main, icoMedia ) 
 
procedure Main_onOpen( integer pSelf, integer pEvent, sequence pParams ) 
 
    VOID = invoke( WMSettings, {IWMPSettings2_p_autoStart}, {w32True}, {VT_BOOL}, DISPATCH_PROPERTYPUT ) 
    VOID = invoke( WMPlayer, {WindowsMediaPlayer_p_enabled}, {w32True}, {VT_BOOL}, DISPATCH_PROPERTYPUT ) 
 
end procedure 
setHandler( Main, w32HOpen, routine_id("Main_onOpen") ) 
 
procedure Main_onResize( integer pSelf, integer pEvent, sequence pParams ) 
 
    sequence rect 
     
    rect = getClientRect( pSelf ) 
    move_obj( WMPlayer, rect[1..4] ) 
     
end procedure 
setHandler( Main, w32HResize, routine_id("Main_onResize") ) 
 
procedure Main_onClose( integer pSelf, integer pEvent, sequence pParams ) 
 
    VOID = invoke( WMPlayer, {WindowsMediaPlayer_m_close}, {}, {}, DISPATCH_METHOD ) 
    release_com() 
 
end procedure 
setHandler( Main, w32HClose, routine_id("Main_onClose") ) 
 
procedure File_Open_onClick( integer pSelf, integer pEvent, sequence pParams ) 
 
    sequence filename, media 
    object pWMPCore, bstr 
    atom WMCore, WMMedia, WMError, WMErrorItem 
     
    filename = getOpenFileName( Main, "", {"All files (*.*)", "*.*"} ) 
    if length( filename ) = 0 then 
        return 
    end if 
     
    -- both methods result in #80020004 DISP_E_PARAMNOTFOUND: Parameter not found. 
     
    -- method #1 
    bstr = alloc_bstr( filename ) 
    WMMedia = ref_com_object( IWMPMedia_clsid_ix, invoke(WMPlayer, {WindowsMediaPlayer_m_newMedia}, {bstr}, {VT_BSTR}, DISPATCH_METHOD) ) 
    free_bstr( bstr ) 
     
    media = invoke( WMMedia, {IWMPMedia_p_name}, {}, {}, DISPATCH_PROPERTYGET ) 
    setText( Main, kAppName & " - " & media ) 
     
    VOID = invoke( WMPlayer, {WindowsMediaPlayer_p_currentMedia}, {WMMedia}, {VT_BYREF}, DISPATCH_PROPERTYPUT ) 
    if is_error( VOID ) then 
        VOID = message_box( sprintf("#%08x", VOID), "Error", MB_ICONERROR ) 
    end if 
     
    -- method #2 
    --bstr = alloc_bstr( filename ) 
    --VOID = invoke( WMPlayer, {WindowsMediaPlayer_p_URL}, {bstr}, {VT_BSTR}, DISPATCH_PROPERTYPUT ) 
    --free_bstr( bstr ) 
     
end procedure 
setHandler( File_Open, w32HClick, routine_id("File_Open_onClick") ) 
 
procedure Help_About_onClick( integer pSelf, integer pEvent, sequence pParams ) 
 
    sequence version 
     
    version = invoke( WMPlayer, {WindowsMediaPlayer_p_versionInfo}, {}, {}, DISPATCH_PROPERTYGET ) 
    VOID = message_box( "Version: " & version, "Windows Media Player Demo", MB_ICONINFORMATION ) 
 
end procedure 
setHandler( Help_About, w32HClick, routine_id("Help_About_onClick") ) 
 
WinMain( Main, Normal ) 

-Greg

17. Re: [Win32Lib] wrap Media control?

• Posted by ghaberek (admin) Feb 09, 2009
• 1079 views

Awesome, Matt! That works great! I wonder why my methods didn't work, though. All the examples I found used either the URL property or the newMedia/currentMedia method I was using.

On a side note, do I have to call release_com() after WinMain() or can I call it from the w32HClose event like I have been?

-Greg

19. Re: [Win32Lib] wrap Media control?

• Posted by DanM Feb 10, 2009
• 1123 views

Greg, Matt, thank you both for working to wrap this!
Rapid Euphoria, indeed! Outstanding!
Thank you, thank you, thank you!

And Greg, yes, my Path had a semi-colon at it's end, removing it as you suggested fixed my previous problem, thanks!

Of course, I have a few more questions.

Works fine, but in playing, dos display asserts this: IUnknown::QueryInterface(80004002) Could not find implemented interface: 6D5140C1-7436-11CE-8034-00AA006009FA

While it runs just fine under Administrator, it only momentarily flikers in and out of existance on non-Admin account; any ideas why?

How can I programmatically query/alter the point in time a file is playing at?

Where would I look to try to answer questions like the one above myself, or do I just not know enough to try?

Dan

21. Re: [Win32Lib] wrap Media control?

• Posted by DanM Feb 10, 2009
• 1018 views

I sprinkled:

puts(1, "press a key\n")
VOID = wait_key()

throughout, to try and see how far it might get before winking out,
and eventually put it right after include win32Lib, and it didn't get that far,
which is before the icon extract.

I also tried putting release_com() into an onClose window, like Greg has, and it still just flickers in and then out of existance.

Other .exw will run.

Puzzling, no?

Dan

23. Re: [Win32Lib] wrap Media control?

• Posted by mattlewis (admin) Feb 10, 2009
• 1206 views

Actually, that's a read/write property: Controls.currentPositionTimecode. So you should be able to set it as well.

Also, you might try putting a trace(3) in win32lib, to see where it gets (you'll probably also need to put with trace in there).

Matt

25. Re: [Win32Lib] wrap Media control?

• Posted by DanM Feb 10, 2009
• 1072 views

It was my path & include Enviromentals
I must have had them set differently on non-admin account.
Dumb.

Dan