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