Узнаём время звучания трека
Code
Enumeration
#Window_0
#open
#tame
EndEnumeration
Procedure MP3_Load(Nb,file.s)
i=mciSendString_("OPEN "+Chr(34)+file+Chr(34)+" Type MPEGVIDEO ALIAS MP3_"+Str(Nb),0,0,0)
a$=Space(#MAX_PATH)
i=mciSendString_("status MP3_"+Str(Nb)+" length",@a$,#MAX_PATH,0)
Time = Val(a$)
Time/1000
sek=Time%60:Time/60
min=Time%60:Time/60
rez.s= RSet(Str(Time),2,"0")+":"+RSet(Str(min),2,"0")+":"+RSet(Str(sek),2,"0")
SetGadgetText(#tame,"Время звучания: "+rez.s)
EndProcedure
OpenWindow (#Window_0,0,0,380,200,"Окно",#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
ButtonGadget(#open,20,50,70,20,"открыть")
TextGadget (#tame,50,20,300,20,"Время звучания:")
Repeat
Event = WaitWindowEvent()
Window = EventWindow()
Gadget = EventGadget()
Select Event
Case #PB_Event_Gadget
Select EventGadget()
Case #open
File$=OpenFileRequester("","","Media (Wave,MP3,OGG)|*.wav;*.ogg;*.mp3|Wave|*.wav|mp3|*.mp3|OGG|*.OGG|ALL|*.*",0)
MP3_Load(1,File$)
EndSelect
EndSelect
If Event = #PB_Event_CloseWindow
Break
EndIf
ForEver
#Window_0
#open
#tame
EndEnumeration
Procedure MP3_Load(Nb,file.s)
i=mciSendString_("OPEN "+Chr(34)+file+Chr(34)+" Type MPEGVIDEO ALIAS MP3_"+Str(Nb),0,0,0)
a$=Space(#MAX_PATH)
i=mciSendString_("status MP3_"+Str(Nb)+" length",@a$,#MAX_PATH,0)
Time = Val(a$)
Time/1000
sek=Time%60:Time/60
min=Time%60:Time/60
rez.s= RSet(Str(Time),2,"0")+":"+RSet(Str(min),2,"0")+":"+RSet(Str(sek),2,"0")
SetGadgetText(#tame,"Время звучания: "+rez.s)
EndProcedure
OpenWindow (#Window_0,0,0,380,200,"Окно",#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
ButtonGadget(#open,20,50,70,20,"открыть")
TextGadget (#tame,50,20,300,20,"Время звучания:")
Repeat
Event = WaitWindowEvent()
Window = EventWindow()
Gadget = EventGadget()
Select Event
Case #PB_Event_Gadget
Select EventGadget()
Case #open
File$=OpenFileRequester("","","Media (Wave,MP3,OGG)|*.wav;*.ogg;*.mp3|Wave|*.wav|mp3|*.mp3|OGG|*.OGG|ALL|*.*",0)
MP3_Load(1,File$)
EndSelect
EndSelect
If Event = #PB_Event_CloseWindow
Break
EndIf
ForEver
www.purebasic.info/
www.purebasic.com
www.purebasic.mybb.ru
www.www.purebasic.fr/english
www.www.purebasic.fr/german
Сайт посвящён языку программирования PureBasic — коммерческий компилятор языка программирования, использующего синтаксис BASIC. Предназначен для создания кроссплатформенных приложений для AmigaOS, Linux, Microsoft Windows, Windows NT и Mac OS X. Разработан компанией Fantaisie Software.
