XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Medienplayer
Declare Text$,Maske$,Ende%,Antwort%

Proc SpieleAVI

    Parameters Datei$
    Declare MCI$
    Print Datei$

    If @Neq$(Datei$,)

        @MCISend$(CLOSE FILM)
        Let MCI$=@Add$(@add$(OPEN ,Datei$), TYPE AVIVIDEO ALIAS FILM)
        Let MCI$=@MCISend$(MCI$)

        If %MCIError

            @MessageBox(MCI$,Fehler:,16)

        Else

            @MCISend$(PLAY FILM)

        EndIf

    EndIf

EndProc

Proc SpieleFilm

    Parameters Datei$
    Declare MCI$
    Print Datei$

    If @Neq$(Datei$,)

        @MCISend$(CLOSE FILM)
        Let MCI$=@Add$(@add$(OPEN ,Datei$), TYPE ANIMATION1 ALIAS FILM)
        Let MCI$=@MCISend$(MCI$)

        If %MCIError

            @MessageBox(MCI$,Fehler:,16)

        Else

            @MCISend$(PLAY FILM WAIT)

        EndIf

    EndIf

EndProc

Proc SpieleWave

    Parameters Datei$
    Declare MCI$
    Print Datei$

    If @Neq$(Datei$,)

        @MCISend$(CLOSE SOUND)
        Let MCI$=@Add$(@add$(OPEN ,Datei$), TYPE WAVEAUDIO ALIAS SOUND)
        Let MCI$=@MCISend$(MCI$)

        If %MCIError

            @MessageBox(MCI$,Fehler:,16)

        Else

            @MCISend$(PLAY SOUND)

        EndIf

    EndIf

EndProc

Proc SpieleMidi

    Parameters Datei$
    Declare MCI$
    Print Datei$

    If @Neq$(Datei$,)

        @MCISend$(CLOSE SOUND)
        Let MCI$=@Add$(@add$(OPEN ,Datei$), TYPE SEQUENCER ALIAS SOUND)
        Let MCI$=@MCISend$(MCI$)

        If %MCIError

            @MessageBox(MCI$,Fehler:,16)

        Else

            @MCISend$(PLAY SOUND)

        EndIf

    EndIf

EndProc

Proc SpieleCD

    Declare MCI$,TitelZahl%,I%
    @MCISend$(CLOSE CD)
    Let MCI$=@MCISend$(open cdaudio alias cd)

    If %MCIError

        @MessageBox(MCI$,Fehler:,16)

    Else

        Let MCI$=@MCISend$(status cd length)
        Print Länge der CD: ;MCI$;
        Let MCI$=@MCISend$(status cd number of tracks)
        Print  - Titelzahl: ;MCI$
        Let TitelZahl%=@Val(MCI$)
        Let I%=1
        CreateMenu

        WhileNot @GT(I%,TitelZahl%)

            AppendMenu I%,@Add$(Titel ,@Str$(I%))
            Inc I%

        Wend

        TrackMenu 30,30

        If %MenuItem

            Print Titel Nr: ;%MenuItem; - Länge: ;
            @MCISend$(SET CD TIME FORMAT TMSF)
            Print @MCISend$(@Add$(STATUS CD LENGTH TRACK ,@Str$(%MenuItem)))
            @MCISend$(@Add$(PLAY CD FROM ,@Str$(%MenuItem)))

        EndIf

    EndIf

EndProc

WindowStyle 8
Window 50,50-400,90
WindowTitle RGH-Medien-Player in PROFAN²
Cls
PopUp &Datei
AppendMenu 11,&Video für Windows
AppendMenu 12,&Animation (FLI)
AppendMenu 13,Animation (&FLC)
Separator
AppendMenu 14,&MIDI-Datei
AppendMenu 15,Sound-Datei (&WAV)
Separator
AppendMenu 16,&CD-Titel spielen
Separator
AppendMenu 17,&Ende
AppendMenuBar 20,&Info

WhileNot Ende%

    WaitInput
    Cls

    If @MenuItem(11)

        Print Video für Windows
        SpieleAVI @LoadFile$(Video-Datei:,*.AVI)

    ElseIf @MenuItem(12)

        Print FLI-Animation
        SpieleFilm @LoadFile$(FLI-Animation:,*.FLI)

    ElseIf @MenuItem(13)

        Print FLC-Animation
        SpieleFilm @LoadFile$(FLC-Animation:,*.FLC)

    ElseIf @MenuItem(14)

        Print Midi-Datei
        SpieleMidi @LoadFile$(Sound-Datei:,*.MID)

    ElseIf @MenuItem(15)

        Print Sound-Datei
        SpieleWave @LoadFile$(Sound-Datei:,*.WAV)

    ElseIf @MenuItem(16)

        Print Musik-CD
        SpieleCD

    ElseIf @MenuItem(17)

        Let Antwort%=@MessageBox(Wollen Sie den Medien-Spieler
        wirklich beenden?,
        Seien Sie ehrlich:,36)
        Case @Equ(Antwort%,6):Let Ende% = 1

    ElseIf @MenuItem(20)

        @MessageBox(Der Mulimedia-Player von RGH,Info,64)

    EndIf

Wend

@MCISend$(CLOSE FILM)
@MCISend$(CLOSE SOUND)
@MCISend$(CLOSE CD)
End