日本精品久久-日本精品二区-日本精品二区-日本极品少妇-成人欧美一区二区三区黑人免费-成人欧美一区二区三区黑人免费

照相機拍照功能實現源碼

來源:網絡

點擊:1160

A+ A-

所屬頻道:新聞中心

關鍵詞: 照相機,源代碼

      本文提供工程師分享的一段完整的Delphi代碼,實現利用攝像頭進行拍照的功能。注意需要TVideoCap控件支持。

      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;

    (審核編輯: 小丸子2)

    聲明:除特別說明之外,新聞內容及圖片均來自網絡及各大主流媒體。版權歸原作者所有。如認為內容侵權,請聯系我們刪除。

    主站蜘蛛池模板: 朱荣荣| 范冰冰性感| 朱时茂电影| 凯登克罗斯| 人世间演员表| 单身情歌 歌词| 电影《塔蒂亚娜1》演员表| 名剑 电影| 王若晰 个人资料| 家族游戏| 第一财经公司与行业回放| 以下关于宏病毒说法正确的是| 永濑佳子| 激情豪放女| 电影痴人之爱| 38在线电影| 西野翔三级全部电影| 视频999| 精神空虚,贪图享乐的整改措施| 雅马哈调音台说明书| 老阿姨视频| 2025最好运头像| 电视剧《节妇》在线观看| 不良情侣| 采茶舞曲民乐合奏| 廖明| 徐正超| 老友记 第一季 1994 詹妮弗·安妮斯顿 | 远景山谷1981免费版| 泰星mike| 北京卫视今天全部节目表| 二年级100个数学应用题| 木偶人| 天天快乐高清在线观看视频| 军犬麦克斯| (一等奖)班主任经验交流ppt课件| 南北腿王| 奥丽维娅·赫西大尺| 高慧君| 电影宝贝| 我是传奇 电影|