Видео чат

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    if (cameraOn == true)
    {
        void *P;
        int Size = 0;
        TMemoryStream *temp = new TMemoryStream ;
        Graphics::TBitmap *Bitmap;
 
        if (!hWndCam)return;
 
        capEditCopy(hWndCam);
        Bitmap = new Graphics::TBitmap;
        Bitmap->Assign(Clipboard());
        Bitmap->SaveToStream(temp);
        Bitmap->ReleaseHandle();
        delete Bitmap;
        Bitmap = NULL;
        Clipboard()->Clear();
        CloseClipboard();
        Form1->ClientSocket3->Socket->SendText(Form1->CBToWhom->Text+"#"+Form1->EWho->Text+"/" +IntToStr(temp->Size) + "#" + "yyy");
        temp->Position = 0 ;
        P = temp->Memory ;
        Form1->ClientSocket3->Socket->SendBuf(P,temp->Size);
        temp->Clear();
    }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button7Click(TObject *Sender)  // knopka ON
{
    hWnd=Form1->Panel1->Handle;
    hWndCam=capCreateCaptureWindow("HAHA", WS_CHILD | WS_VISIBLE, 0,0,
    Form1->Panel1->Width, Form1->Panel1->Height ,hWnd,1);
    capDriverConnect(hWndCam, 0);
    capPreviewRate(hWndCam, 66);
    capPreview(hWndCam, true);
    cameraOn = true;
    Timer1->Interval = interval * 1000;
    Timer1->Enabled = true;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button8Click(TObject *Sender) // knopka OFF
{
    capCaptureStop(hWndCam);
    capDriverDisconnect(hWndCam);
    SendMessage(hWndCam, WM_CLOSE, 0,0L);
    cameraOn = false;
}