DELPHI实现摄像头拍照

最新推荐文章于 2022-01-03 19:31:25 发布

McdullMini

最新推荐文章于 2022-01-03 19:31:25 发布

阅读量1.6k

点赞数

分类专栏： DELPHI 文章标签： delphi exception string query insert 照片

本文链接：https://blog.csdn.net/sevenqiqi/article/details/198219

版权

这篇博客介绍了如何在DELPHI环境下实现通过TVideoCap控件拍照，并将拍摄的照片保存为JPEG格式。首先，代码展示了如何保存DIB图像到磁盘，然后将图片加载到内存流中。接着，通过查询数据库检查特定卡号的照片是否已存在，如果存在则更新，否则插入新的记录。整个过程涉及到文件操作、图像转换和数据库交互。

摘要由CSDN通过智能技术生成

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:=TMemoryStream.Create;
          jpeg:= TJPEGImage.Create;
          try
            jpeg.Assign( bmp );
            jpeg.compress;
            jpeg.SaveTofile( strfilename+'Capture.jpg');
            strfilename:=strfilename+'Capture.jpg';