Получить кадр с web камеры используя DirectShow

void __fastcall TForm4::Button1Click(TObject *Sender)
{
    HRESULT hr;
 
 
 
 
    IGraphBuilder *pGraph = NULL; //менеджер графа фильтров
    ICaptureGraphBuilder2 *pBuild = NULL; //граф фильтра аудио\видео захвата
 
    IBaseFilter *pCapture = NULL; //видеофильтр
 
    ICreateDevEnum *pDevEnum = NULL;
    IEnumMoniker* pEnum = NULL;
    IMoniker* pMoniker = NULL;
 
    IMediaControl * pMediaControl(NULL);
    IMediaEventEx  * pEvent(NULL);
 
    //Инициализируем библиотеку COM
    hr = CoInitializeEx(NULL, COINIT_APARTMENTTHREADED);
    if(SUCCEEDED(hr))
    {
        //Создание графа-фильтров - Create the Capture Graph Builder
        hr = CoCreateInstance(CLSID_CaptureGraphBuilder2, NULL, CLSCTX_INPROC_SERVER, IID_ICaptureGraphBuilder2, (void**)&pBuild );
        if (SUCCEEDED(hr))
        {
            //Создание менеджера графа фильтров - Create the Filter Graph Manager
            hr = CoCreateInstance(CLSID_FilterGraph, 0, CLSCTX_INPROC_SERVER, IID_IGraphBuilder, (void**)&pGraph);
            if (SUCCEEDED(hr))
            {
                //Initialize the Capture Graph Builder
                pBuild->SetFiltergraph(pGraph);
 
 
                // Find system device enumerator to find a video capture device.
                hr = CoCreateInstance(CLSID_SystemDeviceEnum, 0, CLSCTX_INPROC_SERVER, IID_ICreateDevEnum, (LPVOID*)&pDevEnum);
 
                if(SUCCEEDED(hr))
                {
 
                    //создает счетчик для определенной категории устройств
                    hr = pDevEnum->CreateClassEnumerator(CLSID_VideoInputDeviceCategory, &pEnum, 0);
 
                    if(SUCCEEDED(hr))
                    {
                        if( pEnum->Next(1, &pMoniker,0) == S_OK )
                        {
                            hr = pMoniker->BindToObject(0, 0, IID_IBaseFilter, (void **)&pCapture);
 
                            //hr = pGraph->AddFilter(pCapture, L"CaptureFilter");
                            //pGraph->RenderFile(L"D:\\Wildlife.wmv", NULL); //чтение файла - работает
 
                            if(SUCCEEDED(hr))
                            {
                                pGraph->AddFilter(pCapture, L"Capture Filter");
                                hr = pBuild->RenderStream(&PIN_CATEGORY_PREVIEW, &MEDIATYPE_Video, pCapture, NULL, NULL);  //3,4,5 Параметры - фильтры, которые объединены в граф
 
                                pDevEnum->Release();
                                pEnum->Release();
                                pMoniker->Release();
 
                                // Specify the owner window.
                                IVideoWindow *pVidWin = NULL;
                                OAHWND hWnd;
 
                                pGraph->QueryInterface(IID_IVideoWindow, (void **)&pVidWin);
 
                                pVidWin->put_Owner((OAHWND) Image1->Handle);
                                pVidWin->put_WindowStyle( WS_CHILD | WS_CLIPSIBLINGS );
 
                                pVidWin->put_Left(0);
                                pVidWin->put_Top(0);
                                pVidWin->put_Width(260);
                                pVidWin->put_Height(180);
                                //pVidWin->put_Width(800);
                                //pVidWin->put_Height(600);
 
                                // Set the owner window to receive event notices.
                                pGraph->QueryInterface(IID_IMediaEventEx, (void **)&pEvent);
                                pEvent->SetNotifyWindow((OAHWND)hWnd, 0, 0);
 
                                // Run the graph.
                                pGraph->QueryInterface(IID_IMediaControl, (void **)&pMediaControl);
                                pMediaControl->Run();
 
 
                            }
                            else
                                pBuild->Release();
 
                        }
                    }
                }
            }
        }
    }
}

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit4.h"
#include <windef.h>
#include "windows.h"
#include "dshow.h"
#include <qedit.h>
 
 
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
 
TForm4 *Form4;
//ds переменные
///////////////////////////////////////////////////////////////////////////////
    HRESULT hr;
 
    IGraphBuilder *pGraph = NULL; //менеджер графа фильтров
    ICaptureGraphBuilder2 *pBuild = NULL; //граф фильтра аудио\видео захвата
 
    IBaseFilter *pCapture = NULL; //видеофильтр
 
    ICreateDevEnum *pDevEnum = NULL;
    IEnumMoniker* pEnum = NULL;
    IMoniker* pMoniker = NULL;
 
    IMediaControl * pMediaControl(NULL);
    IMediaEventEx  * pEvent(NULL);
//grabber переменные
    IBaseFilter *pGrabberF = NULL;
    ISampleGrabber *pGrabber = NULL;
    AM_MEDIA_TYPE mt;
    BYTE *pBuffer = NULL;
///////////////////////////////////////////////////////////////////////////////
 
AnsiString path;
bool showLog = false;
//---------------------------------------------------------------------------
__fastcall TForm4::TForm4(TComponent* Owner)
    : TForm(Owner)
{
}
 
// Writes a bitmap file
//  pszFileName:  Output file name.
//  pBMI:         Bitmap format information (including pallete).
//  cbBMI:        Size of the BITMAPINFOHEADER, including palette, if present.
//  pData:        Pointer to the bitmap bits.
//  cbData        Size of the bitmap, in bytes.
 
HRESULT WriteBitmap(PCWSTR pszFileName, BITMAPINFOHEADER *pBMI, size_t cbBMI,
    BYTE *pData, size_t cbData)
{
    HANDLE hFile = CreateFile(pszFileName, GENERIC_WRITE, 0, NULL,
        CREATE_ALWAYS, 0, NULL);
    if (hFile == NULL)
    {
        return HRESULT_FROM_WIN32(GetLastError());
    }
 
    BITMAPFILEHEADER bmf = { };
 
    bmf.bfType = 'MB';
    bmf.bfSize = cbBMI+ cbData + sizeof(bmf);
    bmf.bfOffBits = sizeof(bmf) + cbBMI;
 
    DWORD cbWritten = 0;
    BOOL result = WriteFile(hFile, &bmf, sizeof(bmf), &cbWritten, NULL);
    if (result)
    {
        result = WriteFile(hFile, pBMI, cbBMI, &cbWritten, NULL);
    }
    if (result)
    {
        result = WriteFile(hFile, pData, cbData, &cbWritten, NULL);
    }
 
    HRESULT hr = result ? S_OK : HRESULT_FROM_WIN32(GetLastError());
 
    CloseHandle(hFile);
 
    return hr;
}
 
//---------------------------------------------------------------------------
void __fastcall TForm4::Button1Click(TObject *Sender)
{
    Memo1->Lines->Add("Выбран источник изображения - веб камера");
 
    Panel1->Visible = true;
    Button2->Enabled = false;
 
 
    ZeroMemory(&mt, sizeof(mt));
    mt.formattype = FORMAT_VideoInfo;
    mt.majortype = MEDIATYPE_Video;
    mt.subtype = MEDIASUBTYPE_RGB24;
 
    //Инициализируем библиотеку COM
    hr = CoInitializeEx(NULL, COINIT_APARTMENTTHREADED);
    if(SUCCEEDED(hr))
    {
        //Создание графа-фильтров - Create the Capture Graph Builder
        hr = CoCreateInstance(CLSID_CaptureGraphBuilder2, NULL, CLSCTX_INPROC_SERVER, IID_ICaptureGraphBuilder2, (void**)&pBuild );
        if (SUCCEEDED(hr))
        {
            //Создание менеджера графа фильтров - Create the Filter Graph Manager
            hr = CoCreateInstance(CLSID_FilterGraph, 0, CLSCTX_INPROC_SERVER, IID_IGraphBuilder, (void**)&pGraph);
            if (SUCCEEDED(hr))
            {
                //Initialize the Capture Graph Builder
                pBuild->SetFiltergraph(pGraph);
 
 
                // Find system device enumerator to find a video capture device.
                hr = CoCreateInstance(CLSID_SystemDeviceEnum, 0, CLSCTX_INPROC_SERVER, IID_ICreateDevEnum, (LPVOID*)&pDevEnum);
                hr = CoCreateInstance(CLSID_SampleGrabber, NULL, CLSCTX_INPROC_SERVER,IID_PPV_ARGS(&pGrabberF));
                if(SUCCEEDED(hr))
                {
 
                    //создает счетчик для определенной категории устройств
                    hr = pDevEnum->CreateClassEnumerator(CLSID_VideoInputDeviceCategory, &pEnum, 0);
 
                    if(SUCCEEDED(hr))
                    {
                        if( pEnum->Next(1, &pMoniker,0) == S_OK )
                        {
                            hr = pMoniker->BindToObject(0, 0, IID_IBaseFilter, (void **)&pCapture);
 
                            //hr = pGraph->AddFilter(pCapture, L"CaptureFilter");
                            //pGraph->RenderFile(L"D:\\Wildlife.wmv", NULL); //чтение файла - работает
 
                            if(SUCCEEDED(hr))
                            {
                                pGraph->AddFilter(pCapture, L"Capture Filter");
                                hr = pGrabberF->QueryInterface(IID_PPV_ARGS(&pGrabber));
                                hr = pGraph->AddFilter(pGrabberF, L"Sample Grabber");
 
                                hr = pBuild->RenderStream(&PIN_CATEGORY_PREVIEW, &MEDIATYPE_Video, pCapture, NULL, NULL);  //3,4,5 Параметры - фильтры, которые объединены в граф
                                hr = pBuild->RenderStream(NULL, NULL, pCapture, NULL, pGrabberF);
                                hr = pGrabber->SetMediaType(&mt);
 
                                pDevEnum->Release();
                                pEnum->Release();
                                pMoniker->Release();
 
                                // Specify the owner window.
                                IVideoWindow *pVidWin = NULL;
                                OAHWND hWnd;// = Panel1->Handle;
 
                                pGraph->QueryInterface(IID_IVideoWindow, (void **)&pVidWin);
 
                                pVidWin->put_Owner((OAHWND)Panel1->Handle);
                                pVidWin->put_WindowStyle( WS_CHILD | WS_CLIPSIBLINGS );
 
                                pVidWin->put_Left(0);
                                pVidWin->put_Top(0);
                                pVidWin->put_Width(260);
                                pVidWin->put_Height(180);
                                //pVidWin->put_Width(800);
                                //pVidWin->put_Height(600);
 
                                // Set the owner window to receive event notices.
                                pGraph->QueryInterface(IID_IMediaEventEx, (void **)&pEvent);
                                pEvent->SetNotifyWindow((OAHWND)hWnd, 0, 0);
 
                                //hr = pGrabber->SetOneShot(true);
                                hr = pGrabber->SetBufferSamples(true);
 
                                // Run the graph.
                                pGraph->QueryInterface(IID_IMediaControl, (void **)&pMediaControl);
                                pMediaControl->Run();
 
                                Memo1->Lines->Add("Запуск веб камеры");
                            }
                            else
                                pBuild->Release();
 
 
 
                        }
                    }
                }
            }
        }
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm4::Button2Click(TObject *Sender)
{
    Memo1->Lines->Add("Выбран источник изображения - из файла");
    OpenDialog1->Filter = "Изображения(*.bmp)|*.bmp|Все файлы(*.*)|*.*";
    OpenDialog1->Execute();
    path = OpenDialog1->FileName;
    if (path != "")
    {
        Image1->Picture->LoadFromFile(path);
        Memo1->Lines->Add("Загруженно изображение: " + ExtractFileName(path));
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm4::FormShow(TObject *Sender)
{
    Image1->Picture->LoadFromFile("default.bmp");
    Memo1->Clear();
    Memo1->Lines->Add("Программа запущена");
    Memo1->Visible = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm4::Button3Click(TObject *Sender)
{
    if (showLog)
    {
        Memo1->Visible = false;
        Button3->Caption = "Показать";
 
        showLog = !showLog;
    }
    else
    {
        Memo1->Visible = true;
        Button3->Caption = "Cкрыть";
        showLog = !showLog;
    }
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm4::Button4Click(TObject *Sender)
{
    // Find the required buffer size.
    long cbBuffer;
    hr = pGrabber->GetCurrentBuffer(&cbBuffer, NULL);
    pBuffer = (BYTE*)CoTaskMemAlloc(cbBuffer);
    hr = pGrabber->GetCurrentBuffer(&cbBuffer, (long*)pBuffer);
    hr = pGrabber->GetConnectedMediaType(&mt);
    // Examine the format block.
    if ((mt.formattype == FORMAT_VideoInfo) &&
        (mt.cbFormat >= sizeof(VIDEOINFOHEADER)) &&
        (mt.pbFormat != NULL))
    {
        VIDEOINFOHEADER *pVih = (VIDEOINFOHEADER*)mt.pbFormat;
 
        hr = WriteBitmap(L"1.bmp", &pVih->bmiHeader,
            mt.cbFormat - SIZE_PREHEADER, pBuffer, cbBuffer);
            int e = SIZE_PREHEADER;
        for (int x = 0; x < pVih->bmiHeader.biHeight; x++)
        {
            for (int y = 0; y < pVih->bmiHeader.biWidth; y++)
            {
                Form4->Image1->Picture->Bitmap->Canvas->Pixels[x][y] = pBuffer[e];
                e++;
            }
        }
    }
    else
    {
        // Invalid format.
        hr = VFW_E_INVALIDMEDIATYPE;
    }
}
//---------------------------------------------------------------------------