这是一个网络视频聊天软件,设计思想是从本地的摄像头获取数据后在本地界面中显示,并传给网络的另一端。
现在的问题是,当软件程序为当前活动窗口时,视频能在本地显示,并在网络中正常传输。当程序最小化或者被
其它窗口覆盖时,视频就无法在网络中传输(估计也不能在本地显示),请我为什么。
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;
现在的问题是,当软件程序为当前活动窗口时,视频能在本地显示,并在网络中正常传输。当程序最小化或者被
其它窗口覆盖时,视频就无法在网络中传输(估计也不能在本地显示),请我为什么。
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;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货