Keskustelu: Ohjelmointikysymykset: VB6: MP3-tiedoston päättyminen

tesmu [16.07.2005 20:44:32]

https://www.ohjelmointiputka.net/koodivinkit/23545-vb6-mp3-tiedoston-soittaminen

Miten saan tuon ilmoittamaan että millon mp3 on loppu
tälläinen viritelmä ei toiminut

SoitaMP3  List1.List(List1.ListIndex), "biisi"
MsgBox "Biisi soitettu"

Koska se jatkaa heti kun aloitetaan soittaa mp3 ni seuraavaan koodiriviin funkkarin jälkeen =/ apuja

Antti Laaksonen [16.07.2005 21:06:34]

Seuraavan funktion avulla voit tarkistaa, soiko MP3-tiedosto.

Function SoikoMP3(alias As String) As String
    Dim x As Long, tiedot As String * 255
    x = mciSendString("status " & alias & " mode", tiedot, 255, 0)
    SoikoMP3 = Left(tiedot, InStr(tiedot, Chr(0)) - 1)
End Function

Funktio palauttaa "playing" (musiikki soi) tai "stopped" (musiikki on päättynyt). Tämä toimii tietenkin myös muilla kuin MP3-tiedostoilla, kunhan niitä soitetaan mciSendString-funktion avulla. Lisätietoa MCI-komennoista.

tesmu [16.07.2005 21:24:58]

Entäpä miten saisin haettua kaikki roska inhvot mitä biisissä on nekin olisivat hyödylliset esim pituus jne

Antti Laaksonen [16.07.2005 23:37:17]

Antamassani linkissä on tietoa juuri noista asioista. Tarvittava komento kappaleen pituuden selvittämiseksi esimerkiksi on "status length".

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Kirjautuminen