DSPack 1.05 и DirectX - наверно у меня руки кривые :-)

← →
Fredericco © (2002-10-30 12:27) [0]

Привет всем! Стоит задача зазвата видео средствами ДиректИкс. Скачал себе DSPack для Д4. Демки по захвату видео там не нашел. Нашел ее в DSPack 2.0 . По образу и подобию делаю в Д4. Получилось так:
procedure TForm1.Button1Click(Sender: TObject); var CaptureGraph: ICaptureGraphBuilder2; SourceFilter, DestFilter: IBaseFilter; begin FilterGraph.ClearGraph; FilterGraph.Disconnect; Filter.Filter.Moniker := SysDev.Filters[1].Moniker; FilterGraph.Connect; FilterGraph.FilterGraph2.QueryInterface(ICaptureGraphBuilder2, CaptureGraph); Filter.Graph.GraphBuilder.QueryInterface(IBaseFilter, SourceFilter); VideoWindow.Graph.GraphBuilder.QueryInterface(IBaseFilter, DestFilter); CaptureGraph.RenderStream(nil, nil, SourceFilter, nil, DestFilter); FilterGraph.MediaControl.Run; CaptureGraph := nil; SourceFilter := nil; DestFilter := nil; end;

В строке
CaptureGraph.RenderStream(nil, nil, SourceFilter, nil, DestFilter);
выдает Access Violation. Подскажите пожалуйста, что я не так делаю.

С уважением к мастерам Fredericco.

← →
Fredericco © (2002-10-30 12:29) [1]

Забыл добавить:

TForm1 = class(TForm) VideoWindow: TDSVideoWindow; Button1: TButton; FilterGraph: TDSFilterGraph2; Filter: TFilter; Button2: TButton; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; SysDev: TDSSysDevEnum;

← →
pasha676 (2002-10-30 12:52) [2]

У меня версия 1.05 и делается все подругому. Тут непонятно как ты вообще фильтр строишь. В 1.05 демка есть и называется она Grabber & WDM в том числе есть она и под дельфи 4.

DSPack 1.05 и DirectX - наверно у меня руки кривые :-) Найти похожие ветки