Directshow9 Delphi Скачать

DirectShow — это архитектура компонентов для мультимедийного программного обеспечения, которая позволяет складывать вместе отдельные компоненты для вывода и обработки мультимедиа. DirectShow 9 входит в состав DirectX Software Development Kit и имеет возможность работы с файлами мультимедиа с различных устройств, в том числе и с камерами.

Для работы с DirectShow 9 в приложениях на Delphi необходимо добавить в проект модуль DSPack, представляющий набор компонентов, которые являются интерфейсами к функциональности DirectShow и обеспечивают удобное программирование мультимедийных приложений.

Скачать DSPack можно с сервера SourceForge по адресу: https://sourceforge.net/projects/dspack/files/

После загрузки архива необходимо установить компоненты DSPack и добавить их в палитру компонентов Delphi. Пример кода для работы с DirectShow 9:

uses DSPack, DSUtil;
var
  FS: IFilterGraph2;
  MC: IMediaControl;
  MS: IMediaSeeking;
  EV: IMediaEventEx;
  OvM: IOverlayMixer;
  Fetcher: TFrameGrabber;
begin
  Fetcher := TFrameGrabber.Create(nil);
  Fetcher.FilterGraph := TFilterGraph.Create;
  Fetcher.ParentWindow := Handle;
  Fetcher.VideoSource := vsScreen;
  Fetcher.ScreenLeft := 0;
  Fetcher.ScreenTop := 0;
  Fetcher.ScreenWidth := Screen.Width;
  Fetcher.ScreenHeight := Screen.Height;
  Fetcher.FrameRate := 25;
  Fetcher.StartPreview;
  FS := Fetcher.FilterGraph as IFilterGraph2;
  FS.QueryInterface(IID_IMediaControl, MC);
end;