门禁管理系统图像对比调用子程序
门禁管理系统图像对比调用子程序
begin
Close;
SQL.Clear;
if outorin then //已经出场的
SQL.Add('SELECT * FROM JY_Park_Picture WHERE 编号 =''' +strID + '''')
else //未出场的
SQL.Add('SELECT * FROM JY_Park_New_Picture WHERE 编号 =''' +strID + '''');
OPen;
if recordCount = 1 then
begin
ms1 := TMemoryStream.Create;
TBlobField(FieldByName('入口图像')).SaveToStream(ms1);
ms2 := TMemoryStream.Create;
TBlobField(FieldByName('出口图像')).SaveToStream(ms2);
ms1.SaveToFile(AppDir+'dbr1.jpg');
ms2.SaveToFile(AppDir+'dbr2.jpg');
if (ms1.Size > 10) then //显示入口对比图片
begin
inPic.Visible := true;
inPic.BringToFront;
imgIn.Picture.LoadFromFile(AppDir + 'dbr1.jpg');
Timer1.Enabled := false;
Timer1.Enabled := true;
end else
begin
inPic.Visible := false;
end;
if (ms2.Size > 10) then //显示出口对比图片
begin
outPic.Visible := true;
outPic.BringToFront;
imgOut.Picture.LoadFromFile(AppDir + 'dbr2.jpg');
Timer1.Enabled := false;
Timer1.Enabled := true;
end else
begin
outPic.Visible := false;
end;
end else
begin
Timer1.Enabled := false;
inPic.Visible := false;
outPic.Visible := false;
end;
Close;
end;
- 1指纹识别民用市场规模化发展分析
- 2门禁管理系统软件主要功能?
- 3有线门禁系统有什么优势!
- 42013年元旦将出首张含指纹信息二代身份证
- 5基于RFID技术的不停车收费系统的设计
- 6基于VB界面RFID读写器的串口通信上位机软件设计
- 7关于指纹考勤机哪些事你知多少?
- 8永乐电器停车场收费系统
- 9完善智能布线系统之解决策略非常重要
- 10门禁+钱包+公交卡=手机——手机一卡通门禁系统
- 11生物门禁系统需求革新 双重模式相结合
- 12市场激增催促传感器产业化进程
- 13民用安防摸石头过河 企业突围寻求创新
- 14你知道网络门禁系统具有哪些功能特点吗
- 15布线系统中的接地屏蔽技术
- 16华本TDC指纹考勤机创新路线引领新时尚
- 17卸载Server2000再安装问题
- 18华本3D指纹考勤机规范农村单位新福星
- 19华本3D指纹考勤机贴心呵护 用心服务
- 20道闸维修的步骤和解决办法
- 21泛普软件告诉大家应用安检门该注意哪些事项
- 22多个单独功能软件组成系统保证软件操作的安全
- 23常州西太湖管委会系统启用
- 24门禁管理系统享受智能生活
- 25使用我公司停车系统施工前应做的准备工作
- 26安检门的应用范围及领域使用的作用
- 27生物识别六大领域 细分市场不忘安全隐患
- 28哈市27处室内停车场将设诱导标
- 29国内门禁管理系统未来几年需求分析
- 30评:上海15日起正式签发启用电子护照