門禁管理系統(tǒng)圖像對比調(diào)用子程序

     begin
                Close;
                SQL.Clear;
                if outorin then //已經(jīng)出場的
                 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;