Autor Beitrag
seththos19
Hält's aus hier
Beiträge: 1

Win XP, Win 98
D5
BeitragVerfasst: Mo 21.02.05 11:38 
Hi!
Kurze aber suber wichtige Frage:

Wie kann ich den bereitgestellten Buttons des Mediaplayer meine folgenden gewünschten Aktionen zuweisen?

Mein Problem:

Habe geschafft, dass beim Anklicken eines ListBox - Eintrages das entsprechende Lied in die TMediaPlayer Komponente der Registerkarte Beispiele (Delphi 5) geladen und beim Drücken von Play abgespielt wird.
Nun würde ich es gern noch schaffen, dass beim Drücken der bereitgestellten 'Next'-Taste oder 'Prev'- Taste das davor stehende oder das danach stehende Lied in der ListBox abgespielt wird. Das Problem ist, dass der MediaPlayer beim Drücken immer nur ans Ande des Liedes zurückgeht, aber nicht zum nächsten springt.
Außerdem wollte ich gern, dass ich, wie beim normalen WindowsPlayer, mit Hilfe der Vorspul und Rückspultast durch das Lied navigieren kann. Mit einer Trackbar klappts, aber ich wollte es halt auch mit den angebotenen Buttons schaffen.

Weiß also jemand, wie ich den entsprechenden Buttons meine gewünschten Aktionen zuweisen bzw. beibringen kann?
Es ist wirklich sehr wichtig für mich, daher würde ich mich über eine schnelle Antwort unglaublich freuen!

Danke schon mal: Seth
Karlson
ontopic starontopic starontopic starontopic starontopic starofftopic starofftopic starofftopic star
Beiträge: 2088



BeitragVerfasst: Mo 21.02.05 14:27 
Hallo!

In der Delphihilfe steht hat folgendes geschrieben:

Play btPlay Startet den Media-Player.
Pause btPause Unterbricht das Abspielen oder Aufzeichnen. Wenn bereits unterbrochen ist, wird durch Anklicken das Abspielen bzw. Aufzeichnen wieder gestartet.
Stop btStop Stoppt das Abspielen oder Aufzeichnen.
Next btNext Spult zur nächsten Spur bzw. zum Ende, wenn das Medium keine Spuren unterstützt.
Prev btPrev Spult zur vorhergehenden Spur bzw. zum Anfang, wenn das Medium keine Spuren unterstützt.
Step btStep Spult um eine bestimmte Anzahl von Frames nach vorne.

Back btBack Spult um eine bestimmte Anzahl von Frames zurück.
Record btRecord Startet das Aufzeichnen.
Eject btEject Wirft das Medium aus.

Das Multimedia-Gerät wird gestartet, unterbrochen, gestoppt usw., sobald der Benutzer auf die entsprechende Schaltfläche der TMediaPlayer-Komponente klickt. Das Gerät läßt sich auch über die Steuermethoden, die den Schaltflächen entsprechen (Play, Pause, Stop, Next, Previous, Step, Back, StartRecording und Eject), bedienen.


Ergo:

ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
  var DoDefault: Boolean);
begin
 if Button = btplay then
  begin
   [dein code]
  end;
end;



Nächstes mal in die OH gucken ;)

gruss.