Скачать: CL | DM;

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.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.02 c