_guictrlcreatemediaembed (embed WMP with visulizations + controls )

[emoyasha]

i dont know i f this has already been done but here is a way to embed a full windows media player into your gui

[or a cool way to add streaming music to your application]

Basically this function allows you to fully utalize windows media player in your autoit applications (to make invisible set with and height to 1 not 0, 0 will make it appear at 100x100 pixels)

Screen shot:

usage:

_guictrlcreatemediaembed("media here",x location,y location, width , height, background color)

_guictrlcreatemediaembed("http://98.28.10.188:8000",0,0,320,215,999999)

function:(set to my live streaming radio)

expandcollapse popup

Func _guictrlcreatemediaembed($_song,$_sX,$_sY,$_sWidth,$_sHeight,$_sBGColor=-1)
    Local $_sString='<object id="player" height="100%" width="100%" align="middle" classid="CLSID:6BF52A52-394A-11d3-B153-00C04F79FAA6"> '
    $_sString&=' <param name="URL" value="'&$_song&'">'
    $_sString&=' <param name="uiMode" value="full"> '
    $_sString&=' <param name="ShowControls" value="true"> '
    $_sString&=' <param name="ShowStatusBar" value="true"> '
    $_sString&=' <param name="ShowDisplay" value="true"> '
    $_sString&=' <embed type="application/x-mplayer2" '
    $_sString&=' pluginspage = "http://www.microsoft.com/Windows/MediaPlayer/" '
    $_sString&=' SRC="'&$_song&'"'
    $_sString&=' name="player" '
    $_sString&=' width="100%" '
    $_sString&=' height="100%" '
    $_sString&=' showcontrols="1" '
    $_sString&=' showstatusbar="1" '
    $_sString&=' showdisplay="1" '
    $_sString&=' uiMode="full" '
    $_sString&=' visual="1"> '
    $_sString &= '</embed></object>'
    Local $_sIE = ObjCreate("Shell.Explorer")
    Local $_sReturn = GUICtrlCreateObj($_sIE,$_sX,$_sY,$_swidth,$_sHeight)
    $_sIE.navigate("about:blank")
    $_sIE.document.body.topmargin=0
    $_sIE.document.body.leftmargin=0
    $_sIE.document.body.scroll="no"
    $_sIE.document.body.bgcolor=$_sBGColor
    $_sIE.document.body.innerHTML = $_sString
    
    $_sIE=0
    Return $_sReturn
EndFuncoÝ÷ ÙìZ^
^±ëm¢l¥÷¬¶·)à­§b¡«­¢+ÙU%
ÉÑ ÅÕ½ÐíÕ¥ÑɱÉѵ¥µÅÕ½Ðì°ÌÈÀ°ÈÐÀ°´Ä°´Ä°ÁàÐÀÀÀÀ¤(ÀÌØìÄô}Õ¥ÑɱÉѵ¥µ ÅÕ½Ðí¡ÑÑÀè¼¼äà¸Èà¸ÄÀ¸ÄààèàÀÀÀÅÕ½Ðì°À°À°ÌÈÀ°ÈÄÔ°ääääää¤)U%
ÑɱMÑIͥ饹 ´Ä°ÄÀȤ)U%MÑMÑÑ ¤()]¡¥±U%Ñ5Í ¤±ÐìÐì´Ì)]¹()Õ¹}Õ¥ÑɱÉѵ¥µ ÀÌØí}ͽ¹°ÀÌØí}Í`°ÀÌØí}Íd°ÀÌØí}Í]¥Ñ °ÀÌØí}Í!¥¡Ð°ÀÌØí}Í   
½±½Èô´Ä¤(1½°ÀÌØí}ÍMÑÉ¥¹ôÌäì±Ðí½©Ð¥ôÅÕ½ÐíÁ±åÈÅÕ½Ðì¡¥¡ÐôÅÕ½ÐìÄÀÀÅÕ½ÐìÝ¥Ñ ôÅÕ½ÐìÄÀÀÅÕ½Ðì±¥¸ôÅÕ½Ðíµ¥±ÅÕ½Ðì±ÍÍ¥ôÅÕ½Ðí
1M%èÙ ÔÉÔÈ´ÌäÑ´ÄÅ̵ÄÔÌ´ÀÁÀÑÜåØÅÕ½ÐìÐìÌäì($ÀÌØí}ÍMÑÉ¥¹µÀìôÌäì±ÐíÁÉ´¹µôÅÕ½ÐíUI0ÅÕ½ÐìÙ±ÕôÅÕ½ÐìÌäìµÀìÀÌØí}ͽ¹µÀìÌäìÅÕ½ÐìÐìÌäì($ÀÌØí}ÍMÑÉ¥¹µÀìôÌäì±ÐíÁÉ´¹µôÅÕ½ÐíÕ¥5½ÅÕ½ÐìÙ±ÕôÅÕ½ÐíÕ±°ÅÕ½ÐìÐìÌäì($ÀÌØí}ÍMÑÉ¥¹µÀìôÌäì±ÐíÁÉ´¹µôÅÕ½ÐíM¡½Ý
½¹Ñɽ±ÌÅÕ½ÐìÙ±ÕôÅÕ½ÐíÑÉÕÅÕ½ÐìÐìÌäì($ÀÌØí}ÍMÑÉ¥¹µÀìôÌäì±ÐíÁÉ´¹µôÅÕ½ÐíM¡½ÝMÑÑÕÍ    ÈÅÕ½ÐìÙ±ÕôÅÕ½ÐíÑÉÕÅÕ½ÐìÐìÌäì($ÀÌØí}ÍMÑÉ¥¹µÀìôÌäì±ÐíÁÉ´¹µôÅÕ½ÐíM¡½Ý¥ÍÁ±äÅÕ½ÐìÙ±ÕôÅÕ½ÐíÑÉÕÅÕ½ÐìÐìÌäì($ÀÌØí}ÍMÑÉ¥¹µÀìôÌäì±ÐíµÑåÁôÅÕ½ÐíÁÁ±¥Ñ¥½¸½àµµÁ±åÈÈÅÕ½ÐìÌäì($ÀÌØí}ÍMÑÉ¥¹µÀìôÌäìÁ±Õ¥¹ÍÁôÅÕ½Ðí¡ÑÑÀè¼½ÝÝܹµ¥É½Í½Ð¹½´½]¥¹½Ý̽5¥A±åȼÅÕ½ÐìÌäì($ÀÌØí}ÍMÑÉ¥¹µÀìôÌäìMIôÅÕ½ÐìÌäìµÀìÀÌØí}ͽ¹µÀìÌäìÅÕ½ÐìÌäì($ÀÌØí}ÍMÑÉ¥¹µÀìôÌäì¹µôÅÕ½ÐíÁ±åÈÅÕ½ÐìÌäì($ÀÌØí}ÍMÑÉ¥¹µÀìôÌäìÝ¥Ñ ôÅÕ½ÐìÄÀÀÅÕ½ÐìÌäì($ÀÌØí}ÍMÑÉ¥¹µÀìôÌäì¡¥¡ÐôÅÕ½ÐìÄÀÀÅÕ½ÐìÌäì($ÀÌØí}ÍMÑÉ¥¹µÀìôÌäìÍ¡½Ý½¹Ñɽ±ÌôÅÕ½ÐìÄÅÕ½ÐìÌäì($ÀÌØí}ÍMÑÉ¥¹µÀìôÌäìÍ¡½ÝÍÑÑÕÍÈôÅÕ½ÐìÄÅÕ½ÐìÌäì($ÀÌØí}ÍMÑÉ¥¹µÀìôÌäìÍ¡½Ý¥ÍÁ±äôÅÕ½ÐìÄÅÕ½ÐìÌäì($ÀÌØí}ÍMÑÉ¥¹µÀìôÌäìÕ¥5½ôÅÕ½ÐíÕ±°ÅÕ½ÐìÌäì($ÀÌØí}ÍMÑÉ¥¹µÀìôÌäìÙ¥ÍÕ°ôÅÕ½ÐìÄÅÕ½ÐìÐìÌäì(ÀÌØí}ÍMÑÉ¥¹µÀìôÌäì±Ðì½µÐì±Ðì½½©ÐÐìÌäì(1½°ÀÌØí}Í%ô=©
ÉÑ ÅÕ½ÐíM¡±°¹áÁ±½ÉÈÅÕ½Ðì¤(1½°ÀÌØí}ÍIÑÕɸôU%
Ñɱ
ÉÑ=¨ ÀÌØí}Í%°ÀÌØí}Í`°ÀÌØí}Íd°ÀÌØí}ÍÝ¥Ñ °ÀÌØí}Í!¥¡Ð¤(ÀÌØí}Í%¹¹Ù¥Ñ ÅÕ½Ðí½ÕÐé±¹¬ÅÕ½Ðì¤(ÀÌØí}Í%¹½Õµ¹Ð¹½ä¹Ñ½ÁµÉ¥¸ôÀ(ÀÌØí}Í%¹½Õµ¹Ð¹½ä¹±ÑµÉ¥¸ôÀ(ÀÌØí}Í%¹½Õµ¹Ð¹½ä¹Íɽ±°ôÅÕ½Ðí¹¼ÅÕ½Ðì(ÀÌØí}Í%¹½Õµ¹Ð¹½ä¹½±½ÈôÀÌØí}Í   
½±½È(ÀÌØí}Í%¹½Õµ¹Ð¹½ä¹¥¹¹É!Q50ôÀÌØí}ÍMÑÉ¥¹($(ÀÌØí}Í%ôÀ(IÑÕɸÀÌØí}ÍIÑÕɸ)¹Õ¹

[emoyasha]

[sorry to double post, last post messed up autoit code when attempted to edit it]

but any comments, ideas, or suggestions would be appreciated.

[AdmiralAlkex]

Hello!

I have a small question, lets say I play a video from my local hardrive and want my script to automatically exit when the video has finished playing, how could I do that?

Edited August 25, 2008 by AdmiralAlkex

[emoyasha]

here ya go, small example, commented

expandcollapse popup

GUICreate("guictrlcreatemediaembed",320,240,-1,-1,0x40000)
$1 = _guictrlcreatemediaembed("http://98.28.10.188:8000",-2,-2,322,217,999999)
MsgBox(0, $1, $1)
GUICtrlSetResizing(-1,102)
GUISetState()

;get the length of the media file(any format)
$ms = _gettime("C:\Documents and Settings\you\My Documents\My Videos\your video.wmv")
;start a timer
$timer = TimerInit()    
While GUIGetMsg() <> -3
Do
    ;get how logn the script has ran
    $end = TimerDiff($timer)
    ;run until script has ran same nubmer of millaseconds a media file
until $ms < $end

Func _guictrlcreatemediaembed($_song,$_sX,$_sY,$_sWidth,$_sHeight,$_sBGColor=-1)
    Local $_sString='<object id="player" height="100%" width="100%" align="middle" classid="CLSID:6BF52A52-394A-11d3-B153-00C04F79FAA6"> '
    $_sString&=' <param name="URL" value="'&$_song&'">'
    $_sString&=' <param name="uiMode" value="full"> '
    $_sString&=' <param name="ShowControls" value="true"> '
    $_sString&=' <param name="ShowStatusBar" value="true"> '
    $_sString&=' <param name="ShowDisplay" value="true"> '
    $_sString&=' <embed type="application/x-mplayer2" '
    $_sString&=' pluginspage = "http://www.microsoft.com/Windows/MediaPlayer/" '
    $_sString&=' SRC="'&$_song&'"'
    $_sString&=' name="player" '
    $_sString&=' width="100%" '
    $_sString&=' height="100%" '
    $_sString&=' showcontrols="1" '
    $_sString&=' showstatusbar="1" '
    $_sString&=' showdisplay="1" '
    $_sString&=' uiMode="full" '
    $_sString&=' visual="1"> '
    $_sString &= '</embed></object>'
    Local $_sIE = ObjCreate("Shell.Explorer")
    Local $_sReturn = GUICtrlCreateObj($_sIE,$_sX,$_sY,$_swidth,$_sHeight)
    $_sIE.navigate("about:blank")
    $_sIE.document.body.topmargin=0
    $_sIE.document.body.leftmargin=0
    $_sIE.document.body.scroll="no"
    $_sIE.document.body.bgcolor=$_sBGColor
    $_sIE.document.body.innerHTML = $_sString
    
    $_sIE=0
    Return $_sReturn
EndFunc

func _gettime($file)
mciSendString("open " & FileGetShortName($file) & " alias " & FileGetShortName("go"))
mciSendString("set " & FileGetShortName("go") & " time format miliseconds")
$time = mciSendString("status " & FileGetShortName("go") & " length", 255)
return $time
EndFunc
    
func mciSendString($string, $iLen = 0)
    Local $y
    $y = DllCall("winmm.dll", "int", "mciSendStringA", "str", $string, "str", "", "long", $iLen, "long", 0)
    If Not @error Then Return $y[2]
EndFunc

enjoy

[AdmiralAlkex]

looks cumbersome but thx anyway

[emoyasha]

cumbersome....how?

[AdmiralAlkex]

cumbersome....how?

compared to working directly with wmp's com object it looks cumbersome (atleast for videos, don't care about the rest), see here Edited August 25, 2008 by AdmiralAlkex

[dbzfanatic]

Hey, I just shortened it a bit so if you want to look at it (did this for my own purposes) here it is.

Func _GUICtrlCreateMediaEmbed($_sSong,$_iX,$_iY,$_iWidth,$_iHeight,$_hBGColor=-1)
    Global $_oIE
    $_sString= '<object id="player" height="100%" width="100%" align="middle" classid="CLSID:6BF52A52-394A-11d3-B153-00C04F79FAA6"> <param name="URL" value="'&$_sSong&'"> <param name="uiMode" value="full"> <param name="ShowControls" value="true"> <param name="ShowStatusBar" value="true"> <param name="ShowDisplay" value="true"> <embed type="application/x-mplayer2" pluginspage = "http://www.microsoft.com/Windows/MediaPlayer/" SRC="'&$_sSong&'" name="player" width="100%" height="100%" showcontrols="1" showstatusbar="1" showdisplay="1" uiMode="full" visual="1"></embed></object>'
    If $_oIE = 0 Then
        $_oIE = _IECreateEmbedded()
        $_sReturn = GUICtrlCreateObj($_oIE,$_iX,$_iY,$_iWidth,$_iHeight)
    EndIf
    _IENavigate($_oIE,"about:blank")
    _IEBodyWriteHTML($_oIE,$_sString)
EndFunc

Edit: Fixed redundant Global

Edited August 26, 2008 by dbzfanatic

[JRSmile]

assigning two times to a global variable is not a good way, instead i would recommend changing Global $_oIE = _IECreateEmbedded() to $_oIE = _IECreateEmbedded() cause Global $_oIE is already defined.

[dbzfanatic]

assigning two times to a global variable is not a good way, instead i would recommend changing Global $_oIE = _IECreateEmbedded() to $_oIE = _IECreateEmbedded() cause Global $_oIE is already defined.

It was just a mistype, I was messing with it in more than one way and I guess I forgot to take out the redundant Global declaration. Thanks for pointing that out.

[emoyasha]

ahhh but have you compared your code's output to mine?

you will notice your code leaves about 10-20 pixels of whitespace on either size of the player,

mine allows the player to fill the while space.

[z0mgItsJohn]

You Might Not Need This But Here

Func _MediaGet_Length ($Media_Path)
Local $Dll_Open, $Return
$Dll_Open = DllOpen ('WinMM.dll')
$Return = DllCall ($Dll_Open, 'Int','mciSendStringA','Str','Status ' & FileGetShortName ($Media_Path) & ' Length','Str','','Long','255','Long','0')
If Not @Error Then Return $Return['2']
EndFunc

- John ()

Edited August 27, 2008 by John2006