Hallo Delphi-Kollegen!!
Ich brauche eine zuverlässige Methode, um Zeiten in einem Intervall von 100 ms zu messen. Diese Zeiten werden gemeinsam mit anderen Daten gespeichert und später für die Wiedergabe wieder eingelesen und angezeigt.
Soweit so gut...
Jetzt hab ich das Ganze mal so gemacht:
Delphi-Quellcode:
(* Pro Intervall (100ms) wird die momentane Wiedergabezeit gesetzt *)
procedure TfmMain.tiPlayTimer(Sender: TObject);
var
lPlayTime : TDateTime;
begin
inc(fTimerCounter); //globale Zählervariable die hochgezählt wird, bis eine volle Sekunde erreicht wurde
if (fTimerCounter MOD 10 = 0) then begin
(* Momentane Wiedergabezeit während des Abspielens ermitteln und in der Form anzeigen *)
lPlayTime := GetPlayDataInstance.GetCurrTimeInDateTime;
lbCaptureTimeData.Caption := FormatDateTime('hh:nn:ss', lPlayTime);
(* Wenn momentane Wiedergabezeit die Gesamtvideodauer erreicht --> Abbruch
und zur Preview zurückkehren *)
if (GetPlayDataInstance.GetCurrVideoPosAsInt64 >=
GetPlayDataInstance.GetVideoDuration(videoRenderer_great)) then begin
self.StopPlayingStartPreview;
fTimerCounter := 0;
end;
end;
end;
In der GetCurrTimeInDateTime wird die Differenz aus einen Startwert (TDateTime mittels Now) und einem aktuellen Wert (ebenfalls TDateTime mittels Now) errechnet und zurückgegeben.
Das Ganze funktioniert soweit auf den ersten Blick auch ganz gut....
Wenn man die Werte wiedergibt merkt man, daß er immer wieder Sekunden bei der Wiedergabezeit ausläßt. Z.b. springt er von Sekunde 10 gleich auf Sekunde 12. Dasselbe passiert bei den Sekunden 23, 34, 46 sowie 58.
Jetzt hab ich schon öfters gelesen, daß der Timer nur mit einer geringeren Priorität ausgeführt wird und ich vermute mal, daß dies auch damit zusammenhängt...
Hatte wer schon mal so ein Problem und wie läßt es sich lösen??? Bin über jeden guten Tipp sehr dankbar, weil ich schön langsam nicht mehr weiter weiß??!!
LG
Thomas