DELPHI实现摄像头拍照

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

原创最新推荐文章于 2022-01-03 19:31:25 发布 · 1.7k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #exception #string #query #insert #照片

DELPHI 专栏收录该内容

11 篇文章

订阅专栏

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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';
            jpeg.LoadFromFile(strfilename);
            jpeg.SaveToStream(MyStm);
            MyStm.Position:=0;
     OpenQry(query1,'select count(1) as cnt from tb_photo where card_no='''+strcard+'''');//先查找是否有此卡号
     OpenQry(pubqry,'select * from tb_photo where card_no='''+strcard+'''');//打开卡号数据表
     {OpenQry是自定义打开数据表的函数
     OpenQry(qry1:TQuery,ssql:String);
     begin
     with qry1 do
     beign
        if active then
        close;
        sql.clear;
        sql.add(ssql);
        try
        open
        catch
     on E: Exception do ErrorDialog(E.Message, E.HelpContext);
        end;//try
     end;
     end;
     }
            with query1 do
            begin
            if pubqry.Fields[0].AsInteger >0 then //先判断此卡号的图片是否存在，若存在，替换；否则，插入。
               Edit
            else
               Insert;

               FieldByName('card_no').AsString :=strcard;
               TBlobField(FieldByName('photo')).LoadFromStream(MyStm);
               Post; //统一提交
            end;//with
          finally
            MyStm.Free;
            jpeg.free;
          end;   //try
        finally
          bmp.free;
        end;//try
end;//with
end;
//请首先下载TVideoCap控件