XProfan

Français

Beschreibung:

qui MCIClass.inc contient grundlegende Methoden zum Abspielen de div. Media-Formaten per MCI. quelle Formate, hängt de den installierten Codecs ab. avec installiertem Media-Player laisser sich z.B. *.wmv ou bien *.mpg abspielen. Desweiteren naturellement Sounddateien (WAVE, MP3 usw.)

Deklaration:

$I MCIClass.inc
Déclarer MCI#
Faible MCI#, MCI

qui wichtigsten Methoden:

MCI.Load(Nb&, FileName$)
MCI.Play(Nb&)
MCI.récréation(Nb&)
MCI.Stop(Nb&)
MCI.Free(Nb&)
MCI.GetStatus(Nb&)
.GetStatus peux 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 Marque Séparation

 $I MCIClass.inc
Déclarer MCI#, Pfad$
Faible MCI#, MCI
Titre de la fenêtre "Simple Mini-MP3-Player"
Fenêtre Style 31
Fenêtre 100, 100 - 370, 50
ClearList
Pfad$ = ChooseDir$("Bitte MP3-Dossier choisir:")

Si Pfad$ <> »

    AddFiles "*.mp3"

D'autre

    Dispose MCI#
    Fin

EndIf

Imprimer " Zum finissons, simple la fenêtre schließen"

WhileLoop 0, %GetCount

    Titre de la fenêtre $ FindFirst(ListBoxItem$(&Boucle))

    With MCI#

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

        Tandis que .GetStatus(1) = %MCI_Playing

            Sleep 100

        Endwhile

        .Free(1)

    EndWith

Endwhile

Dispose MCI#