这篇博客介绍了如何在DELPHI应用程序中利用TVideoCap控件捕获摄像头照片，并进行保存、压缩以及数据库操作。首先，程序会尝试保存图片到本地，然后加载到内存流并转换为JPEG格式。接着，根据指定的卡号查询数据库中是否存在该记录，如果存在则更新图片，否则插入新的记录。整个过程涉及文件操作、数据库查询和异常处理。
procedure Tfrm1.Button2Click(Sender: TObject);
Var
jpeg: TJPEGImage;
bmp: TBitmap;
MyStm:TMemoryStream;
strfilename,strcard:String;
begin
inherited;
strfilename:=extractfilepath(Application.ExeName);
with DBEdit12.DataSource.DataSet do
begin
if not VideoCap1.SaveAsDIB then
begin
ShowMessage('拍摄照片失败');
Abort;
end;//
bmp:= TBitmap.Create;
try
bmp.LoadFromFile(strfilename+ 'Capture.bmp' );
MyStm:=TMemor
最低0.47元/天 解锁文章
扫一扫
1010
到【灌水乐园】发言
