DSPack i pozycja odtwarzania

0

Mam mały problem związany z komponentem DSPack. Mój odtwarzacz działa bez problem, ale chcę dodać funkcje która będzie mi przesuwała pozycję odtwarzanego filmu o np.: 10 sekund. Czy jest jakaś gotowa procedura? Próbowałem zmienić pozycję DSTrackBar'a ale to nic nie pomaga. W komponencie MediaPlayer nie ma takiego problemu wystarczy

MediaPlayer.Position:= MediaPlayer.Position +10;

Chodzi mi o to, że jak użytkownik kliknie button "Do przodu" film ma się przesunąć od 10 sekund do przodu. Jeżeli macie jakieś propozycję będę wdzięczny...

0

Może to Ci da pojecie jak sie za to zabrac w dspack-u


//******************************************************************************
//
//  Media Forward/Backward 5 seconds
//
//******************************************************************************

//do przodu o 5 sekund
procedure TFormDVDPlayer.ForwardMedia5s;
var
  MediaSeeking: IMediaSeeking;
  CurrentPosition, StopPosition: int64;
  MlsCurrentPos, MlsStopPos : Cardinal;
begin
    FilterGraph.QueryInterface(IMediaSeeking, MediaSeeking);
    if assigned(MediaSeeking) then
    with MediaSeeking do
    Begin
    GetStopPosition(StopPosition);
    GetCurrentPosition(CurrentPosition);
    MlsCurrentPos := RefTimeToMiliSec(CurrentPosition);
    MlsStopPos    := RefTimeToMiliSec(StopPosition);
    MlsCurrentPos :=  MlsCurrentPos + 5000;

    if MlsCurrentPos < MlsStopPos then
    begin
    CurrentPosition :=  MiliSecToRefTime(MlsCurrentPos);
    SetPositions(CurrentPosition, AM_SEEKING_AbsolutePositioning,
                                    StopPosition   , AM_SEEKING_NoPositioning);
    end;
    end;
    MediaSeeking := nil;
end;

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.