DSPack Video Vorspulen

[omata]

Moin,

etwas konkreter sieht das dann so aus...

Delphi-Quellcode:

procedure TMain.SetPosition(FilterGraph:TFilterGraph; secPos: Cardinal);
var FMediaSeeking:IMediaSeeking;
    StopPosition, CurrentPosition: int64;
    MlsStopPos: Cardinal;
begin
  FilterGraph.QueryInterface(IMediaSeeking, FMediaSeeking);
  FMediaSeeking.GetStopPosition(StopPosition);
  MlsStopPos    := RefTimeToMiliSec(StopPosition);
  CurrentPosition := (StopPosition * secPos) div (MlsStopPos div 1000) ;
  StopPosition:=0;
  FMediaSeeking.SetPositions(CurrentPosition, AM_SEEKING_AbsolutePositioning,
                             StopPosition,    AM_SEEKING_NoPositioning);
end;

Und der Aufruf...

  SetPosition(FilterGraph, 60); MfG
Thorsten