Entwickler-Ecke

Multimedia / Grafik - Mediaplayer Position setzen


hibbert - So 20.07.03 20:48
Titel: Mediaplayer Position setzen
Hi,

ich zeige die aktuelle Position des Mediaplayer mit einer Trackbar an.
In einem Timer habe ich also folgendes stehen:

Delphi-Quelltext
1:
2:
3:
4:
5:
6:
var pos:integer;
begin
pos:=mediaplayer1.Position div 1000;
trackbar1.Max:=mediaplayer1.Length;
trackbar1.Position:=mediaplayer1.Position;
end;

Der Timer hat ein Interval von 1. (standard 1000)
Nun will ich die Trackbar verschieben und somit auch die Position des Mediaplayers verändern. Doch die Trackbar spring immer wieder zurück und das Lied läuft normal weiter,so als wenn ich nichts verändert hätte.

Wie stoppe ich den Mediaplayer beim Verschiebne der Trackbar, Wie setzte ich die Position des Mediaplayers und wie sage ich dem Mediaplayer, dass er von der bestimmt Position weiterspielen soll,aber esrt, wenn ich die Trackbar verschoben habe? (ich mache einen linksklick und halte die l. Maustatse gedrückt, verschiebe die Trackbar und lasse dann die l.Maustaste wieder los, dann erst soll der Player weiter spielen, dazwischen nicht)
thx hibbert


mimi - Mo 21.07.03 20:51

mache doch am anfang des verschiebens:
mediaPlayer1.Paused ? wie war das gleich nochmal....
und am ende nochmal. so sollte das funktionieren:)


hibbert - Di 22.07.03 23:44

die Position wird aber per Timer Komponente gesetzt.

wie heißt eigendlich das ereignis, was ich da benutzen soll?

zhx hibbert


Aya - Mi 23.07.03 00:37

Hi,

deaktiviere den Timer einfach im OnMouseDown von der Trackbar, und aktiviere ihn wieder beim OnMouseUp... tada.. ;)

Au'revoir,
Aya~


Logiqu - Mi 23.07.03 09:41

Ein OnMouseDown und OnMouseUp Ereignis gibt es leider nicht bei der TrackBar... Entweder du machst es über OnChange (da die neue MediaPlayer-Position setzen) oder ich bastele dir mal ne TrackBar mit den besagten Ereignissen...


Flamesword - Do 24.07.03 18:21

Mach doch ein OnChange-Ereignis!
OnChange -> MediaPlayer1.Position = TrackBar1.Position oder sowas.


Terra23 - Do 24.07.03 19:09

@Hibbert: Weißt du, was dein Fehler ist? Ich sag's dir.

Folgendes:


Delphi-Quelltext
1:
Trackbar1.Position:=MediaPlayer1.Position                    


bedeutet, daß der Trackbar immer die Position des MediaPlayers kriegen soll und so macht es auch dein Tool.


Delphi-Quelltext
1:
MediaPlayer1.Position:=Trackbar1.Position;                    


ist das, was du brauchst, denn der MediaPlayer soll ja die Position des Trackbar bekommen, gelle?

;-)