Length Of Song

[Thatsgreat2345]

Yes I know their are other topics and i was looking at them but they didnt help me cuz lazy cats thingy was down and the whole mcisendstring larry made didnt work for mp3's so does anyone have any suggestions using DLL calls but which DLLs?

heres my code

expandcollapse popup

#NoTrayIcon
#include <GuiConstants.au3>
GuiCreate("Music Player", 309, 76,(@DesktopWidth-309)/2, (@DesktopHeight-76)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
GUISetBkColor (0x000000)
$Play = GuiCtrlCreateButton("Play", 10, 10, 50, 20)
$Song = GuiCtrlCreateButton("Search", 70, 10, 50, 20)
$Mute = GuiCtrlCreateButton("Mute", 130, 10, 50, 20)
$stop = GuiCtrlCreateButton("Stop", 190, 10, 50, 20)
$exit = GuiCtrlCreateButton("Exit", 250, 10, 50, 20)
$slider = GUICtrlCreateSlider (150,50,100,40)
GUICtrlSetData($Slider,100)
GUICtrlSetLimit ($Slider,100,0)
$Label_8 = GuiCtrlCreateLabel("Thatsgreat2345", 10, 50, 80, 20)
GUICtrlSetColor(-1,0xff0000)
GUICtrlSetResizing (-1,$GUI_DOCKLEFT)
GuiSetState()
func stop()
    while 1
    sleep(100)
wend
endfunc
Do
  $msg = GUIGetMsg ()
   Select
   Case   $msg = $stop
       soundplay("C:\exit.mp3")
Case $msg = $Song
    $playsong=FileOpenDialog ("Choose music", "", "Musicfiles(*.mp3;*.wma;*.wav;*.wave;*.mid;*)")
Case $msg = $play
    Soundplay ($playsong)
Case $msg = $Mute
    send("{VOLUME_MUTE}")
Case $msg = $slider
    SoundSetWaveVolume (GUICtrlRead($slider))
    
      Case $msg = $exit
         exit
   EndSelect
Until $msg = $GUI_EVENT_CLOSE

[Helge]

Haven't bothered to upload a newer version, but here's some UDFs I made some while ago..

They do work with SoundPlay so they shouldn't be all that difficult to use. Good luck.

Edit : files deleted... get them http://www.autoitscript.com/fileman/users/Helge/udfs.htm#sound instead.

Edited June 24, 2006 by Helge

[Simucal]

Haven't bothered to upload a newer version, but here's some UDFs I made some while ago..

They do work with SoundPlay so they shouldn't be all that difficult to use. Good luck.

Sound.au3

Sound_test.au3

Mwuahaha... nothing like bringing posts from 7 months ago back from the dead. In case anyone else needs this, try:

#include <extprop.au3>
$path = FileOpenDialog("Select a file to read attributes",@ScriptDir,"All (*.*)")
$prop = _GetExtProperty($path,21)
ConsoleWrite("Duration: "&$prop&@CRLF)

Get extprop.au3 from:

http://www.autoitscript.com/forum/index.php?showtopic=25859

[Xenobiologist]

Hi Simucal,

I like your func. Works great!

I use it to get a printable playlist of mp3 CDs with Nr., songname, length ...

So long,

Mega