Work In Progress

[marfdaman]

ok i will try it right now

Edit: I am using windows media player 10 at the moment and it doesnt work

Note that (as jpam told me earlier) you have to have a visualization set inside WMP itself (View->Visualization->(don't select "No Visualization").

You already corrected before I finished my reply

Regards

Edited May 20, 2006 by marfdaman

[jpam]

try selecting a visualisation preset on windows medaplayer

then run the program

the wmplayer.ocx takes the last selected preset in windows mediaplayer

me by there is no visualisation selected on windows mediaplayer

hope that helps you

jpam

[jpam]

not sure

my program sets a default preset

its bars and waves /bars

don't no if it is possible to do this when the program is running

[marfdaman]

not sure

my program sets a default preset

its bars and waves /bars

don't no if it is possible to do this when the program is running

So you're saying it IS possible to store a user's choice for a visualization in let's say an ini file and retrieve it at the next start of the app?

[Lakes]

So you're saying it IS possible to store a user's choice for a visualization in let's say an ini file and retrieve it at the next start of the app?

I have mine set to random.

Why can`t I make the visual any bigger?

expandcollapse popup

#include <GUIConstants.au3>

Opt("GUIOnEventMode", 1)

$main = GUICreate("wmplayer.ocx Example",500,400,-1,-1)
$WMP = ObjCreate("wmplayer.ocx")
GUICtrlCreateObj($WMP,10,10,433,289);<----------------------------- ??
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSE")
$btn1 = GUICtrlCreateButton("Load mp3",32,320,60,30)
GUICtrlSetOnEvent($btn1,"open")
$btn_stop = GUICtrlCreateButton("Stop",400,320,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

Thanks to Jpam!

Edited May 20, 2006 by Lakes

[jpam]

sure !

butt you have to restart the program

it is not a nice solution when you have to restart the program for a simple visualisaion change

jpam

[Lakes]

Note that (as jpam told me earlier) you have to have a visualization set inside WMP itself (View->Visualization->(don't select "No Visualization").

You already corrected before I finished my reply

Regards

Would it be possible to have the visual react to any audio source instead of a file?

Someone else had a online radio script here, I was thinking this would be a nice addition.

[jpam]

just type the url for the radio station

$wmp.url = http:\\www.radiostation.com\radio1.html

or something

jpam

Edited May 20, 2006 by jpam

[Lakes]

Thanks for the quick reply!

Instead of playing a file, would it possible to use with a live audio source, ie mic or line in?

I`d like to use it with an online chat room that plays music as well, thats why I want to be able to use it with any

any audio source selected from the mixer, if its possible.

Thanks for your continued help!