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