完整的delphi拍照控件代码,实现利用摄像头进行拍照的功能。需要TVideoCap控件支持。
procedure Tfrm1.Button2Click(Sender: TObject);
Var
jpeg: TJPEGImage;
bmp: TBitmap;
MyStm:TMemoryStream;
strfilename,strcard:String;
begin
inherited;
strfilename:=extractfilepath
完整的delphi拍照控件代码,实现利用摄像头进行拍照的功能。需要TVideoCap控件支持。
procedure Tfrm1.Button2Click(Sender: TObject);
Var
jpeg: TJPEGImage;
bmp: TBitmap;
MyStm:TMemoryStream;
strfilename,strcard:String;
begin
inherited;
strfilename:=extractfilepath