用VideoCap1控件拍照图压缩问题!-CSDN论坛

用VideoCap1控件拍照图压缩问题!

Delphi > VCL组件开发及应用

收藏回复

[问题点数：37分，结帖人yangzong20]

⋅一个jquery easyui后台返回值问题？ ⋅如何抛出触发事件里的异常信息？ ⋅一个触发器的问题，在线等待急...... 更多帖子 关注私信空间博客 yangzong20 等级 本版专家分：0 结帖率 98.33%: 我用VideoCap1控件做了个摄像头拍照，拍照的图片会自动生成在程序的根目录“Capture.bmp”,但是我发现这个图片太大了，居然有900K,我想在保存图片的时候把尺寸缩小原来的十分之一，把图片大小控制在90k左右，我改如何实现呢？麻烦各位大哥帮小弟看看，万分感谢！

以下是拍照事件的原代码

procedure TForm2.Button1Click(Sender: TObject);
Var
bmp: TBitmap;
strfilename:String;
begin
  inherited;
  strfilename:=extractfilepath(Application.ExeName);
  begin
       if not  VideoCap1.SaveAsDIB then
        begin
          ShowMessage('拍摄照片失败');
          Abort;
        end;
  end;

2012-03-30 14:51:12

点赞只看楼主引用举报楼主收起

展开阅读全文

⋅一个jquery easyui后台返回值问题？ ⋅如何抛出触发事件里的异常信息？ ⋅一个触发器的问题，在线等待急...... 更多帖子 关注私信空间博客 yangzong20 等级 本版专家分：0: 麻烦各位大哥帮帮忙呀，小弟谢谢了

2012-03-30 15:14:09

点赞只看TA 引用举报 #1得分 0

⋅春节恭贺贴（三）。。。。。。。。。。。 ⋅春节恭贺贴（二）。。。。。。。。。。。 ⋅春节恭贺贴（一）。。。。。。。。。。。 更多帖子 关注私信空间博客 babydog01 等级 本版专家分：14003: http://blog.csdn.net/xwchen/article/details/1799037

2012-03-30 15:40:18

点赞只看TA 引用举报 #2得分 7

⋅春节恭贺贴（三）。。。。。。。。。。。 ⋅春节恭贺贴（二）。。。。。。。。。。。 ⋅春节恭贺贴（一）。。。。。。。。。。。 更多帖子 关注私信空间博客 babydog01 等级 本版专家分：14003: 我替你在BAIDU上搜的，应该就是这个，试着改变宽和高（edit1,edit2）看一下文件大小就可以了。

2012-03-30 15:43:07

点赞只看TA 引用举报 #3得分 7

⋅小白求指点

⋅纯散分感觉做技术没出路啊

⋅熟悉的朋友帮忙看看

更多帖子

关注私信空间博客

SVIP_

等级

本版专家分：1497

勋章

签到新秀: bmp是有点大, 你转一下jpg就好了

2012-03-30 23:09:07

点赞只看TA 引用举报 #4得分 7

⋅再谈英巴卡迪诺中国代理商的钓鱼、欺诈、销售手段 ⋅检查RS232(串口)是否接有设备 ⋅C代码求翻译成DELPHI的(功能是双击外部进程中的TREEVIEW节点) 更多帖子 关注私信空间博客 faunaq 等级 本版专家分：404

转成JPG格式储存。

现成的过程代码发给你：



Procedure pic_bmptojpg(Const FileName: String;SaveFileName:String='');

Var

Bitmap: TBitmap;

JPeg: TJPegImage;

Begin

Bitmap := Nil;

JPeg := Nil;

Try

    Bitmap := TBitmap.Create;

    Bitmap.LoadFromFile(FileName);

    JPeg := TJPegImage.Create;

    JPeg.Assign(Bitmap);

    IF Trim(SaveFileName)='' Then

      JPeg.SaveToFile(ChangeFileExt(FileName, '.jpg'))

    Else

      JPeg.SaveToFile(SaveFileName);

Finally

    FreeAndNil(Bitmap);

    FreeAndNil(JPeg);

End;

End;

2012-03-31 12:38:15

点赞只看TA 引用举报 #5得分 8

也可以随便在保存成JPG之前，修改分辨率尺寸小一点。



{********************************************

描述： 修改bmp文件大小

参数介绍

Source:要修改的bmp文件位置（包括路径）

Dest: 修改后保存的位置。

X,Y:   修改后的大小

********************************************}

procedure TdqcFunction.Image_FitBitmap(const Source,Dest:string;const x,y:integer);

var

abmp,bbmp:tbitmap;

scalex,scaley:real;

begin

abmp:=tbitmap.Create;

bbmp:=tbitmap.Create;

try

    abmp.LoadFromFile(Source);

    scaley:=abmp.Height/y;

    scalex:=abmp.Width/x;

    bbmp.Width:=round(abmp.Width/scalex);

    bbmp.Height:=round(abmp.Height/scaley);

    bbmp.PixelFormat:=pfDevice;

    SetStretchBltMode(bbmp.Canvas.Handle,COLORONCOLOR);

    stretchblt(bbmp.Canvas.Handle,0,0,bbmp.Width,bbmp.Height,abmp.Canvas.Handle,0,0,abmp.Width,abmp.Height,srccopy);

    bbmp.SaveToFile(Dest);

finally

   abmp.Free;

   bbmp.Free;

end;

end;

2012-03-31 12:51:43

点赞只看TA 引用举报 #6得分 8

收起

收藏回复

yangzong20

等级：

关注私信 TA的帖子

纯干货！视频控件VideoCapX的使用指南和常见问题合集: VideoCapX控件可使开发者轻松地在数字视频撷取卡和相机中添加应用程序。不论你是创建多媒体播放器，数字录像机，电视协调器，网络摄像机，网络安全性程序、...本文主要介绍了VideoCapX的使用指南和常见问题。目前Video

视频控件VideoCapX的使用指南和常见问题合集: VideoCapX控件可使开发者轻松地在数字视频撷取卡和相机中添加应用程序。不论你是创建多媒体播放器，数字录像机，电视协调器，网络摄像机，网络安全性程序、身份证数据库、工业监视系统、还是医学成像设备，VideoCapX...

自定义使用AVCaptureSession 拍照，摄像，载图总结: 转自：... [IOS开发]拍照，摄像，载图总结 1 建立Session 2 添加 input 3 添加output 4 开始捕捉 5 为用户显示当前录制状态 6 捕捉 7 结束捕捉 8 参考 1 建立Session 1.1 声明session ...

解决"cvCreateVideoWriter保存视频帧压缩格式只能用-1"的问题: cvCreateVideoWriter函数的说明创建视频文件写入器typedef struct CvVideoWriter...CvVideoWriter* cvCreateVideoWriter( const char* filename, int fourcc, double fps, CvSize frame_size, int is_color=1 );filena

c# 摄像头录像及视频保存压缩等: 来自于网络： using System; using System.Collections.Generic; using System.Linq; using System.Text; using System.Drawing; using System.Runtime.InteropServices;...using Syste

做自己的安卓拍照应用，其实很简单: 做自己的安卓拍照应用，其实很简单

C# 如何用摄像头抓取图像,如何把图像保存到硬盘: using System;using System.Runtime.InteropServices;using System.Drawing;using System.Drawing.Imaging;namespace WeightSystem{　/// /// 一个控制摄像头的类　/// public class Pick { private const

摄像头录像及视频保存压缩: c# 摄像头录像及视频保存压缩等收藏 using System; using System.Collections.Generic; using System.Linq; using System.Text; using System.Drawing; using System....

c# 调用摄像头进行视频录制和压缩等: using System; using System.Collections.Generic; using System.Linq; using System.Text; using System.Drawing; using System.Runtime.InteropServices; using System.Threading;...using System.Win

linux环境下使用V4L2及Qt设计简易照相机: 之后在网上找了找参考资料，发现需要用到V4L2还有其他的一些东西，就研究了几天，最后好在让我做出来了，于是就写了这篇博客，也当作是完整梳理一下思路和留作以后的参考，其中包含了我遇到的问题及解决办法。

C#操作摄像头: 在出现问题时，用户可以通过监控系统查找原因。下面的几个实例分别实现了摄像头监控与定时监控的功能。实例425　简易视频程序实例说明利用普通的简易摄像头，通过C#语言即可开发成简易视频程序。本实例利用...

使用VFW在windows下编程控制摄像头【转360doc】: Microsoft® Video for Windows® (VFW)提供的函数可以让应用程序去处理视频数据。 VFW 在16位Windows的时候就被引入了。它的许多重要功能已经被DirectX取代了。要获得更多的信息，你可以参考DirectX 的文档。 ...

DSPack初次使用小结: 本来想用TvideoCap的方法操作电脑摄像头，如以下是打开摄像头代码，能在XP和2003系统里能正常打开摄像头，但在win7里总是出各种问题， const WM_CAP_START = WM_USER; const WM_CAP_STOP = WM_CAP_START + 68; ...

【转】上千个扩展名: AAM Authorware shocked文件 AAS Authorware shocked包 ABF Adobe二进制屏幕字体 ABK CorelDRAW自动备份文件 ABS 该类文件有时用于指示一个摘要（就像在一篇有关科学方面的文章的一个摘要或概要，取自abstra

最全最全的文件扩展名: A 对象代码库文件 AAM Authorware shocked文件 AAS Authorware shocked包 ABF Adobe二进制屏幕字体 ABK CorelDRAW自动备份文件 ...ACE Ace压缩档案格式 ACL CorelDRAW 6键盘快捷键文件

windows下编程控制摄像头的详细介绍: 这段时间闲来无事，看了看MSDN的文档，自己翻译了一下。一是为了学习，二是对空闲时间的打发。所以也希望大家在拍砖的同时，尊重我的劳动，如要转贴请注明转至blog.csdn.net/suntaoznz。谢谢！

文件后缀大全: 好不容易收集来的，希望对大家有点作用

常见文件扩展名及简要说明: 常见文件扩展名及简要说明 A 对象代码库文件 AAM Authorware shocked文件 AAS Authorware shocked包 ABF Adobe二进制屏幕字体 ...ABK CorelDRAW自动备份文件 ...ACE Ace压缩档案格式 ACL Co

文件扩展名大全: 这些数据文件都有一些特定的扩展名，比如Word文件的扩展名是doc，扩展名为pdf的文件可以使用Acrobat Reader打开。但是现在存在的扩展名何止千万。读者如何能够随心所欲的知道某一个文件应该如何

常见文件扩展名和它们的说明: 常见文件扩展名和它们的说明 A 对象代码库文件 AAM Authorware shocked文件 AAS Authorware shocked包 ABF Adobe二进制屏幕字体 ABK CorelDRAW自动备份文件 ...ACE Ace压缩档案格式 ACL Co

文件后缀名大全: CA　Microsoft的代理使用的角色文档 acf　系统管理配置 acm　音频压缩管理驱动程序,为Windows系统提供各种声音格式的编码和解码功能 aif　声音文件，支持压缩，可以使用Windows Media Player和QuickTime ...

文件扩展名: 1楼 A 对像代码库文件 AAM Authorware shocked文件 AAS Authorware shocked包 ABF Adobe二进制屏幕字体 ABK CorelDRAW自动备份文件 ABS 该类文件有时用于指示一个摘要（就像在一篇有关科学...

文件类型一共有多少种?后缀又有多少？用什么打开？看了下面的文档就全搞定了: A ACE：Ace压缩档案格式 ACT：Microsoft office助手文件 AIF，AIFF：音频互交换文件，Silicon Graphic and Macintosh应用程序的声音格式 ANI：Windows系统中的动画光标 ARC：LH ARC的压缩档案文件 ARJ：...

各种格式的文件用什么软件打开: 各种格式的文件用什么软件打开各种格式的文件用什么软件打开（并非绝对） ai 用adobe illustratorape 用foorbar2000 cdr 用coreldrawcda 用cd播放软件ceb 用方正公司Apabi Readercaj，kdh 用cajviewer doc，...

c# 全套视频: 100G ，学习的时候抽部分来看，效果很好

太空人表盘 html: 用html写了一个最近挺火的太空人表盘

STM32控制舵机任意角度转动（0--180度 MG995舵机）: 本程序为keil MDK创建的工程，适用于STM32F1系列的芯片，根据角度计算公式，控制舵机任意角度转动（0--180度 MG995舵机）。

基于卷积神经网络的手势识别: Python+CNN+Tensorflow识别手势，目前做到了0-7的手势。文件为源代码和训练集。主要是调用OpenCV，预处理的主要步骤为：去噪 -> 肤色检测 -> 二值化 -> 形态学处理 -> 轮廓提取，其中最麻烦的两项为肤色检测和轮廓提取。去噪音：使用双边滤波器，该滤波器考虑了图像的空间关系，也考虑图像的灰度关系。双边滤波同时使用了空间高斯权重和灰度相似性高斯权重，确保了边界不会被模糊掉。然后，肤色检测和二值化处理采用YCrCb颜色空间的Cr分量+Otsu法阈值分割算法针对YCrCb中Cr分量的处理，对CR通道单独进行Otsu处理，Otsu方法opencv里用threshold，Otsu算法是对图像的灰度级进行聚类。

Python 3.9 安装包: Python是一种编程语言，可让您快速工作无论您是编程新手还是经验丰富的开发人，都可以轻松学习和使用Python

ASCII码一览表，ASCII码对照表.pdf: ASCII码一览表，ASCII码对照表 ASCII码一览表，ASCII码对照表 ASCII码一览表，ASCII码对照表

相关热词 c#网络摄像头图像处理 c#代码设置excel c#怎么调用api接口 c#扩展函数 c# 调用接口 c# 测试并发 c# 如何提交地址 c#　反射转　原码 c#mvc项目 c# 示例长连接