Sign in to follow this  
Followers 0
jpam

Work In Progress

29 posts in this topic

Work in progress

Its a 2 player mediaplayer

with double playlist

album art display (throw a *.jpg cover in the album dir and proplayer picks it up)

visualisatie on players

sort on artist album genre song or playlist

simple add your mp3's via folders

manual crossfade between players (auto crossfade i am working on)

adjustible timefade

what do ya think?

many don

many todo

jpam

Share this post


Link to post
Share on other sites



Work in progress

Its a 2 player mediaplayer

with double playlist

album art display (throw a *.jpg cover in the album dir and proplayer picks it up)

visualisatie on players

sort on artist album genre song or playlist

simple add your mp3's via folders

manual crossfade between players (auto crossfade i am working on)

adjustible timefade

what do ya think?

many don

many todo

jpam

:) CAN'T BELIEVE WHAT I SEE...

Here I was, thinking my mediaplayer was a huge improvement....wait a minute, let me get my jaw from the ground...VERY NICE...if you're willing, please give me some info about the visualization, man, that rocks!

Regards


Don't take my pic to serious...~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~You Looked, but you did not see!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Share this post


Link to post
Share on other sites

I am speechless about this

Thats just amazing ....

If it dies everything as good as it looks then WTF!!!!!


--------------------------------------------------------------------------------------------------------------------------------Scripts : _Encrypt UDF_UniquePCCode UDF MS like calculatorInstall programm *UPDATED* --------------------------------------------------------------------------------------------------------------------------------[quote name='Helge' post='213117' date='Jul 26 2006, 10:22 AM']Have you ever tried surfing the internet with a milk-carton ?This is similar to what you're trying to do.[/quote]

Share this post


Link to post
Share on other sites

I am speechless about this

Thats just amazing ....

If it dies everything as good as it looks then WTF!!!!!

Very, very impressive from the screen shot!

And I`d like to how to do the visualisation thingy too... :)


2015 - Still no flying cars, instead blankets with sleeves.

Share this post


Link to post
Share on other sites

$WMP=ObjCreate("WMPlayer.OCX")

GUICtrlCreateObj($WMP,20,40,300,80)

for visualisation you have to add "Guictrlcreateobj($WMP,20,40,300,80)"

jpam

Share this post


Link to post
Share on other sites

$WMP=ObjCreate("WMPlayer.OCX")

GUICtrlCreateObj($WMP,20,40,300,80)

for visualisation you have to add "Guictrlcreateobj($WMP,20,40,300,80)"

jpam

Thanks for the info, but I still can't get it implemented. All I get when copy-pasting your code is a black rectangle :) Pleas give me some info about this!

Regards


Don't take my pic to serious...~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~You Looked, but you did not see!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Share this post


Link to post
Share on other sites

The black window you see is the player

play a mp3 musicfile and you see the visualisation in the black window

if you see nothing ,then you must first select a preset in windows media player

the wmplayer.ocx gets the last choosen preset from windows mediaplayer

jpam

Share this post


Link to post
Share on other sites

Well I still can't get it to work, perhaps because I use winmm.dll to play music? The visualization I'm using is Bars And Waves-> Bars, but when I play a song all stays black (but when I right click the area I DO get a context menu with things like "Play", "Stop" etc).

Regards


Don't take my pic to serious...~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~You Looked, but you did not see!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Share this post


Link to post
Share on other sites

its not working with winmm.dll

wmplayer.ocx has different parameters

like this

with $wmp

.controls.stop

.controls.pause

.controls.play

endwith

you can find all the controls and settings commands at msdn

i spent days at looking and trying all these commands :(

hopes this helps you :)

Share this post


Link to post
Share on other sites

Aha, ok I'm going to try that! Tnx again for your help!

Regards


Don't take my pic to serious...~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~You Looked, but you did not see!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Share this post


Link to post
Share on other sites

I have antoher question: from microsoft's site I'm learning a great deal about WMP's com features, but I can't get a song to play without opening WMP itself. Can you tell me how to do that?

Regards


Don't take my pic to serious...~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~You Looked, but you did not see!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Share this post


Link to post
Share on other sites

Are you going to release it anytime soon.. maybe with source code?

Share this post


Link to post
Share on other sites

Are you going to release it anytime soon.. maybe with source code?

Yes it would be nice to see how something like this works, even if it's not finished yet.


Don't take my pic to serious...~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~You Looked, but you did not see!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Share this post


Link to post
Share on other sites

I agree, some example code would be nice to look at.


2015 - Still no flying cars, instead blankets with sleeves.

Share this post


Link to post
Share on other sites

soon :(

the program has some issues with doubleclick

its a bug in GUIRegisterMsg :)

i have to wait for holger cleans the bug

its working now but not good ,sometimes you must click 3 times

I have to make a installer because its not just one .Exe file

it has a lot of images and a font who dont want to install itself with the func 'fileinstall'

just some bugs that i have to cleanup

jpam

Share this post


Link to post
Share on other sites

to marfdaman

i'll make a example gui for you with a working player

then you can see how it works

butt it will be tomorrow (sunday)

wife is waiting ,want to see a movie :)

jpam

Share this post


Link to post
Share on other sites

to marfdaman

i'll make a example gui for you with a working player

then you can see how it works

butt it will be tomorrow (sunday)

wife is waiting ,want to see a movie :)

jpam

Tnx een hele boel man! I can really use that to see just how you do the visualization (still no succes).


Don't take my pic to serious...~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~You Looked, but you did not see!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Share this post


Link to post
Share on other sites

i was lying marfdaman !

about tomorro :)

here you are;

#include <GUIConstants.au3>

Opt("GUIOnEventMode", 1)

$main = GUICreate("wmplayer.ocx Example",340,300,-1,-1)

$WMP = ObjCreate("wmplayer.ocx")

GUICtrlCreateObj($WMP,20,40,300,100)

GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSE")

$btn1 = GUICtrlCreateButton("Load mp3",40,200,60,30)

GUICtrlSetOnEvent($btn1,"open")

$btn_stop = GUICtrlCreateButton("Stop",110,200,60,30)

GUICtrlSetOnEvent($btn_stop,"stop")

With $WMP

.windowlessVideo = True

.fullscreen = False

.stretchToFit = False

.uiMode = 'None'; None, mini, full

.enableContextMenu = False

EndWith

GUISetState(@SW_show)

while 1

sleep(1000)

WEnd

Func open()

$get_mp3 = FileOpenDialog("open .mp3 file","c:\","(*.mp3)",1)

$WMP.url = $get_mp3

EndFunc

Func stop()

$WMP.controls.stop

EndFunc

Func CLOSE()

Exit

EndFunc

Share this post


Link to post
Share on other sites

i was lying marfdaman !

about tomorro :(

here you are;

#include <GUIConstants.au3>

Opt("GUIOnEventMode", 1)

$main = GUICreate("wmplayer.ocx Example",340,300,-1,-1)

$WMP = ObjCreate("wmplayer.ocx")

GUICtrlCreateObj($WMP,20,40,300,100)

GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSE")

$btn1 = GUICtrlCreateButton("Load mp3",40,200,60,30)

GUICtrlSetOnEvent($btn1,"open")

$btn_stop = GUICtrlCreateButton("Stop",110,200,60,30)

GUICtrlSetOnEvent($btn_stop,"stop")

With $WMP

.windowlessVideo = True

.fullscreen = False

.stretchToFit = False

.uiMode = 'None'; None, mini, full

.enableContextMenu = False

EndWith

GUISetState(@SW_show)

while 1

sleep(1000)

WEnd

Func open()

$get_mp3 = FileOpenDialog("open .mp3 file","c:\","(*.mp3)",1)

$WMP.url = $get_mp3

EndFunc

Func stop()

$WMP.controls.stop

EndFunc

Func CLOSE()

Exit

EndFunc

TNX it's working just great for me :) ! This will really look nice! Thumbs up!


Don't take my pic to serious...~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~You Looked, but you did not see!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Share this post


Link to post
Share on other sites

PezoFaSho

you must have windows mediaplayer 9 installed on your system

better install version 10

then its working

jpam

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0