Problem mit dem TMediaPlayer

[Klaus01]

Sodele,

ein 2 Stunden Video habe ich nicht aber ich habe mir für 2 Stunden mp3 Files zusammenkopiert.

Wenn Du die Trackbarposition permanent der Videoposition anpasst wird
immer ein onChange Ereignis der Trackbar ausgelöst.

Du hast leider nicht geschrieben wie Du die Trackbar updatetest.

Bei meinem Testprojekt sieht das so aus:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
   mediaplayer1.FileName:='j:\data2\mp3\bigFile.mp3';
   mediaplayer1.Open;
   trackbar1.Max:=mediaplayer1.Length;
   mediaplayer1.Play;
   Timer1.Enabled:=true;
end;

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Trackbar1.OnChange := nil;               // verhindert das Auslösen des onChange Ereignisses
  trackbar1.position := mediaplayer1.position;
  Trackbar1.OnChange := Trackbar1Change;  // onChange Ereignis kann wieder ausgelöst werden
end;

Delphi-Quellcode:

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  Timer1.Enabled:=false;
  mediaplayer1.Pause;
  mediaplayer1.Position := trackbar1.Position;;
  mediaplayer1.Play;
  Timer1.Enabled := true;
end;

Dein Problem habe ich nicht nachstellen können.

Grüße
Klaus