|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.04.2017, 09:08 | #1 |
Пользователь
Регистрация: 18.01.2010
Сообщений: 18
|
Проигрывание MP4 файла, кроме WMP
Как можно проиграть один видео файл формата MP4 без использования WMP?!
Нужен пример. Помогите. |
17.04.2017, 09:52 | #2 |
Пользователь
Регистрация: 18.01.2010
Сообщений: 18
|
Делаю так:
unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, DirectShow9, ComObj, ActiveX, Vcl.ExtCtrls; type TForm1 = class(TForm) Panel1: TPanel; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; MyGraphBuilder: IGraphBuilder; MyMediaControl: IMediaControl; VideoWindow: IVideoWindow; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin CoInitialize(nil); {получаем интерфейс IGraphBuilder} CoCreateInstance(CLSID_FilterGraph, nil, CLSCTX_INPROC_SERVER, IID_IGraphBuilder, MyGraphBuilder); {вызываем RenderFile - граф фильтров строится автоматически} MyGraphBuilder.RenderFile('1.mp4', nil); {получаем интерфейс ImediaControl} MyGraphBuilder.QueryInterface(IID_I MediaControl, MyMediaControl); {Примечание - MyMediaControl - переменная типа IMediaControl} {получаем интерфейс IVideoWindow} MyGraphBuilder.QueryInterface(IID_I VideoWindow, VideoWindow); {Примечание - VideoWindow - переменная типа IVideoWindow} {располагаем окошко с видео на панель} VideoWindow.SetOwner(Self.Panel1.Ha ndle); VideoWindow.Set_WindowStyle(WS_CHIL D or WS_CLIPSIBLINGS); VideoWindow.SetWindowPosition(0, 0, Panel1.ClientRect.Right, Panel1.ClientRect.Bottom); {проигрываем видео} MyMediaControl.Run; ShowMessage('Нажмите OК'); CoUninitialize; end; end. Ошибка: [dcc32 Error] Unit1.pas(49): E2003 Undeclared identifier: 'SetOwner' [dcc32 Error] Unit1.pas(50): E2003 Undeclared identifier: 'Set_WindowStyle' |
17.04.2017, 15:12 | #3 |
Форумчанин
Регистрация: 13.02.2012
Сообщений: 867
|
как-то вот так надо:
Код:
Последний раз редактировалось BLACK_RAIN; 17.04.2017 в 15:16. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Удаление из срр файла всего текста кроме комментариев | julia9311 | Общие вопросы C/C++ | 17 | 19.10.2018 02:16 |
Выбрать из файла весь текст, кроме url | mishammm | PHP | 2 | 07.11.2015 21:09 |
Проигрывание файла MP3 | InfaMan | Мультимедиа в Delphi | 2 | 14.05.2015 04:50 |
проигрывание AVI файла при запросе | kotzzz | Общие вопросы Delphi | 6 | 23.03.2010 11:07 |
Циклическое проигрывание midi-файла без разрывов в звучании | LordYuri | Мультимедиа в Delphi | 2 | 23.04.2008 18:09 |