Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

DSPack подключение De-Interlace фильтра [D6, Win2k, WinXP]

diman_1978 © (2007-01-22 19:32:00)
с помощью пакета DSPack захватываю видеопоток и через SampleGrabber получаю изображения. Как только размер картинки по вертикали превышает 288 точек то появляется так назваемая "расческа", смещение одного полукадра относительно другого на 20 мс.
Знаю что это лечиться подключением фильтра дейнтерлейсинга, но не знаю как его подключить в DSPack. Может кто знает как это сделать?

diman_1978 (2007-01-23 13:25:00) [1]
Действительно у меня не было фильтра с таким иминем, скачал фильтр Alparysoft Deinterlace Filter,
заменил:
j := FSysDev2.FilterIndexOfFriendlyName('Alparysoft Deinterlace Filter');

и дальше по коду приведенному Дмитрием Белькевичем.
Все заработало, расческа исчезла.
Дмитрию большое спасибо!!!

diman_1978 (2007-01-23 10:39:00) [2]
Спасибо за код!
У меня правда тут возникла еще одна проблема
При поиске:
j := FSysDev2.FilterIndexOfFriendlyName('Deinterlace Filter');
не находится фильтр с таким именем, я так понимаю что у меня его нет просто в системе или есть фильтры деинтерлейсинга но с другими дружественными именами?

Дмитрий Белькевич (2007-01-23 02:09:00) [3]
DeInt: TFilCatNode;

---------

FSysDev2 := TSysDevEnum.Create;
for i := 0 to FSysDev2.CountCategories - 1 do
if FSysDev2.Categories[i].FriendlyName = 'DirectShow Filters' then
begin
FSysDev2.SelectIndexCategory(i);
j := FSysDev2.FilterIndexOfFriendlyName('Deinterlace Filter');
if j <> -1 then
DeInt := FSysDev2.Filters[j];
Break;
end;

---------

hr := CoCreateInstance(DeInt.CLSID, nil, CLSCTX_INPROC, IID_IBaseFilter, DeinterlaceFilter);

if hr = s_ok then
hr := (FilterGraph as IGraphBuilder).AddFilter(DeinterlaceFilter, 'Deinterlace');
if hr <> s_ok then
begin
MessageBox(0, PChar(rsDeinterlaceIniError), '', MB_OK);
exit;
end;

(FilterGraph as ICaptureGraphBuilder2).RenderStream(@PIN_CATEGORY_CAPTURE,
nil,
Filter as IBaseFilter,
SampleGrabber as IBaseFilter,
DeinterlaceFilter);

(FilterGraph as ICaptureGraphBuilder2).RenderStream(nil,
nil,
DeinterlaceFilter,
nil,
DSVideoWindowEx1 as IBaseFilter);

p.s. пробуй, почти неделя геморроя....

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »