Thema: Delphi mediaplayer

Einzelnen Beitrag anzeigen

Benutzerbild von peschai
peschai

Registriert seit: 15. Feb 2004
Ort: Göppingen
270 Beiträge
 
Delphi XE5 Professional
 
#3

Re: mediaplayer

  Alt 28. Jan 2008, 08:10
Hallo

1.) Ziehe "TMediaPlayer" und "TTimer" auf dein Formular
2.) Stelle in Eigenschaften die TimerZeit auf 2000 msec
3.) Neue Form variable "ToggleFilename" vom Typ String
4.) Im OnTimerEreignis
Delphi-Quellcode:
if ToggleFilename='something1.wav
  then ToggleFilename='something2.wav'
  else ToggleFilename='something1.wav'
MediaPlayer1.close;
MediaPlayer1.filename:=ToggleFileName;
MediaPlayer1.open;
MediaPlayer1.play;
5.) Sicherheitshalber im FormDestroy noch "MediaPlayer1.close;"
Peter Schaible
  Mit Zitat antworten Zitat