工程師分享(一):照相機拍照功能實現(xiàn)源碼

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 '''');//打開卡號數(shù)據(jù)表
{OpenQry是自定義打開數(shù)據(jù)表的函數(shù)
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); 特別注意：本站所有轉(zhuǎn)載文章言論不代表本站觀點，本站所提供的攝影照片，插畫，設(shè)計作品，如需使用，請與原作者聯(lián)系.
Post; //統(tǒng)一提交
end;//with
finally
MyStm.Free;
jpeg.free;
end; //try
finally
bmp.free;
end;//try
end;//with
end;