Programmieranfänger will wmv-clip abspielen

[Andi1985]

es ginge auch so mit DirectShow (DirectX):

uses DirectShow9;

Delphi-Quellcode:

procedure Init();
var
   pGraph         :IGraphBuilder;
   pMediaControl  :IMediaControl;
   pEvent         :IMediaEvent;
   pVidWin        :IVideoWindow;
   evCode       : integer;

begin

    CoInitialize(nil);

    CoCreateInstance(CLSID_FilterGraph, nil, CLSCTX_INPROC,
                    IID_IGraphBuilder, pGraph);

        pGraph.QueryInterface(IID_IMediaControl, pMediaControl);
        pGraph.QueryInterface(IID_IMediaEvent, pEvent);

        pGraph.RenderFile('.\clock.avi', nil);

        pMediaControl.Run();

      pEvent.WaitForCompletion(INFINITE, evCode);

    CoUninitialize();
end;