简单的启动摄像头的程序

虽然简单,但还算实用,大家将就着用吧, 至于视频录像以及网络传输的大家慢慢改吧, 用来做木马还算不错....^_& //--------------------------------------------------------------------------- // author: ZwelL // http://www.donews.net/zwell/ //--------------------------------------------------------------------------- #include #pragma hdrstop #include "Unit1.h" #include "vfw.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; HWND hWndC; CAPDRIVERCAPS CapDrvCaps; CAPSTATUS CapStatus; //--------------------------------------------------------------------------- //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) -----------------/////表单部分------------------------------------ : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::FormShow(TObject *Sender) { char szDeviceName[80]; char szDeviceVersion[80]; for (int wIndex = 0; wIndex < 10; wIndex++) { if (capGetDriverDescription (wIndex, szDeviceName, sizeof (szDeviceName), szDeviceVersion, sizeof (szDeviceVersion))) { ComboBox1->Items->Add(szDeviceName); } } if(ComboBox1->Items->Count>0) ComboBox1->ItemIndex=0; else { ShowMessage("没有找到视频软件"); Close(); } Button1Click(NULL); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { hWndC = capCreateCaptureWindow ( (LPSTR) "My Capture Window", // window name if pop-up WS_CHILD | WS_VISIBLE, // window style 0, 0, 160, 120, // window position and dimensions (HWND)Panel2->Handle, //(HWND)Application->Handle,//(HWND) hwndParent, ComboBox1->ItemIndex+1); //(int) nID /* child ID */); //连接设备： capDriverConnect(hWndC,0); capPreviewRate(hWndC, 50); // rate, in milliseconds capPreview(hWndC, TRUE); // starts preview //获取视频驱动相关性能 capDriverGetCaps(hWndC, &CapDrvCaps, sizeof (CAPDRIVERCAPS)); //获取捕获窗口状态 capGetStatus(hWndC, &CapStatus, sizeof (CAPSTATUS)); SetWindowPos(hWndC, NULL, 0, 0, CapStatus.uiImageWidth, CapStatus.uiImageHeight, SWP_NOZORDER | SWP_NOMOVE); } //--------------------------------------------------------------------------- void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action) { if(hWndC) { capPreview(hWndC, FALSE); // starts preview capDriverDisconnect (hWndC); } } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { // Video format dialog box. if (CapDrvCaps.fHasDlgVideoFormat) { capDlgVideoFormat(hWndC); // Are there new image dimensions? capGetStatus(hWndC, &CapStatus, sizeof (CAPSTATUS)); SetWindowPos(hWndC, NULL, 0, 0, CapStatus.uiImageWidth, CapStatus.uiImageHeight, SWP_NOZORDER | SWP_NOMOVE); } } //--------------------------------------------------------------------------- void __fastcall TForm1::Button3Click(TObject *Sender) { // Video source dialog box. if (CapDrvCaps.fHasDlgVideoSource) capDlgVideoSource(hWndC); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button4Click(TObject *Sender) { //设置相关参数 CAPTUREPARMS CaptureParms; float FramesPerSec = 30.0; capCaptureGetSetup(hWndC, &CaptureParms, sizeof(CAPTUREPARMS)); CaptureParms.dwRequestMicroSecPerFrame = (DWORD) (1.0e6 / FramesPerSec); capCaptureSetSetup(hWndC, &CaptureParms, sizeof (CAPTUREPARMS)); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button5Click(TObject *Sender) { //设置预览时的比例 capPreviewScale(hWndC, 1); //设置预览时的帧频率 capPreviewRate(hWndC,66); //如果要捕获视频流，则要使用函数指定不生成文件。否则将会自动生成AVI文件 capCaptureSequenceNoFile(hWndC); //指定是否使用叠加模式，使用为1，否则为0 capOverlay(hWndC, 1); //Video display dialog box. if (CapDrvCaps.fHasDlgVideoDisplay) capDlgVideoDisplay(hWndC); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button6Click(TObject *Sender) { if(SaveDialog2->Execute()) capFileSaveDIB( hWndC, (SaveDialog2->FileName+".bmp").c_str() ); //截取当前帧 } //--------------------------------------------------------------------------- void __fastcall TForm1::Button7Click(TObject *Sender) { if(Button7->Caption == "开始捕获") { if(SaveDialog1->Execute()) { // Set up the capture operation. capCaptureSequence(hWndC); // Capture. capFileSaveAs(hWndC, (SaveDialog1->FileName+".avi").c_str());//视频 } Button7->Caption="停止捕获"; } else { Button7->Caption="开始捕获"; capCaptureStop(hWndC); } } //---------------------------------------------------------------------------