双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

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

2012-03-30 02:51:12 310 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

yangzong20 墨衍会员 · AI 创作全网分发关注 + 加入社区

EEVDF调度算法核心实现解析（一）本文深入解析Linux kernel 6.6引入的EEVDF调度算法核心实现，详细讲解其基于虚拟截止时间（virtual deadline）的进程挑选机制和红黑树优化设计。通过代码实例展示算法如何平衡系统响应速度与公平性，特别适合需要优化Linux系统性能的开发者参考。阅读详情

我用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;

...全文

Delphi环境下基于DSP控件的摄像头拍照实现（支持Delphi 7与Windows 7）在“Project → Options”中设置目标路径、调试信息输出及条件编译符号（如DEBUG），便于多环境构建。启用“Build with debugging information”可提升后期排查效率。在Delphi 7中集成DSP控件，常见方式有两种：一是通过静态链接的方式将控件编译进项目；二是采用动态加载DLL的方式实现运行时调用。前者适合功能固定、性能要求高的场景；后者则便于升级维护，支持多设备适配。在主窗体上放置TImage控件作为预览区域，其Stretch属性设为。阅读详情

yangzong20

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

faunaq 2012-03-31

打赏
举报

也可以随便在保存成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;

faunaq 2012-03-31

打赏
举报

转成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;

SVIP_ 2012-03-30

打赏
举报

bmp是有点大, 你转一下jpg就好了

babydog01 2012-03-30

打赏
举报

我替你在BAIDU上搜的，应该就是这个，试着改变宽和高（edit1,edit2）看一下文件大小就可以了。

babydog01 2012-03-30

打赏
举报

http://blog.csdn.net/xwchen/article/details/1799037

yangzong20 2012-03-30

打赏
举报

麻烦各位大哥帮帮忙呀，小弟谢谢了

✦双11狂欢大促✦

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

相关推荐

双11狂欢大促