Mp3 Position ändern mit Trackbar

[Alex_ITA01]

hallo erstmal,
ich habe mir schon die ganzen Beiträge angeguckt aber irgendwie haut mein Code net hin.Kann mir einer sagen was falsch ist?

Delphi-Quellcode:

procedure TForm1.TrackBar2Change(Sender: TObject); 
begin 
Form1.MediaPlayer1.Pause; 
MediaPlayer1.Position := TrackBar1.Position; 
MediaPLayer1.Play; 
end; 

procedure TForm1.Timer3ZeitTimer(Sender: TObject); 
begin 
if Form1.MediaPlayer1.Mode = mpPlaying then 
begin 
Form1.TrackBar2.Max := Form1.MediaPlayer1.Length; 
Form1.Trackbar2.Position := Form1.MediaPlayer1.Position; 
end; 
end;

danke alex

[edit=sakura]Alex, Du kennst die DELPHI-Tags doch schon Mfg, sakura[/edit]

[DelphiUser7]

Hi,
ich habe das gleiche Problem, melde mich, wenn ich es gelöst habe;

MfG
DelphiUser7

[DelphiUser7]

Hi Alex,
also, das Problem habe ich zwar nicht gelöst, ich kann dir aber sagen, woran es liegt, dass die TrackBar sich entweder gar nicht, oder nur minimal bewegt;
Du hast ja im OnTimer-Ereignis

 TrackBar2.Position := mediaplayer1.Position; stehen; aber im OnChange-Ereignis der TrackBar

 mediaplayer1.Position := TrackBar2.Position; d.h. sobald der Timer aktiviert wird bzw. du den Play-Button drückst, gilt das OnTimer-Ereignis;
dadurch allerdings wird schon das OnChange-Ereignis ausgelöst; da in diesem aber quasi die umgekehrte Zuordnung steht, kann in diesem Moment weder der Timer noch die TrackBar weiterlaufen ; im Prinzip 'behindern' sich die beiden gegenseitig;
mein Vorschlag: Versuch mal irgendwie zu proggen, dass das OnChange-Ereignis nur für manuelle Änderungen gilt, d.h. wenn du selbst den Stand der TrackBar änderst, und nicht schon, wenn diese sich auf Grund der Zuordnung in OnTimer bewegt;

[DelphiUser7]

Habe mir mal die ganzen Procedures/Eigenschaften von TTrackBar angesehen;
da ist gar nichts dabei, was 'wir' gebrauchen könnten;

[Baal]

hi ihr beiden,

zu eurer freude könnte ich beitragen in dem ich euch sage das ich
da schon mal ein programm geschrieben habe das funzt

zu meinem bedauern bin ich erst sonntag wieder zuhause und kann
euch daher die lösung erst frühestens montag posten

ich hab erst vor kurzen mit nem player angefangen und würde
euch deshalb fragen ob wir nicht nen player zusammen basteln
wollen?

bye, gruß und bleibt gesund

[Alex_ITA01]

das problem habe ich selber schon gelöst aber die variante gefällt mir selber nicht so richtig
ich habe einfach abgefragt ob die trackbar fokusiert wurde (if TrackBar2.Focused = true then)
und dannnach muss ich aber den Fukus wieder auf was anderes setzten ansonsten stottert es.
also ich werde es mal weiterversuchen
danke alex
(bei fragen habe ich ein OHR offen)

[Gandalfus]

trackbar mit mouse ereignissen ausstatten und dan mit einer flag arbeiten.

[Alex_ITA01]

ja und wie statte ich eine trackbar mit mouse ereignissen aus?
hast du ein beispiel dafür wäre nicht schlecht.habe übrigens dein source erweitert (unit bassplayer)

danke alex

[Gandalfus]

so:

[Alex_ITA01]

ok danke werde es mal probieren
schreiben wir die unit bassplayer nun weiter?
alex