DSPack подключение De-Interlace фильтра

← →
diman_1978 © (2007-01-22 19:32) [0]

с помощью пакета DSPack захватываю видеопоток и через SampleGrabber получаю изображения. Как только размер картинки по вертикали превышает 288 точек то появляется так назваемая "расческа", смещение одного полукадра относительно другого на 20 мс.
Знаю что это лечиться подключением фильтра дейнтерлейсинга, но не знаю как его подключить в DSPack. Может кто знает как это сделать?

← →
Дмитрий Белькевич © (2007-01-23 02:09) [1]

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. пробуй, почти неделя геморроя....

← →
diman_1978 © (2007-01-23 10:39) [2]

Спасибо за код!
У меня правда тут возникла еще одна проблема
При поиске:
j := FSysDev2.FilterIndexOfFriendlyName("Deinterlace Filter");
не находится фильтр с таким именем, я так понимаю что у меня его нет просто в системе или есть фильтры деинтерлейсинга но с другими дружественными именами?

Действительно у меня не было фильтра с таким иминем, скачал фильтр Alparysoft Deinterlace Filter,
заменил:
j := FSysDev2.FilterIndexOfFriendlyName("Alparysoft Deinterlace Filter");

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

DSPack подключение De-Interlace фильтра Найти похожие ветки