Allgemeine Fragen zur PROFAN Programmierung
Views (Heute): 252035 (13471)
  Suchen
 Zurück zur Übersicht
 AutorThema: mp3,*.wav abspielen
Mario Gärber
Datum:13.10.02 17:41 Antwortenals Email verschicken (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 Antwortenals Email verschicken (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 Antwortenals Email verschicken  


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 Antwortenals Email verschicken (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