| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
IMediaDet [Delphi, Windows]
Simon © (2004-11-15 06:11:00)Мастера помогите вытащить информацию о видеофайле (размер картинки, FPS, кодеки) из интерфейса IMediaDet
aanco (2004-11-21 02:00:00) [1]Используй DSPack.
----------
Размер видеоклипа WxH в px:
Var
BasicVideo: IBasicVideo = nil;
...
if (QueryInterface(IBasicVideo, BasicVideo)=S_OK) then
begin
BasicVideo.get_VideoWidth(ClipWidth);
BasicVideo.get_VideoHeight(ClipHeight);
end;
----------
Список кодеков:
Var
FiltGraph: IFilterGraph = nil;
BaseFilter: IBaseFilter = nil;
FilterInfo: TFilterInfo;
...
if (QueryInterface(IFilterGraph, FiltGraph)=S_OK) then
begin
FiltGraph.EnumFilters(EnumFilters);
While (EnumFilters.Next(1, BaseFilter, nil)=S_OK) do
begin
BaseFilter.QueryFilterInfo(FilterInfo);
if Succeeded(BaseFilter.QueryInterface(ISpecifyPropertyPages, SpecifyPropertyPages)) then
ListBoxFilters.Items.Add(FilterInfo.achName);
end;
end;
----------
Длина клипа:
LabelMLength.Caption:= MilliSecondsToString(FilterGraph.Duration);
и т.п.
видео-плагин для Winamp: http://www.rc4wa.narod.ru/download.html
Simon (2004-11-17 06:23:00) [2]Не подскажешь где можно посмотреть примерчик? Я только начал изучать интерфейсы
Alex44 (2004-11-16 01:53:00) [3]Chitajte stream'y po odnomu, v zavisimosti ot typa stream'a izvlekajte iz nego information. Vse est' v DSPack sources + MSDN.
| |
