XProfan

Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
Sound: Audio-CD abspielen
CD abspielen por MCI Dieter Zornow
declarar CDerror&

Proc CD_Open  Öffnet el CD Device y setzt Zeitformat

    Declarar open$
    parámetros laufw$
    let open$=@Translate$(OPEN LW type cdaudio alias CD  shareable,LW,laufw$)
    @MCISend$(open$)
    @MCISend$(SET CD TIME FORMAT tmsf) Zeitformat Track, Minuten, Sekunden, Frames
    @MCISend$(SET CD TIME FORMAT msf) Zeitformat Minuten, Sekunden, Frames
    @MCISend$(SET CD TIME FORMAT ms) Zeitformat Milisekunden
    @MCISend$(SET CD AUDIO ALL ON) Öffnet Audio Output en beiden Kanälen (OFF schließt, Left ON, Right On y off)

ENDPROC

Proc CD_Stop

    @MCISend$(STOP CD) Stoppt el Abspielen

ENDPROC

Proc CD_Close

    @MCISend$(CLOSE CD) Schließt el Device

ENDPROC

proc CD_Error

    if %mcierror

        declarar tz$,mess$
        let tz$=Device Error
        let mess$=Sorry, The Player can´t play the CD,
        please make sure your default drive is ready to play
        and try again.
        @messagebox(mess$,tz$,48)
        CD_Close
        let CDerror&=1
        volver CDerror&

    endif

    let CDerror&=0
    volver CDerror&

ENDPROC

Proc CD_present

    Declarar CD_Result$
    Let CD_Result$=@MCISend$(STATUS CD MEDIA PRESENT)  Ist una CD eingelegt?
    Volver CD_Result$ (True, falso)

ENDPROC

Proc CD_Ready

    Declarar CD_Result$
    Let CD_Result$=@MCISend$(STATUS CD READY)  Ist el Gerät bereit ?
    Volver CD_Result$ (True, falso)

ENDPROC

Proc CD_Opendoor

    @MCISend$(Conjunto CD door open) Öffnet el CD Schublade

ENDPROC

Proc CD_Closedoor

    @MCISend$(Conjunto CD door closed) Schließt el CD Schublade

ENDPROC

Proc CD_Play

    CD_ERROR
    caso equ(CDerror&,0):@MCISend$(PLAY CD)  Spielt el todo CD

ENDPROC

Proc CD_PlayFromTo

    parámetros from$,to$
    CD_Error
    caso equ(CDerror&,0):@MCISend$(PLAY CD FROM +from$+ TO +To$)  Spielt el CD de Track a Track con Parámetro from$ to$

ENDPROC

Proc CD_SeekToEnd

    CD_Error
    caso equ(CDerror&,0):@MCISend$(SEEK CD TO FIN) Sucht Vorwärts a para Ende

ENDPROC

Proc CD_SeekToStart

    CD_error
    caso equ(CDerror&,0):@MCISend$(SEEK CD TO START) Sucht Rückwärts a para Anfang

ENDPROC

Proc CD_SeekTO

    Parámetros pos$
    @MCISend$(SEEK CD TO +pos$) Sucht a a Position Track oder Frame(Parámetro Track oder Frame)

ENDPROC

Proc CD_PlayWait

    CD_Error
    caso equ(CDerror&,0):@MCISend$(PLAY CD WAIT) juega el cd y el Programa hält a

ENDPROC

Proc CD_Pause

    @MCISend$(PAUSE CD) Pausiert, manche Treiber spielen beim 2ten veces Pause más /RESUME/

ENDPROC

Proc CD_Resume

    @MCISend$(RESUME CD) Spielt después de Pause más a el gleichen Punto

ENDPROC

Proc CD_Status

    Declarar CD_Result$
    Let CD_Result$=@MCISend$(STATUS CD MODE)zeigt el Zustand
    Volver CD_Result$ (stopped, playing, paused, not ready open, seeking.)

ENDPROC

Proc CD_Break

    @MCISend$(Romper CD on 27)Waitplay abbrechen con ESC Taste

ENDPROC

Proc CD_T_number

    Declarar CD_Result$
    Let CD_Result$=@MCISend$(STATUS CD NUMBER OF TRACKS)  Anzahl el Musikstücke
    Volver CD_Result$

ENDPROC

Proc CD_length

    Declarar CD_Result$
    Let CD_Result$=@MCISend$(STATUS CD LENGTH)  Longitud el Musik CD
    Volver CD_Result$

ENDPROC

Proc CD_CurrentTr

    Declarar CD_Result$
    Let CD_Result$=@MCISend$(STATUS CD CURRENT TRACK )  Nr des aktuellen Tracks
    Volver CD_Result$

ENDPROC

Proc CD_Tracklength

    parámetros nr$
    Declarar CD_Result$
    Let CD_Result$=@MCISend$(STATUS CD LENGTH TRACK +nr$)  Longitud des aktuellen Titels (parameter nr$)
    Volver CD_Result$

ENDPROC

Proc CD_position

    Declarar CD_Result$
    Let CD_Result$=@MCISend$(STATUS CD POSITION) aktuelle Position en el CD
    Volver CD_Result$

ENDPROC

Proc CD_TSposition

    parámetros nr$
    Declarar CD_Result$
    Let CD_Result$=@MCISend$(STATUS CD POSITION TRACK +nr$) Startposition el Tracks parameter Nr%
    Volver CD_Result$

ENDPROC

Proc CD_Sposition

    Declarar CD_Result$
    Let CD_Result$=@MCISend$(STATUS CD START POSITION) Startposition en el CD
    Volver CD_Result$

ENDPROC

Proc CD_Info

    Declarar CD_Result$
    Let CD_Result$=@MCISend$(INFO CD PRODUKT) Gibt Name des CD_Laufwerkes
    Volver CD_Result$

ENDPROC

proc CD_muteON

    @MCISend$(SET CD AUDIO ALL OFF)

ENDPROC

proc CD_muteOFF

    @MCISend$(SET CD AUDIO ALL ON)

ENDPROC

Ejemplo
cls
Declarar status$
CD_Open I: Laufwerksbuchstabe adaptar
CD_Ready
Imprimir CD Device ready?:,@$(0)
CD_present
Imprimir CD disponible:,@$(0)
CD_Status
imprimir Status:,@$(0)
CD_length
Imprimir Longitud el CD:,@$(0)
CD_T_number
imprimir Anzahl Musikstücke:,@$(0)
CD_TSposition 1
Imprimir Trackpos 1:,@$(0)
CD_TSposition 2
Imprimir Trackpos 2:,@$(0)
CD_Tracklength 1
Imprimir Tracklänge 1:,@$(0)
CD_PlayFromTo 2,3 oder CD_Play para el todo CD en track Angabe Zeitformat tmsf
CD_Ready
Imprimir CD Device ready?:,@$(0)
CD_TSposition 2
Imprimir Trackpos 2:,@$(0)
CD_Status
imprimir Status:,@$(0)

whilenot equ$(status$,stopped)

    CD_Status
    let status$=@$(0)
    CD_position
    locate 12,0
    imprimir @$(0)

wend

waitinput
CD_Stop
CD_CLOSE