Как получить изображение с веб-камеры

capDriverConnect (hWndC,0);

capDriverConnect (hWndC,0);
// выдаёт ошибку
External exception C0000008

__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
hWndC=capCreateCaptureWindow("",WS_CHILD,  this->Left,
                                                this->Top,
                                            Image1->Width,
                                            Image1->Height,
                                            this->Handle,
                                            11011);capDriverConnect (hWndC,0);
 
 
 
 Timer1->Enabled=true;
}

hWndC=capCreateCaptureWindow("",WS_CHILD, this->Left,
                                          this->Top,
                                          this->Width,
                                          this->Height,
                                          this->Handle, 11011);
capDriverConnect (hWndC,0);

   CvCapture* capture = cvCreateCameraCapture(CV_CAP_ANY); //cvCaptureFromCAM( 0 );
   assert( capture );
 
   IplImage* frame = 0;
 
   cvNamedWindow("capture", CV_WINDOW_AUTOSIZE);
   int counter = 0;
   char filename[ 512 ];
 
   while( true )
   {
      frame = cvQueryFrame( capture );
 
      cvShowImage("capture", frame);
 
      char c = cvWaitKey(33);
      if( c == 27 ) // ESC
      {
         break;
      }
      else
         if( c == 13 )  // Enter
         {
            cvSaveImage(filename, frame);
            counter++;
         }
   }
   cvReleaseCapture( &capture );
   cvDestroyWindow("capture");

#define WIDTHBYTES(bits) ((((bits) + 31) / 32) * 4)
void  APIDrawIpl(int x,int y,IplImage* _Grab,void *HANDLE);
HBITMAP CreateRGBBitmap( IplImage* _Grab );
 
...........
 
//---------------------------------------------------------------------------
CvCapture *capture;
IplImage *frame = 0, *frame_copy = 0;
int counter = 0;
char filename[ 512 ];
void __fastcall TFormOptions::Button7Click(TObject *Sender)
{
   Timer1->Enabled = !Timer1->Enabled;
   if( Timer1->Enabled )
   {
      capture = cvCreateCameraCapture( CV_CAP_ANY );
      assert( capture );
   }
   else
   {
      cvReleaseCapture( &capture );
   }
}
//---------------------------------------------------------------------------
 
void __fastcall TFormOptions::Timer1Timer(TObject *Sender)
{
   frame = cvQueryFrame( capture );
   if( !frame_copy )
      frame_copy = cvCreateImage(   cvSize( ScrollBox3->Width, ScrollBox3->Height ),
                                               IPL_DEPTH_8U, frame->nChannels );
   cvResize( frame, frame_copy, CV_INTER_LINEAR );
   APIDrawIpl( 0, 0, frame_copy, FormOptions->ScrollBox3->Handle );
}
//---------------------------------------------------------------------------
HBITMAP CreateRGBBitmap( IplImage* _Grab )
{
   char *App;
   IplImage *_Grab3=0,*_Grabf=0;
 
   LPBITMAPINFO lpbi = new BITMAPINFO;
 
   lpbi->bmiHeader.biSize = sizeof(BITMAPINFOHEADER);
   lpbi->bmiHeader.biWidth = _Grab->width;
   lpbi->bmiHeader.biHeight =_Grab->height;
   lpbi->bmiHeader.biPlanes = 1;
   lpbi->bmiHeader.biBitCount = 24;
   lpbi->bmiHeader.biCompression = BI_RGB;
   lpbi->bmiHeader.biSizeImage = WIDTHBYTES((DWORD)_Grab->width * 8) * _Grab->height;
   lpbi->bmiHeader.biXPelsPerMeter = 0;
   lpbi->bmiHeader.biYPelsPerMeter = 0;
   lpbi->bmiHeader.biClrUsed = 0;
   lpbi->bmiHeader.biClrImportant = 0;
 
   void* pBits;
   HBITMAP hBitmap = CreateDIBSection( NULL, lpbi, DIB_RGB_COLORS,
                                           (void **)&pBits, NULL, 0 );
   delete lpbi;
 
   if( hBitmap )
      App = (char*)pBits;
 
   if( _Grab->depth != IPL_DEPTH_8U )
   {
      _Grabf = cvCloneImage( _Grab );
      if( _Grab )
      {
         cvReleaseImage( &_Grab );
      }
        _Grab = cvCreateImage( cvSize( _Grabf->width, _Grabf->height ), IPL_DEPTH_8U, _Grabf->nChannels );
        cvConvert(_Grabf,_Grab);
        if( _Grabf )
      {
         cvReleaseImage( &_Grabf );
      }
   }
 
   if( _Grab->nChannels == 1 )
   {
      _Grab3 = cvCreateImage( cvSize(_Grab->width,_Grab->height),IPL_DEPTH_8U,3);
      cvMerge(_Grab,_Grab,_Grab,NULL,_Grab3);
   }
 
   if( _Grab->nChannels == 3 )
   {
      _Grab3 = _Grab;
   }
 
   unsigned char* data;
   cvGetRawData( _Grab3, (uchar**)&data );
 
   if( _Grab3 )
   {
      for( int i = 0; i < _Grab->height; i ++ )
      {
         memcpy(App+_Grab3->widthStep*(_Grab3->height-i-1),data+_Grab3->widthStep*i,_Grab3->width*3);
      }
   }
 
   if( _Grab->nChannels == 1 )
   {
      cvReleaseImage( &_Grab3 );
   }
 
   return hBitmap;
}
//----------------------------------------------------------------------------------
void  APIDrawIpl( int x, int y, IplImage* _Grab, void *HANDLE )
{
   HDC hMemDC,hDC;
   hDC = GetDC( HANDLE );
   hMemDC = CreateCompatibleDC( hDC );
   HBITMAP Bitmap = CreateRGBBitmap( _Grab );
   SelectObject( hMemDC, Bitmap );
   BitBlt( hDC, x, y, _Grab->width, _Grab->height, hMemDC, 0, 0, SRCCOPY );
 
   DeleteObject( Bitmap );
   DeleteDC( hMemDC );
   DeleteDC( hDC );
}
//---------------------------------------------------------------------------
void __fastcall TFormOptions::FormClose(TObject *Sender,
      TCloseAction &Action)
{
   if( Timer1->Enabled )
   {
      Timer1->Enabled = false;
      cvReleaseCapture( &capture );
   }
}
//---------------------------------------------------------------------------