Delphi TvideoGrabber对USB摄像头的图像不清晰,一晃摄像头,图像就模糊,该怎么设置
1条回答 默认 最新
关注 Delphi实现屏幕截图、窗口截图、指定区域截图
这个你可以参考参考
Use Jpeg procedure TForm1.snapscreen(a,b,c,d:Integer); var bmpscreen:Tbitmap; jpegscreen:Tjpegimage; FullscreenCanvas:TCanvas; dc:HDC; sourceRect, destRect: TRect; begin try dc:=getdc(0); fullscreencanvas:=Tcanvas.Create; fullscreencanvas.Handle:=dc; bmpscreen:=Tbitmap.create; bmpscreen.Width :=c-a; bmpscreen.Height :=d-b; sourcerect:=rect(0,0,c-a ,d-b ); destrect:= rect(a,b,c,d); bmpscreen.Canvas.CopyRect(sourcerect,fullscreenCanvas,destrect); jpegscreen:=Tjpegimage.Create ; jpegscreen.Assign (bmpscreen); jpegscreen.CompressionQuality:=100; jpegscreen.SaveToFile(ExtractFilePath(ParamStr(0))+'tmp.jpg'); FullscreenCanvas.Free; bmpscreen.Free; jpegscreen.Free ; ReleaseDC(0, DC); except end; end; <br data-filtered="filtered"> procedure TForm1.Button1Click(Sender: TObject); begin snapscreen(self.Left,self.Top,Self.Left+self.Width,Self.Top+self.Height); end;
解决 无用评论 打赏 举报
悬赏问题
- ¥15 数据量少可以用MK趋势分析吗
- ¥15 使用VH6501干扰RTR位,CANoe上显示的错误帧不足32个就进入bus off快慢恢复,为什么?
- ¥15 大智慧怎么编写一个选股程序
- ¥100 python 调用 cgps 命令获取 实时位置信息
- ¥15 两台交换机分别是trunk接口和access接口为何无法通信,通信过程是如何?
- ¥15 C语言使用vscode编码错误
- ¥15 用KSV5转成本时,如何不生成那笔中间凭证
- ¥20 ensp怎么配置让PC1和PC2通讯上
- ¥50 有没有适合匹配类似图中的运动规律的图像处理算法
- ¥15 dnat基础问题,本机发出,别人返回的包,不能命中