Вывод в Image в DirectShow

#include <jpeg.hpp>
...
void __fastcall TForm_Camera::FormKeyPress(TObject *Sender, System::WideChar &Key)
{
    if(Key == 0x0437) {
        HDC hdc = GetDC(Handle);
        if(hdc) {
            Graphics::TBitmap* bmp = new Graphics::TBitmap();
            __try {
                int W = ClientWidth;
                int H = ClientHeight;
                bmp->Width = W;
                bmp->Height = H;
                BitBlt(bmp->Canvas->Handle, 0, 0, W, H, hdc, 0, 0, SRCCOPY);
                TJPEGImage* jpg = new TJPEGImage();
                __try {
                    jpg->Assign(bmp);
                    jpg->CompressionQuality = 65;
                    jpg->SaveToFile("C:\\1.jpg");
                } __finally {
                    delete jpg;
                };
            } __finally {
                delete bmp;
            };
        };
    }
}

void __fastcall TForm_Camera::FormDblClick(TObject *Sender)
{
    //STEP 1: Create capture window
    HWND hwndParent = Handle;
    hWndC = capCreateCaptureWindow(NULL, WS_CHILD|WS_VISIBLE, 0, 0, 640, 480, hwndParent, 0);
    //STEP 1.5: Set callback function                                                                                              
    capSetCallbackOnFrame(hWndC, &FrameCallbackProc);                 //(=*))
    //STEP 2: Connect to a capture device
    capDriverConnect(hWndC, 0);
 
    // OPTIONAL STEP: Setup frame rate
    CAPTUREPARMS CaptureParms;
    float FramesPerSec = 30.0;
    capCaptureGetSetup(hWndC, &CaptureParms, sizeof(CAPTUREPARMS));
    CaptureParms.dwRequestMicroSecPerFrame = (DWORD)(1.0e6/FramesPerSec);
    capCaptureSetSetup(hWndC, &CaptureParms, sizeof(CAPTUREPARMS));
 
    // OPTIONAL STEP: Setup resolution
    //    BITMAPINFO psVideoFormat;
    //capGetVideoFormat(hWndC, &psVideoFormat,sizeof(psVideoFormat));
    //psVideoFormat.bmiHeader.biWidth = 640;
    //psVideoFormat.bmiHeader.biHeight = 480;
    //    capSetVideoFormat(hWndC, &psVideoFormat,sizeof(psVideoFormat));
    capDriverDisconnect(hWndC); //, 0);//Can we do better?
    capDriverConnect(hWndC, 0);
 
    //STEP 3: Setup the preview window size
    CAPSTATUS CapStatus;
    capGetStatus(hWndC, &CapStatus, sizeof(CAPSTATUS));
    ::SetWindowPos(hWndC, NULL, 0, 0, 
                               CapStatus.uiImageWidth, CapStatus.uiImageHeight, 
                               SWP_NOZORDER|SWP_NOMOVE);
 
    //STEP 4: Previewing video
    capPreview(hWndC, TRUE);       // start preview
    capPreviewRate(hWndC, 30);     // rate, in milliseconds, the frame rate here is just for preview window, not for capturing
    capPreviewScale(hWndC, TRUE);
    //PostMessage(hWndC, WM_CAP_DLG_VIDEOSOURCE, 0, 0);                         //Options
}
//---------------------------------------------------------------------------
 
LRESULT PASCAL TForm_Camera::FrameCallbackProc(HWND hWnd, LPVIDEOHDR lpVHdr)
{
    if (!hWnd)
        return FALSE;
    BITMAPINFO m_BitmapInfo;
    capGetVideoFormat(hWnd, &m_BitmapInfo, capGetVideoFormatSize(hWnd));
    UINT *pPixels = 0;
 
    HDC hDC = CreateCompatibleDC(::GetDC(hWnd));
 
    HBITMAP hBitmap = CreateDIBSection(hDC, (BITMAPINFO *)&m_BitmapInfo, DIB_RGB_COLORS, (void **)&pPixels, NULL, 0);
    SetBitmapBits(hBitmap, m_BitmapInfo.bmiHeader.biSizeImage, lpVHdr->lpData);
 
    HDC new_hDC = CreateCompatibleDC(::GetDC(hWnd));
    SelectObject(new_hDC, hBitmap);
 
    TRect fRect;
    ::GetWindowRect(hWnd, &fRect);
    TBitmap *pic = new TBitmap();
    pic->Height = fRect.Height();
    pic->Width = fRect.Width();
        //Now we get horizontal-reversed frame in pic:
    BitBlt(pic->Canvas->Handle, 0, 0, fRect.Width(), fRect.Height(), new_hDC, 0, 0, SRCCOPY); 
    TBitmap *rev_pic = new TBitmap();                      
    rev_pic->Height = fRect.Height();
    rev_pic->Width = fRect.Width();
    Form_Camera->ReverseHor((pic, rev_pic);                                   //Very slow,
    rev_pic->SaveToFile("C:\\1.jpg");                                         //but done!
    DeleteDC(hDC);
    DeleteDC(new_hDC);
    return (LRESULT) TRUE;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm_Camera::ReverseHor(TBitmap *Pic, TBitmap *ResPic)
{
    auto H = Pic->Height;
    for(register x = 0; x < Pic->Width; x++) {
        for(register y = 0 ;y < H; y++) {
            ResPic->Canvas->Pixels[x][H-1-y] = Pic->Canvas->Pixels[x][y];
        }
    }
}

StretchBlt(pic->Canvas->Handle, 0, fRect.Height(), 
           fRect.Width(), -fRect.Height(), 
           new_hDC, 0, 0, 
           fRect.Width(), fRect.Height(), 
           SRCCOPY);