首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > C++ Builder >

摄像头录像怎才能后台运行,该如何处理

2012-04-22 
摄像头录像怎才能后台运行一段开启摄像头的代码(BCB)- -虽然简单,但还算实用,大家将就着用吧,至于视频录像

摄像头录像怎才能后台运行
一段开启摄像头的代码(BCB)- -
虽然简单,但还算实用,大家将就着用吧,
至于视频录像以及网络传输的大家慢慢改吧, 用来做木马还算不错....^_&
//---------------------------------------
// 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);
  }
}
//---------------------------------------
来自
http://jzchddj.bokee.com/2717209.html


上面这个例子录像时,窗口变为活动(当前)时录像正确,变为非活动(后台)时录像是切换窗口前的图像,怎么才能让它继续最新的画面. 谢谢!

[解决办法]
vfw?不了解,帮顶了,可以考虑directshow。
[解决办法]
现在都是用directx了或opengl
[解决办法]
做成服务程序,把得到的数据,在私下做成图片文件传送.

不要用他的显示或录像啊.(可能他那边一显示就直接跳出一个界面播放,那还偷什么看什么啊.)

呵呵,我也推一个OPENCV吧,这里面也有视频头的程序.
[解决办法]
学习
[解决办法]
最近在用DirectShow做这方面 的东西
[解决办法]
用directshow,我就刚用这个做了个录屏和录像的软件。把程序隐藏就行了。
[解决办法]
呵呵, 看不懂
[解决办法]
mark

热点排行