mp3
Zaključano
Zakačeno
Dodaj referencu na Active Movie Control Type Library i poigraj se. Ima mozda i bolju funkcionalnost nego Media Player.
Pogledaj u MSDN-u i Controlling Filter Graphs using Visual Basic ili tako nesto. Tamo je objasnjeno ovo sto ti treba a i vise.
Pozdrav
Pogledaj u MSDN-u i Controlling Filter Graphs using Visual Basic ili tako nesto. Tamo je objasnjeno ovo sto ti treba a i vise.
Pozdrav
Potpis
fire, walk with me
Sve je to lepo ali ja ne mogu nikako da dobijem duzinu trajanja! Onaj ActiveMovie nece ni da ucita fajl, a MediaPlayer mi vraca vrednost (MediaPlayer1.Duration) tipa Double. Kad ga formatiram (Format$(MediaPlayer1.Duration,"mm:ss")) dobijem netacne podatke!
Potpis
Bolje zivjeti sto godina u bogatstvu, nego dvije u siromastvu!
ActiveMovie je jedno, a ono sto sam ti ja predlozio je drugo. Nemoj mnogo da nerviras, evo ti resenje ;)
Dim mediacontrol As IMediaControl
Dim pozicija As IMediaPosition
Dim audio As IBasicAudio
Set mediacontrol = New FilgraphManager
mediacontrol.RenderFile ("c:\pesma.mp3")
Set audio = mediacontrol
Set pozicija = mediacontrol
preko pozicija.duration dobices ono sto ti treba.
pozdrav
Dim mediacontrol As IMediaControl
Dim pozicija As IMediaPosition
Dim audio As IBasicAudio
Set mediacontrol = New FilgraphManager
mediacontrol.RenderFile ("c:\pesma.mp3")
Set audio = mediacontrol
Set pozicija = mediacontrol
preko pozicija.duration dobices ono sto ti treba.
pozdrav
Potpis
fire, walk with me
Izvini, molim te, ali ja opet imam problem! Opet ne mogu da prikazem pravilno pizicija.Duration, zato sto ga dobijem kao (ja mislim) Double tip. Ja pokusam da ga prevedem ali ne znam ni u koji tip ni kako!
Hvala!
Hvala!
Potpis
Bolje zivjeti sto godina u bogatstvu, nego dvije u siromastvu!
Izvini, ali ovo opet ne radi! Tj. radi ali se cudno ponasa. Kako da prkinem konekciju sa prethodno renderovanim fajlom? On ucitava vrednosti, ali treba svaki put da renderuje drugi fajl. On mi daje za prvih pet-sest fajlova podatke prvog, za drugih prvog iz te liste (npr. od 7-10 daje podatke sedmog), kao da ne uspe da Refreshuje render!
Hvala
Hvala
Potpis
Bolje zivjeti sto godina u bogatstvu, nego dvije u siromastvu!
Onako ne radi, ali si mi dao ideju i ja sam poubijao sve i ponovo im vratio vrednosti:
Set mediacontrol = Nothing
Set mediacontrol = New FilgraphManager
Set pozicija = Nothing
Set audio = Nothing
pa onda renderovao fajl:
mediacontrol.RenderFile (putanj)
i vratio vrednosti:
Set audio = mediacontrol
Set pozicija = mediacontrol
Hvala ti puno!
Set mediacontrol = Nothing
Set mediacontrol = New FilgraphManager
Set pozicija = Nothing
Set audio = Nothing
pa onda renderovao fajl:
mediacontrol.RenderFile (putanj)
i vratio vrednosti:
Set audio = mediacontrol
Set pozicija = mediacontrol
Hvala ti puno!
Potpis
Bolje zivjeti sto godina u bogatstvu, nego dvije u siromastvu!