门禁管理系统图像对比调用子程序

     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;