XProfan

English

Description:

The MCIClass.inc contains fundamental modes to that Play of div. Media-Formaten by MCI. which Formate, depends from the installierten Codecs ex. with installed Media-Player can z.B. *.wmv or *.mpg Play. Desweiteren naturally Sounddateien (WAVE, MP3 etc.)

Deklaration:

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

The most important modes:

MCI.Load(Nb&, FileName$)
MCI.Play(Nb&)
MCI.interval(Nb&)
MCI.Stop(Nb&)
MCI.Free(Nb&)
MCI.GetStatus(Nb&)
.GetStatus can following values suppose:
%MCI_UnKnown 0
%MCI_Stopped 1
%MCI_Playing 2
%MCI_Paused 3

further modes:

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

example:

Compile Mark Separation

 $I MCIClass.inc
Declare MCI#, way$
Dim MCI#, MCI
Window Title "Simple Mini-MP3-Player"
Window Style 31
Window 100, 100 - 370, 50
ClearList
Pfad$ = $ ChooseDir("Bitte MP3-Ordner dial:")

If way$ <> ""

    AddFiles "*.mp3"

Else

    Dispose MCI#
    End

EndIf

Print " to that terminate, simply Window schließen"

WhileLoop 0, %GetCount

    Window Title 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#