DELPHI实现摄像头拍照

原创 2004年11月20日 17:11:00

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控件

写了一个DELPHI操作USB摄像头类分享给大家

最近在使用Usb摄像头做了个项目,其中写了一个操作usb摄像头类分享给大家 {*******************************************************} { ...
  • u011883102
  • u011883102
  • 2015年05月18日 15:55
  • 5141

利用Delphi编程控制摄像头(图)

你的电脑有没有摄像头?看到别人用QQ玩视屏你会不会去想怎么实现的?这里介绍使用DELPHI使用MS的AVICAP32.DLL就可轻松的实现对摄像头编程,如果再加上你的网络编程水平,实现一个视屏聊天就不...
  • tody_guo
  • tody_guo
  • 2010年03月13日 18:02
  • 3116

Delphi中操作摄像头

  • 2009年02月19日 17:15
  • 14KB
  • 下载

海康威视网络摄像头Delphi调用Demo

  • 2017年04月26日 11:43
  • 12.62MB
  • 下载

一个比较精简的Delphi 中调用Twain协议实现摄像头或扫描仪捕获图片编程

  • 2009年04月20日 16:43
  • 745KB
  • 下载

Delphi写的摄像头拍照载图程序

  • 2013年08月13日 23:47
  • 661KB
  • 下载

利用摄像头进行拍照delphi源代码(免积分)

  • 2007年08月06日 09:43
  • 1KB
  • 下载

Delphi实现拍照控件的程序代码

完整的delphi拍照控件代码,实现利用摄像头进行拍照的功能。需要TVideoCap控件支持。 procedure Tfrm1.Button2Click(Sender: TObject); V...
  • fanganzhuanjia
  • fanganzhuanjia
  • 2014年08月09日 17:09
  • 858

摄像头控件delphi

  • 2008年12月15日 21:22
  • 9KB
  • 下载

delphi7控制摄像头的控件及demo

  • 2013年10月31日 08:57
  • 1.72MB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:DELPHI实现摄像头拍照
举报原因:
原因补充:

(最多只允许输入30个字)