SetRate .wmv DirectShow9

[roth]

hallo

ich versuche ein Video in halber Geschwindigkeit abzuspielen:

Delphi-Quellcode:

var
  evCode        : integer;
  pEvent        :IMediaEvent;
  pGraph        :IGraphBuilder;
  pMediaControl :IMediaControl;
  pSeeking      : IMediaSeeking;
  pVidWin       :IVideoWindow;
begin
  CoInitialize(nil);
  CoCreateInstance(CLSID_FilterGraph, nil, CLSCTX_INPROC,    IID_IGraphBuilder, pGraph);
  pGraph.QueryInterface(IID_IMediaControl, pMediaControl);
  pGraph.QueryInterface(IID_IMediaEvent, pEvent);
  pGraph.QueryInterface(IID_IMediaSeeking, pSeeking);
  pGraph.RenderFile('D:\videos\test.wmv', nil);
  if (pSeeking.SetRate(0.5) = S_OK) then begin
   pMediaControl.Run();
  end;
  pEvent.WaitForCompletion(INFINITE, evCode);
  CoUninitialize();
end;

Bei .avi Files geht dies Problemlos, bei .wmv gibt SetRage E_INVALIDARG zurück...

Kann mir jemand Helfen?

mfg

[roth]

bei http://www.datastead.com mit TVideoGrabber kann man .wmv die Geschwindigkeit verändern.

jemand eine Idee wie sowas möglich ist?