XProfan

Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur XProfan.Com abgelegt:
Sound: MP3 abspielen
Mp3 per MCI Dieter Zornow
Déclarer MP3error&

Proc MP3_Open

    Paramètres MP3File$

    Si @NEq$(MP3File$,)

        @MCISend$(OPEN +@Chr$(34)+MP3File$+@Chr$(34)+ TYPE MPEGVIDEO ALIAS MP3_play)
        @MCISend$(set MP3_play time format ms)
        @MCISend$(set MP3_play video off)

    EndIf

ENDPROC

Proc MP3_Stop

    @MCISend$(STOP MP3_play)
    @MCISend$(CLOSE MP3_play)

ENDPROC

Proc MP3_Close

    @MCISend$(CLOSE MP3_play)

ENDPROC

proc MP3_Error

    si %mcierror

        declare tz$,mess$
        let tz$=Device Error
        let mess$=Sorry, The Player can´t play this File
        @messagebox(mess$,tz$,48)
        MP3_Stop
        MP3_Close
        let MP3error&=1
        return MP3error&

    endif

    let MP3error&=0
    return MP3error&

endproc

Proc MP3_bitspersample wirkt pas toujours

    Déclarer MP3_Result&
    Laisser MP3_Result&=@MCISend$(STATUS WAVE BITSPERSAMPLE)  samplerrate
    Retour MP3_Result&

ENDPROC

Proc MP3_Play

    @MCISend$(PLAY MP3_play)

ENDPROC

Proc MP3_PlayLoop  funktioniert pas überall

    @MCISend$(PLAY MP3_play LOOP)

ENDPROC

Proc MP3_PlayWait

    @MCISend$(PLAY MP3_play WAIT)

ENDPROC

Proc MP3_SeekToEnd

    @MCISend$(SEEK MP3_play TO FIN) cherchez Vorwärts jusqu'à zum Ende

ENDPROC

Proc MP3_SeekToStart

    @MCISend$(SEEK MP3_play TO START) cherchez Rückwärts jusqu'à zum Anfang

ENDPROC

Proc MP3_SeekTO

    Paramètres pos$ dans ms
    @MCISend$(SEEK MP3_play TO +pos$) cherchez jusqu'à zur Position

ENDPROC

Proc MP3_Pause

    @MCISend$(PAUSE MP3_play)

ENDPROC

Proc MP3_Resume

    @MCISend$(RESUME MP3_play) Spielt pour récréation plus à qui gleichen Stelle, play écoutes aussi plus, quelquefois aussi Doppel récréation

ENDPROC

Proc MP3_PlayMode

    Déclarer MP3_Result$
    Laisser MP3_Result$=@MCISend$(STATUS MP3_play MODE)zeigt den Zustand (stopped, playing, paused, not ready)
    Retour MP3_Result$

ENDPROC

Proc MP3_Break Waitplay démolir avec ESC bouton

    @MCISend$(Pause MP3_play on 27)

endproc

Proc MP3_length LengthMP3 plus unten benutzen pour change

    Déclarer MP3_Result$
    Laisser MP3_Result$=@MCISend$(STATUS MP3_play LENGTH) Longueur qui mp3
    Retour MP3_Result$

ENDPROC

Proc MP3_position posMp3 plus unten benutzen pour change

    Déclarer MP3_Result$
    Laisser MP3_Result$=@MCISend$(STATUS MP3_play POSITION) aktuelle Position
    Retour MP3_Result$

ENDPROC

Proc LengthMP3 rechnet dans Minuten Sekunden qui String 00:00

    declare lang&,sek%,wert$,long$,temp$
    MP3_length
    Laisser lang&=@Val(@&(0))
    let sek%=@div&(lang&,1000)
    let lang&=@div&(sek%,60)
    let temp$=add$(str$(lang&),:)

    Si @equ(@len(temp$),2)

        let wert$=@add$(0,temp$)

    d'autre

        let wert$=temp$

    endif

    let sek%=@sub(sek%,@mul(lang&,60))

    Si @lt(sek%,10)

        let wert$=@add$(wert$,0)
        let wert$=@add$(wert$,@str$(sek%))

    d'autre

        let wert$=@add$(wert$,@str$(sek%))

    endif

    Retour wert$

ENDPROC

Proc PosMP3 rechnet dans Minuten Sekunden qui String 00:00

    declare lang&,sek%,wert$,long$,temp$
    let wert$=00:00
    MP3_position
    let lang&=@Val(@&(0))
    let sek%=@div&(lang&,1000)
    let lang&=@div&(sek%,60)
    let temp$=add$(str$(lang&),:)

    Si @equ(@len(temp$),2)

        let wert$=@add$(0,temp$)

    d'autre

        let wert$=temp$

    endif

    let sek%=@sub(sek%,@mul(lang&,60))

    Si @lt(sek%,10)

        let wert$=@add$(wert$,0)
        let wert$=@add$(wert$,@str$(sek%))

    d'autre

        let wert$=@add$(wert$,@str$(sek%))

    endif

    Retour wert$

ENDPROC

beispiel
cls
MP3_open C:CDPlayTest_VBR.mp3
MP3_open MP3_02.MP3
MP3_bitspersample
imprimer @&(0)
LengthMP3
imprimer @$(0)
MP3_Play
Imprimer klick pour récréation
waitinput
MP3_Pause
Imprimer klick pour plus et Positon
waitinput
MP3_Resume allez aussi avec play
MP3_SeekToEnd
PosMP3  dans schleife abfragen
imprimer @$(0)
waitinput
MP3_Stop
MP3_Close