Помогите доделать программу работающую с Веб-Камерой

[Levsha100]

Здравствуйте!
Помогите, пожалуйста, доделать программку, работающую с Веб-Камерой с помощью DirectShow ! Я сделал только проигрование файлов, а надо захват с камеры, и получение доступа к отдельным пикселям !
Вот мои нароботки

unit Kamera;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,ActiveX,DirectShow9, StdCtrls, ComObj, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    Button2: TButton;
    Panel1: TPanel;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  MyGraphBuilder: IGraphBuilder = nil;
MyMediaControl: IMediaControl = nil;
MyMediaEvent : IMediaEvent = nil;
 VideoWindow: IVideoWindow;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
CoInitialize(nil);
CoCreateInstance(CLSID_FilterGraph, nil, CLSCTX_INPROC, IID_IGraphBuilder,MyGraphBuilder);

MyGraphBuilder.QueryInterface(IID_IMediaControl, MyMediaControl);
MyGraphBuilder.QueryInterface(IID_IMediaEvent, MyMediaEvent);

MyGraphBuilder.RenderFile(StringToOleStr(OpenDialog1.FileName), '');

MyMediaControl.Run;

CoUninitialize;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
OpenDialog1.Execute();
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 CoInitialize(nil);
  {получаем интерфейс IGraphBuilder}
  CoCreateInstance(CLSID_FilterGraph, nil, CLSCTX_INPROC_SERVER,
    IID_IGraphBuilder, MyGraphBuilder);


  MyGraphBuilder.RenderFile(StringToOleStr(OpenDialog1.FileName), nil);

  
  MyGraphBuilder.QueryInterface(IID_IMediaControl, MyMediaControl);
  MyGraphBuilder.QueryInterface(IID_IVideoWindow, VideoWindow);




  MyMediaControl.Run;

  CoUninitialize;

end;



end.

Пожалуйста!
P.S. И еще - объясните, пожалуйста, какой метод правильнее 1 или 2? И в чем разница выделенных красным участков?

[Levsha100]

Пожалуйста, кому несложно, помогите !

[Брахман]

насколько я понял,тебе нужно считать изображение с камеры.это сложновато,явно обычным компонентом DelphiX тут не обойдешься.Качество плохое будет.Может поговорить с разработчиками skype?