Allgemeine Fragen zur PROFAN Programmierung

Views (Heute): 252035 (13471)

| Suchen
| Zurück zur Übersicht

Autor | Thema: mp3,*.wav abspielen
Mario Gärber
| Datum:13.10.02 17:41 (Gärber@gmx.de) |
mit diesen code kann man mp3's abspielen . aber wie mach ich das er einen ordner mit mp3's abspielt und nicht nur einen song ?? und wie binde ich in diesen code die möglichkeit ein auch *.wav dateinen zu spielen ?? Cls Declare A$,B$ WindowTitle "Testprogramm MP3-Audio" Let A$=@LOADFILE$("MP3-DATEI","*.MP3") While @NEQ$(A$,"") Let A$=@Chr$(34)+A$+@Chr$(34) Let A$=@ADD$(@ADD$("OPEN ",A$),\ " TYPE MPEGVIDEO ALIAS AUDIO") Let B$=@MCISend$(A$) Case %MCIError: Print "Fehler: ";B$ Let B$=@MCISend$("PLAY AUDIO") WaitMouse Let B$=@MCISend$("CLOSE AUDIO") Let A$=@LOADFILE$("MP3-DATEI","*.MP3") Wend End kann mir dabei mal einer helfen ?
Jörg Sellmeyer
| Datum:13.10.02 18:50 (joerse@gmx.de) |
Hallo Mario, Hier ist ein Code den Du an Deine Bedürfnisse anpassen kannst:
    Proc PlayMP3
     Parameters mp3file$
     Declare MCIcommand$,MCIError$
     Let mp3file$=@Chr$(34) + mp3file$ + @Chr$(34)
     Let MCIcommand$=@ADD$(@ADD$("OPEN ",mp3file$),\
     " TYPE MPEGVIDEO ALIAS AUDIO")
     Let MCIError$=@MCISend$(MCIcommand$)
     Case %MCIError: Return MCIError$
     Let MCIError$=@MCISend$("PLAY AUDIO WAIT")
     Case %MCIError: Return MCIError$
     Let MCIError$=@MCISend$("CLOSE AUDIO")
     Case %MCIError: Return MCIError$
    EndProc

    Proc PlayWave
     Parameters wavefile$
     Declare MCIcommand$,MCIError$
     Let wavefile$=@Chr$(34) + wavefile$ + @Chr$(34)
     Let MCIcommand$=@ADD$(@ADD$("OPEN ",wavefile$),\
     " TYPE WAVEAUDIO ALIAS AUDIO")
     Let MCIError$=@MCISend$(MCIcommand$)
     Case %MCIError: Return MCIError$
     Let MCIError$=@MCISend$("PLAY AUDIO WAIT")
     Case %MCIError: Return MCIError$
     Let MCIError$=@MCISend$("CLOSE AUDIO")
     Case %MCIError: Return MCIError$
    EndProc

    Cls
    Declare ende%,Datei$,n%,Verzeichnis$
    n%=0
    Verzeichnis$=readini$("Hkey_1","Software\Microsoft\Windows\CurrentVersion\
    \Explorer\Shell Folders","Personal")
    ChDir Input$("Verzeichnis auswählen","Auswahl",Verzeichnis$)
    ClearList
    AddFiles "*.mp3"
    AddFiles "*wav"
    Whilenot ende%
     If %getcount > -1
      Datei$=ListBoxItem$(n%)
    	Print Datei$
      If Right$(Upper$(Datei$),4)=".MP3"
       PlayMP3 Datei$
    	 Case Len(@$(0)) > 0:print @$(0)
      ElseIf Right$(Upper$(Datei$),4)=".WAV"
       PlayWave Datei$
    	 Case Len(@$(0)) > 0:print @$(0)
      EndIf
      Inc n%
     EndIf
     case n%=%getcount + 1:ende%=1
    Wend
Gruß Jörg
Florian May
| Datum:13.10.02 20:10 |
oder mach ne schleife wo du einfach alle in einen ordenr vorhandene mp3 ausliest und dann eine nach der andere spielst...... zum abspielen von waves müsste dir die profan hilfe wieter helfen
Mario Gärber
| Datum: 13.10.02 20:32 (Gärber@gmx.de) |
jau haut hin aber die lassen sich ja nicht mehr stoppen wenn sie ein mal am laufen sind beziehungsweise titel vor oder zurück wie geht sowas??

| Zurück zur Übersicht