网页功能: 加入收藏 设为首页 网站搜索  
DELPHI实现摄像头拍照
发表日期:2004-11-27作者:[转贴] 出处:  

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实现摄像头拍照
本类热点文章
  DBGrid 应用全书
  用户界面设计的技巧与技术
  TWebBrowser编程简述
  初探Delphi 7 中的插件编程
  获取主板BIOS的信息
  网卡的远程网络唤醒
  Delphi 2006简介(Dexter)
  用Delphi开发数据库程序经验三则
  在Windows2000中拦截Ctrl+Alt+Del
  编写TAPI应用程序
  利用语音Modem实现电话点播和留言功能
  Delphi面向对象编程的20条规则
最新分类信息我要发布 
最新招聘信息

关于我们 / 合作推广 / 给我留言 / 版权举报 / 意见建议 / 广告投放  
Copyright ©2003-2019 Lihuasoft.net webmaster(at)lihuasoft.net
网站编程QQ群   京ICP备05001064号 页面生成时间:0.00395