Media Player

Finger · Beiträge: 38

Hi Cracks! Ich wollte ma fragen ob einer ein Tutorial oder ne Source hat für nen simplen media player! Er sollte folgende funktionen besitzen :

-Play
-Stop
-Fastfrwd
-Fastbkwrd

und natürlich sollte es möglich sein irgendwelche dateien zu öffnen und net nur die im Quellcode!

Gruss

Anarkids · Verfasst: Di 18.04.06 09:56

hi.

hast ja bestimmt schonmal mit der TMediaPlayer Komponente versucht oder?

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

procedure TForm1.Button1Click(Sender: TObject);
begin
mediaplayer1.filename := 'C:/song.mp3';
mediaplayer1.open;
mediaplayer1.play; //spielt den song
end;

mfg
anarkids

_________________
Mr.D
Change begins with you - TODAY!

Finger · Beiträge: 38

Ja! aber der is zu simpel! Und die Komponente kann ich net richtig einbinden! Und eben bräuchte noch fast backward und vorward!

Anarkids · Verfasst: Di 18.04.06 10:00

also wenn ich mich recht erinner, dann kannst du beim TMediaplayer mit .next; und .back; zwischen den songs wechseln (wenn du das mit fastforward/backward meintest).

edit: wieso kannst du die komponente nicht richtig einbinden?

_________________
Mr.D
Change begins with you - TODAY!

Finger · Beiträge: 38

Ich kann den gar net bedienen! der is wie ausegblendet! und fast forward meine ich mit spulen!

Anarkids · Verfasst: Di 18.04.06 10:05

ach?! der erscheint gar nich erst auf dem formular?

sorry, mit dem fastforward etc kann ich dir leider nicht helfen

_________________
Mr.D
Change begins with you - TODAY!

Gausi · Verfasst: Di 18.04.06 14:01

Schau dir mal Bass oder Fmod an. Damit lässt sich ein schnelles vorspulen recht einfach realisieren. Mit der Standard-Mediaplayer-Komponente geht das afaik nicht.
Bei Bass sind auch Beispiel-Programme dabei, wie man damit richtig umgeht.

_________________
We are, we were and will not be.

patrick dee · Beiträge: 311 Win 98SE, WinXP D3,D6

hi

evtl. hilft dir das weiter :

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.btn1sekundevorClick(Sender: TObject);
begin
 with MediaPlayer do
 begin
 MediaPlayer.Position := MediaPlayer.Position + 1000;
  MediaPlayer.Play;
end;
end;

das wäre eine Sekunde vor geht natürlich auch zurück mit - 1000 usw.

Nur so als Gedanke

gruß

Patrick

_________________
Glauben heißt nichts wissen ...

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme