我具体的需求是这样的:我通过摄像头获得一幅图像,我通过点击获取头像按钮后,出现在image上一固定大的矩形方框,可以拖动此方框取得方框内的图像信息,然后保存下来,请问如何实现谢谢!
解决方案 »
- dephi中怎样把单个控件的透明度改变
- ●●●●快来评论我写的RSS新闻阅读器来者有分(包含源代码)●●●●
- 欢迎上传资料,永久性FTP
- 高分求救关于保存数据到数据库中的问题!
- 菜问题,怎样用TQuery过滤日期字段值等于空的记录?
- 大家帮忙看看这几句代码有错吗,我测不过去。急等!
- 连锁店进销存管理中的问题,大家看看啊,在线等待!!
- 关于文件解压缩的问题!?
- 请问这是为什么?[Fatal Error] pagent.dpr(7): Unit Forms was compiled with a different version of SysUtils.CheckWin32Version
- delphi怎么判断某路径是否存在,例如:C:\my\slj
- 用dbExpress连接数据库并显示数据表
- ^Tcoinsrec
当然你也可用硬件设备提供的API之类的抓图,这样无论图像是否被遮盖,都可取得正确的图。
var
ImageDir : string;
bmpFileName : string;
PicHWnd,iDC : LongWord;
begin
MainForm.WindowState := wsMaximized; if ForceCreateImageDir(CapTime,ImageDir) then
//ForceCreateImageDir 是我自己写的一个创建目录的函数
begin
if not Assigned(VehBmp) then
begin
VehBmp := TBitmap.Create;
end; VehBmp.Width := pnlVehPic.Width; //宽度与高度,现在应当由你的拖拉来实现了。
VehBmp.Height := pnlVehPic.Height; //这里 PicHWnd := pnlVehPic.Handle;
iDC:=GetDC(PicHWnd); Bitblt(VehBmp.Canvas.Handle,0,0,VehBmp.Width,VehBmp.Height,
iDC,0,0,SRCCOPY);
ReleaseDC(PicHWnd,iDC);
bmpFileName := SysSettings.ImageRoot+ '\tmpVeh.bmp';
VehBmp.SaveToFile(bmpFileName);
end;
http://blog.csdn.net/xzhifei/archive/2007/07/17/1695258.aspx