ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/DBAdmin/DataModule.pas
(Generate patch)
# Line 659 | Line 659
659  
660    procedure KillShadows;
661    begin
662 <    with IBValidationService1 do
662 >    with IBXServicesConnection1 do
663      begin
664 <      Options := [IBXServices.KillShadows];
665 <      Execute(nil);
666 <      MessageDlg('All Unavailable Shadows killed',mtInformation,[mbOK],0);
664 >      ServerName := FServerName;
665 >      Protocol := FProtocol;
666 >      PortNo := FPortNo;
667 >      Connected := true;
668 >    end;
669 >    try
670 >      with IBValidationService1 do
671 >      begin
672 >        DatabaseName := FDatabasePathName;
673 >        Options := [IBXServices.KillShadows];
674 >        Execute(nil);
675 >        MessageDlg('All Unavailable Shadows killed',mtInformation,[mbOK],0);
676 >      end;
677 >    finally
678 >      IBXServicesConnection1.Connected := false;
679      end;
680    end;
681  
# Line 681 | Line 693
693        begin
694          if E.IBErrorCode = isc_io_error then
695          begin
684            FDBPassword := '';
696            if MessageDlg('I/O Error reported on database file. If this is a shadow file, do you want '+
697                          'to kill all unavailable shadow sets?. The original message is ' + E.Message,
698 <                        mtInformation,[mbYes,mbNo],0) = mrYes then
699 <            try KillShadows except end
700 <          else
701 <            continue;
698 >                        mtInformation,[mbYes,mbNo],0) = mrNo then
699 >            break;
700 >          try KillShadows except end;
701 >          FDBPassword := '';
702          end
703          else
704            ReportException(E);

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines