a亚洲精品_精品国产91乱码一区二区三区_亚洲精品在线免费观看视频_欧美日韩亚洲国产综合_久久久久久久久久久成人_在线区

首頁 > 編程 > Delphi > 正文

DELPHI實現攝像頭拍照

2019-11-18 18:09:32
字體:
來源:轉載
供稿:網友
 

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和金山詞霸制作批量單詞翻譯

下一篇:delphi制作的托盤程序

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
學習交流
熱門圖片

新聞熱點

疑難解答

圖片精選

網友關注

主站蜘蛛池模板: 色婷婷av一区二区三区软件 | a级片网站| 综合网激情五月 | www.五月婷婷 | 国产羞羞视频 | 69久久99精品久久久久婷婷 | 欧洲一级大片 | 99热首页| 精品国产乱码久久久久久闺蜜 | 欧美一级淫片免费视频黄 | 中文 日韩 欧美 | 久久一区视频 | 成人黄色免费网 | 国产成人宗合 | 欧美久久精品一级c片 | 午夜影视 | 国产精品久久久久久久久久久久久久 | 黄色成人在线网站 | 狠狠的干 | 欧美日韩成人在线播放 | 国产成人精品午夜视频免费 | 亚洲怡红院在线观看 | 日韩精品一区二区在线观看 | 黄色电影网站在线观看 | 精品免费视频 | 青青草狠狠操 | 久久久国产精品x99av | 国产精品自产拍在线观看桃花 | 一本一道久久a久久精品综合蜜臀 | 成人午夜视频在线观看 | 蜜桃中文字幕 | 色吟av| 久久久精品一区二区三区 | www.亚洲一区 | 国产精品成人3p一区二区三区 | 精品成人国产 | 五月综合久久 | 91在线精品秘密一区二区 | 国产精品一区一区三区 | 日韩一区二区精品 | 人人鲁人人莫一区二区三区 |