DELPHI实现摄像头拍照.docxVIP

procedure Tfrm1.Button2Click(Sender: TObject); Var jpeg: TJPEGImage; bm p: TBitm ap; MyStm :TMem oryStream; strfilename,strcard:String; begin inherited; strfilename:=extractfilepath(Application.ExeName); with DBEdit12.DataSource.DataSet do begin if not VideoCap1.SaveAsDIB then begin ShowMessage( 拍摄照片失败); Abort; end;// bm p:= TBit m ap.Create; try bm p.LoadFrom File(strfilename+ Capture.bmp ); MyStm :=TMemoryStream .Create; jpeg:= TJPEGImage.Create; try jpeg.Assign( bmp ); press; jpeg.SaveTofile( strfilenam e+Capture.jpg); strfilename:= strfilename+Capture.jpg; jpeg.LoadFrom File(strfilename);