Проиграть видео с DirectShow

← →
Snip © (2004-06-11 13:35) [0]

Привет еще раз... есть такой вот код:
CoCreateInstance(CLSID_FilterGraph, nil, CLSCTX_INPROC_SERVER, IID_IGraphBuilder, GraphBuilder); GraphBuilder.RenderFile("c:\my.avi", nil); GraphBuilder.QueryInterface(IID_IMediaControl, MediaControl); GraphBuilder.QueryInterface(IID_IVideoWindow, VideoWindow); VideoWindow.put_Owner(pnlView.Handle); VideoWindow.put_WindowStyle(WS_CHILD or WS_CLIPSIBLINGS); VideoWindow.SetWindowPosition(0, 0, pnlView.ClientRect.Right, pnlView.ClientRect.Bottom); MediaControl.Run;

как мне сдеать при увеличении изменении панели изменялся и размер видео.... как я понимаю надо что то делать на реакцию события онресайз, и код надо вот этот, но там вылетают всякие акцес виолятион ... VideoWindow.SetWindowPosition(0, 0, pnlView.ClientRect.Right, pnlView.ClientRect.Bottom);
подскажите что делать???

← →
NailMan © (2004-06-11 16:21) [1]

http://www.cyborghome.ru/nailman/zakroma/sources/nm_play_class.zip

Мой пример видеоплеера.

---
WBR, NailMan aka 2:5020/3337.13

← →
Keen © (2004-06-11 22:33) [2]

Извините за ламачество, но при попытке запуска не находит Directshow.dcu. Где его можно достать? И, если можно, подскажите где лежат большинство модулей, которые могут пригодиться при работе с графикой, чтоб по одному не выкачивать.
Спасибо.

> реакцию события онресайз, и код надо вот этот, но там вылетают всякие акцес виолятион ... VideoWindow.SetWindowPosition(0, 0, pnlView.ClientRect.Right, pnlView.ClientRect.Bottom);

Вы все правильно делаете, проблема в другом месте. Нужно больше кода иначе непонятно.

>не находит Directshow.dcu. Где его можно достать?

На сайте http://www.delphi-jedi.org/ лежат (или есть ссылки на) заголовочные файлы DirectX для Delphi.

Проиграть видео с DirectShow Найти похожие ветки