AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi mp3 abspielen und wiederholen...

mp3 abspielen und wiederholen...

Ein Thema von FriFra · begonnen am 30. Jul 2005 · letzter Beitrag vom 1. Aug 2005
Antwort Antwort
Benutzerbild von FriFra
FriFra

Registriert seit: 19. Apr 2003
1.291 Beiträge
 
Delphi 2005 Professional
 
#1

mp3 abspielen und wiederholen...

  Alt 30. Jul 2005, 18:29
will in meinem Programm eine mp3 Datei abspielen und permanent wiederholen. Leider bietet der TMediaPlayer keine entpr. Eigenschaft, auch ein passendes Ereignis fehlt ...

PlaySound und sndPlaySound können ja leider mit mp3 nix anfangen...
Elektronische Bauelemente funktionieren mit Rauch. Kommt der Rauch raus, geht das Bauteil nicht mehr.
  Mit Zitat antworten Zitat
Benutzerbild von fkerber
fkerber
(CodeLib-Manager)

Registriert seit: 9. Jul 2003
Ort: Ensdorf
6.721 Beiträge
 
Delphi XE Professional
 
#2

Re: mp3 abspielen und wiederholen...

  Alt 30. Jul 2005, 18:31
Hi!

Gibt es nix, wenn er fertig ist mit spielen?
Oder merk dir die Länge des Titels vielleicht?

Ciao Frederic
Frederic Kerber
  Mit Zitat antworten Zitat
Benutzerbild von FriFra
FriFra

Registriert seit: 19. Apr 2003
1.291 Beiträge
 
Delphi 2005 Professional
 
#3

Re: mp3 abspielen und wiederholen...

  Alt 30. Jul 2005, 18:35
Zitat von fkerber:
Gibt es nix, wenn er fertig ist mit spielen?
Gibt's nicht... hab ich doch schon geschrieben

Zitat von fkerber:
Oder merk dir die Länge des Titels vielleicht?
Was sollte mir das bringen? Der Player soll schießlich exact nach Ende der mp3 wieder von vorn anfangen...
Elektronische Bauelemente funktionieren mit Rauch. Kommt der Rauch raus, geht das Bauteil nicht mehr.
  Mit Zitat antworten Zitat
Prym

Registriert seit: 20. Feb 2005
108 Beiträge
 
#4

Re: mp3 abspielen und wiederholen...

  Alt 30. Jul 2005, 18:38
Zitat von Matze:
vielleicht so:

Delphi-Quellcode:
if MediaPlayer1.Position = MediaPlayer1.Length then
begin
  MediaPlayer1.Position:=0;
  MediaPlayer1.Open;
  MediaPlayer1.Play;
end;
Hau das z.B. in einen Timer mit Intervall 1000 rein.
geht bei mir wunderbar

bei dem thema habe ich auch die suche benutzt.....
Kodex & FAQ :: Index:
2.3.3.1 - Bitte nicht vom Thema abschweifen
  Mit Zitat antworten Zitat
Benutzerbild von fkerber
fkerber
(CodeLib-Manager)

Registriert seit: 9. Jul 2003
Ort: Ensdorf
6.721 Beiträge
 
Delphi XE Professional
 
#5

Re: mp3 abspielen und wiederholen...

  Alt 30. Jul 2005, 18:45
Hi!

Zitat von FriFra:
Zitat von fkerber:
Oder merk dir die Länge des Titels vielleicht?
Was sollte mir das bringen? Der Player soll schießlich exact nach Ende der mp3 wieder von vorn anfangen...
Das soll genau das bringen, was Prym auch verwendet:
Zu wissen, wann das Lied zu Ende ist, um dann neu anzufangen!


Ciao Frederic
Frederic Kerber
  Mit Zitat antworten Zitat
Benutzerbild von FriFra
FriFra

Registriert seit: 19. Apr 2003
1.291 Beiträge
 
Delphi 2005 Professional
 
#6

Re: mp3 abspielen und wiederholen...

  Alt 30. Jul 2005, 18:49
Zitat von Prym:
Zitat von Matze:
vielleicht so:

Delphi-Quellcode:
if MediaPlayer1.Position = MediaPlayer1.Length then
begin
  MediaPlayer1.Position:=0;
  MediaPlayer1.Open;
  MediaPlayer1.Play;
end;
Hau das z.B. in einen Timer mit Intervall 1000 rein.
geht bei mir wunderbar

bei dem thema habe ich auch die suche benutzt.....
Genau DAS ist eben keine saubere Lösung! Auch mit einem Timer weiß ich immer noch nicht exakt wann die Datei nun abgespielt wurde.
Selbst wenn ich onTimer MediaPlayer1.Length=MediaPlayer1.Position vergleiche, dann hab ich im ungünstigsten Fall eine Pause von 1s... Wenn ich den Intervall verkürze erreiche ich damit zwar eine höhere Treffequote (bezogen auf das Abspielende), jedoch zum Preis einer sehr hohen CPU-Auslastung.
Elektronische Bauelemente funktionieren mit Rauch. Kommt der Rauch raus, geht das Bauteil nicht mehr.
  Mit Zitat antworten Zitat
Benutzerbild von Stanlay Hanks
Stanlay Hanks

Registriert seit: 1. Mär 2003
2.078 Beiträge
 
Delphi 2005 Professional
 
#7

Re: mp3 abspielen und wiederholen...

  Alt 30. Jul 2005, 18:56
Zitat von FriFra:
Genau DAS ist eben keine saubere Lösung! Auch mit einem Timer weiß ich immer noch nicht exakt wann die Datei nun abgespielt wurde.
Selbst wenn ich onTimer MediaPlayer1.Length=MediaPlayer1.Position vergleiche, dann hab ich im ungünstigsten Fall eine Pause von 1s... Wenn ich den Intervall verkürze erreiche ich damit zwar eine höhere Treffequote (bezogen auf das Abspielende), jedoch zum Preis einer sehr hohen CPU-Auslastung.
Da haben wir beide aber eine unterschiedliche Vorstellung von "sehr hoch"

Man liest sich, Stanlay
  Mit Zitat antworten Zitat
padavan

Registriert seit: 12. Jan 2005
271 Beiträge
 
Delphi 7 Enterprise
 
#8

Re: mp3 abspielen und wiederholen...

  Alt 30. Jul 2005, 19:50
was macht
Mediaplayer1.notify eigentlich?

Ist keine Spitzfindige Frage, aber vielleicht lässt sich daraus was machen?

F1 -->
Die Eigenschaft Notify bestimmt, ob nach Abschluss der nächsten Methode zur Steuerung des Media-Players (Back, Close, Eject, Next, Open, Pause, PauseOnly, Play, Previous, StartRecording, Resume, Rewind, Step oder Stop) ein OnNotify-Ereignis generiert wird.

Wenn Notify den Wert true hat, erzeugt die nächste Methode zur Steuerung des Media-Players nach ihrer Beendigung ein OnNotify-Ereignis und speichert die Benachrichtigungsbotschaft in der Eigenschaft NotifyValue. Ist Notify dagegen false, generiert die Methode kein OnNotify-Ereignis, und NotifyValue wird nicht verändert.
  Mit Zitat antworten Zitat
Prym

Registriert seit: 20. Feb 2005
108 Beiträge
 
#9

Re: mp3 abspielen und wiederholen...

  Alt 30. Jul 2005, 20:40
Zitat von FriFra:
will in meinem Programm eine mp3 Datei abspielen und permanent wiederholen. Leider bietet der TMediaPlayer keine entpr. Eigenschaft, auch ein passendes Ereignis fehlt ...

PlaySound und sndPlaySound können ja leider mit mp3 nix anfangen...
soweit ich das lese willst du nur nen sound wiederholen und das geht mit meinem code wunderbar
Kodex & FAQ :: Index:
2.3.3.1 - Bitte nicht vom Thema abschweifen
  Mit Zitat antworten Zitat
Benutzerbild von Remote1
Remote1

Registriert seit: 22. Okt 2003
Ort: Dippoldiswalde
252 Beiträge
 
Delphi 6 Personal
 
#10

Re: mp3 abspielen und wiederholen...

  Alt 1. Aug 2005, 10:35
wenn ich das richtig verstanden habe sucht ihr nen replay (also ne loop funktion)
kannst ja auch mal im forum oder im web unter loop suchen, findest bestimmt haufen bsp

Delphi-Quellcode:
procedure Form1.MediaPlayer1Notify(Sender: TObject);
begin
    If MediaPlayer1.Notify = True then
    Begin
      MediaPlayer1.Play;
    End
  else
    Begin
      MediaPlayer1.Stop;
    End;
end;

Wenn die Loop-Funktion eingeschaltet wird, muss diese Zeile eingefügt werden ..
MediaPlayer1.Notify := True;

bzw. wenn sie ausgeschaltet werden soll ...
MediaPlayer1.Notify := False;
[edit=MrSpock]Code durch Delphi - Tags ersetzt. Mfg, MrSpock[/edit]
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:12 Uhr.
Powered by vBulletin® Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2020 by Daniel R. Wolf