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 |
|
|
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); |