XProfan

Español

Descripción:

El MCIClass.inc enthält grundlegende Métodos para Abspielen de div. Media-Formaten por MCI. Welche Formate, hängt de los installierten Codecs de. Mit installiertem Media-Player dejar se z.B. *.wmv oder *.mpg abspielen. Desweiteren natürlich Sounddateien (WAVE, MP3 usw.)

Deklaration:

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

El wichtigsten Métodos:

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

Weitere Métodos:

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

Ejemplo:

Kompilieren Marca Separación

 $I MCIClass.inc
Declarar MCI#, Pfad$
Dim MCI#, MCI
Título de la ventana "Simple Mini-MP3-Player"
Ventana de Estilo 31
Ventana 100, 100 - 370, 50
ClearList
Pfad$ = ChooseDir$("Bitte MP3-Ordner wählen:")

If Pfad$ <> ""

    AddFiles "*.mp3"

Más

    Disponer MCI#
    End

EndIf

Imprimir " Zum final, simplemente Ventana schließen"

WhileLoop 0, %GetCount

    Título de la ventana FindFirst$(ListBoxItem$(&Loop))

    With MCI#

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

        Mientras que .GetStatus(1) = %MCI_Playing

            Sleep 100

        EndWhile

        .Libre(1)

    EndWith

EndWhile

Disponer MCI#