XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Media-Player
Lauffähig ab Profan-Version 5.0
Declare Text$,Maske$,Ende%,Antwort%

Proc SpieleAVI

    Parameters Datei$
    Declare MCI$

    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$

    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$

    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$

    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 ZeigeIcon

    Parameters Datei$

    If @neq$(Datei$,)

        drawlibicon datei$,0,50,40

    endif

endproc

Proc Zeigebild

    Parameters Datei$

    If @neq$(Datei$,)

        loadsizedbmp datei$,0,0 - 150,110;0

    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)
        Let MCI$=@MCISend$(status cd number of tracks)
        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

            @MCISend$(SET CD TIME FORMAT TMSF)
            @MCISend$(@Add$(STATUS CD LENGTH TRACK ,@Str$(%MenuItem)))
            @MCISend$(@Add$(PLAY CD FROM ,@Str$(%MenuItem)))

        EndIf

    EndIf

EndProc

WindowStyle 8
Window 300,300-150,150
WindowTitle Medien-Player
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 18,&BMP-Bilder
AppendMenu 19,Icon-Datei (IC&O)
Separator
AppendMenu 16,&CD-Titel spielen
Separator
AppendMenu 17,&Ende
AppendMenuBar 20,&Info

WhileNot Ende%

    WaitInput
    @MCISend$(CLOSE FILM)
    @MCISend$(CLOSE SOUND)
    @MCISend$(stop cd)
    @MCISend$(CLOSE CD)
    Cls

    If @MenuItem(11)

        SpieleAVI @LoadFile$(Video-Datei:,*.AVI)

    ElseIf @MenuItem(12)

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

    ElseIf @MenuItem(13)

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

    ElseIf @MenuItem(14)

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

    ElseIf @MenuItem(15)

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

    ElseIf @MenuItem(18)

        Zeigebild @LoadFile$(Bild-Datei:,*.BMP)

    ElseIf @MenuItem(19)

        ZeigeIcon @LoadFile$(Icon-Datei:,*.ICO)

    ElseIf @MenuItem(16)

        SpieleCD

    ElseIf @MenuItem(17)

        Let Antwort%=@MessageBox(Willst Du den Medien-Spieler wirklich beenden?,Sei ehrlich!,36)
        Case @Equ(Antwort%,6):Let Ende% = 1

    ElseIf @MenuItem(20)

        @MessageBox(Multimedia-Player,Info,64)

    elseIf MenuItem(254)

        @MessageBox(© Profan²,Copyright,64<