这是一个网络视频聊天软件,设计思想是从本地的摄像头获取数据后在本地界面中显示,并传给网络的另一端。
现在的问题是,当软件程序为当前活动窗口时,视频能在本地显示,并在网络中正常传输。当程序最小化或者被
其它窗口覆盖时,视频就无法在网络中传输(估计也不能在本地显示),请我为什么。
function  FrameCallBack(hWnd: HWND; lpVHdr: PVIDEOHDR): LongInt;stdcall;
var  hd:Thandle;
     jpg:TJpegImage;
     memStream :TMemoryStream;
     Bitmap:TBitmap;
     i:integer;
begin
   //将数据显在Image,
   Bitmap:=TBitmap.Create;
   Bitmap.Width :=BMPINFO.bmiHeader.biWidth;      // New size of Bitmap
   Bitmap.Height:=BMPINFO.bmiHeader.biHeight;
   hd:= DrawDibOpen;
   DrawDibDraw(hd,Bitmap.canvas.handle,0,0,BMPINFO.BmiHeader.biwidth,BMPINFO.bmiheader.biheight,@BMPINFO.bmiHeader,
                   lpVHdr^.lpData,0,0,BMPINFO.bmiHeader.biWidth,BMPINFO.bmiHeader.biheight,0);
   DrawDibClose(hd);
   //网络传输数据
   if Form1.SendFlag then
   begin
     memStream := TMemoryStream.Create;
     jpg := TJpegImage.Create;
     jpg.Assign(Bitmap);
     jpg.SaveToStream(memStream);
     i:=1;
     while memStream.Size>Form1.IdUDPC_BMP.BufferSize do
     begin
       memStream.Free;
       memStream := TMemoryStream.Create;
       jpg.CompressionQuality := 100-5*i;
       jpg.JPEGNeeded;
       jpg.Compress;
       jpg.SaveToStream(memStream);
       i:=i+1;
     end;
     jpg.Free;
   try
     //因为UDP数据包有大小限制,这里如果超出部分,就没有传输,完全可以发几次发出去
     if memStream.Size<Form1.IdUDPC_BMP.BufferSize then
          //向192.168.0.X网段广播,端口 9001
       Form1.IdUDPC_BMP.SendBuffer(HostIP,Port2,memStream.Memory^,memStream.Size)
     else
     begin
       Form1.IdUDPC_BMP.SendBuffer(HostIP,Port2,memStream.Memory^,Form1.IdUDPC_BMP.BufferSize);
     end;
   except
   end;
     memStream.Free;   end; 
   Bitmap.Free;
end;procedure  TForm1.StartCap;
begin
  CapWnd := capCreateCaptureWindow('我的窗口',
            WS_VISIBLE or WS_CHILD,//窗口样式
            0,    //X坐标
            30,    //Y坐标
            320,  //窗口宽
            240, //窗口高
            Form1.Handle, //窗口句柄
            0);    //通常为0
  if CapWnd = 0 then exit;
  //定义帧捕捉回调函数
  CapSetCallbackOnFrame(CapWnd,FrameCallBack);
  CapParms.dwRequestMicroSecPerFrame:=1;
  CapParms.fLimitEnabled:=false;
  CapParms.fCaptureAudio:=FALSE;
  CapParms.fMCIControl:=FALSE;
  CapParms.fYield:=false;
  CapParms.vKeyAbort:=VK_ESCAPE;
  CapParms.fAbortLeftMouse:=False;
  CapParms.fAbortRightMouse:=FALSE;
  //让设置生效
  CapCaptureSetSetup(capWnd,@CapParms,sizeof(TCAPTUREPARMS));
  CapPreviewRate(capWnd,1);  //设置预览视频的频率
  CapCaptureSequenceNoFile(capWnd); //如果要捕获视频流,则要使用函数来指定不生成文件,不然会自动生成AVI文件
  CapDriverConnect(CapWnd,0);  //连接摄像头设备,第二个参数是个序号,当系统中装有多个显示驱动程序时,其值分别依次为0到总个数如果有多个摄像头,那么就是0->1->2
  capGetVideoFormat(capWnd, @BMPINFO,sizeof(TBitmapInfo)); //取得视频图像数据头
  CapPreviewScale(capWnd,TRUE); //是否缩放
  CapOverlay(capWnd,true); //指定是否使用叠加模式,true为使用,否则为false
  CapPreview(capWnd,true);end;