Вниз
Скачать: CL | DM;

Проиграть видео с 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. Где его можно достать? И, если можно, подскажите где лежат большинство модулей, которые могут пригодиться при работе с графикой, чтоб по одному не выкачивать.
  Спасибо.


 
Aldor ©   (2004-06-11 23:56) [3]

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

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

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

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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c
3-1091606930
сергей1
2004-08-04 12:08
2004.08.29
dbGrid


1-1092231820
Aleksandr.
2004-08-11 17:43
2004.08.29
У можно как-то у TList a сделать эффектное массовое удаление?


14-1092116835
Иван Шихалев
2004-08-10 09:47
2004.08.29
Вопросик по аське


6-1088326312
Oleg
2004-06-27 12:51
2004.08.29
Порты в Windows 9x, NT, XP


3-1091612672
veb
2004-08-04 13:44
2004.08.29
Ошибка: Size of optimizer block exceeded




   Наверх