XProfan

Italia

Beschreibung:

Die MCIClass.inc enthält grundlegende Methoden zum Abspielen von div. Media-Formaten per MCI. Welche Formate, hängt von den installierten Codecs ab. Mit installiertem Media-Player lassen sich z.B. *.wmv oder *.mpg abspielen. Desweiteren naturalmente Sounddateien (WAVE, MP3 usw.)

Deklaration:

$I MCIClass.inc
Declare MCI#
Dim MCI#, MCI

Die wichtigsten Methoden:

MCI.Load(Nb&, FileName$)
MCI.Play(Nb&)
MCI.Pause(Nb&)
MCI.Stop(Nb&)
MCI.Free(Nb&)
MCI.GetStatus(Nb&)
.GetStatus kann folgende Werte annehmen:
%MCI_UnKnown 0
%MCI_Stopped 1
%MCI_Playing 2
%MCI_Paused 3

Weitere Methoden:

MCI.PlayStart, MCI.PlayPart, MCI.Resume, MCI.SetVolume, MCI.GetVolume, MCI.Seek, MCI.GetLength, MCI.GetPosition

Beispiel:

Kompilieren Markieren Separieren

 $I MCIClass.inc
Declare MCI#, Pfad$
Dim MCI#, MCI
WindowTitle "Simple Mini-MP3-Player"
WindowStyle 31
Window 100, 100 - 370, 50
ClearList
Pfad$ = ChooseDir$("Bitte MP3-Ordner wählen:")

If Pfad$ <> ""

    AddFiles "*.mp3"

Else

    Dispose MCI#
    End

EndIf

Print " Zum beenden, einfach Fenster schließen"

WhileLoop 0, %GetCount

    WindowTitle FindFirst$(ListBoxItem$(&Loop))

    With MCI#

        .Load(1, ListBoxItem$(&Loop))
        .Play(1)

        While .GetStatus(1) = %MCI_Playing

            Sleep 100

        EndWhile

        .Free(1)

    EndWith

EndWhile

Dispose MCI#