|
||||
|
||||
|
||||
|
Обработка ошибки "Corrupt Memo/BLOB file" в базах данных, используя приложения Delphi. Наверняка, каждый разработчик приложений на языке Delphi , связанных с базами данных, сталкивался с такой огромной проблемой как обработка ошибок и провел немало времени в борьбе с ними. Моя историческая встреча с этой проблемой произошла при визуализации вот такого сообщения:
рис.1. Ошибка эта появляется в случае, когда Мемо-поле в базе данных не было записано корректно. Ситуация эта происходит как правило в приложениях, использующих редактирование данных в Мемо-полях на какой-то промежуток времени. На период редактирования Мемо-поля, в файле *. dbf помещается ссылка на временный файл, расположенный где-нибудь в C:\ TEMP или C :\ windows \ TEMP . База данных в это время открыта и «ждет» окончания редактирования Мемо-поля и операции сохранения всей записи, включая записи Мемо-поля в *.dbt файл. После того, как редактирование окончено, запись сохраняется в dbf-файл базы данных, а Мемо-поле записывается в dbt -файл. При этом в Мемо-поле остается ссылка на dbt-файл, где собственно и расположено содержимое Мемо-поля. Различного рода факторы, влияющие на разрыв соединения между файлом базы данных и приложением, его открывшем и производящего редактирование, ведут к тому, что связь между ними обрывается и в Мемо-поле остается ссылка на временный файл, а данные оказываются утерянными и не записанными в файлы dbt и dbf базы данных. После чего, при чтении записи с таким «прошлым», приводит к наблюдению рис.1. Борьбу с вышеназванной утратой можно вести двумя путями: 1) Изучить протокол «dbf»-файла и в ошибочной записи править байт Мемо-поля с значения «содержит данные» на значение «не содержит данные», т.е. устранить ссылку на *.d b t файл. 2) Создать копию файла с ошибкой, очистить его полностью. Открыть два файла баз данных – с ошибкой и чистый. Считывать в базе данных с ошибкой по одному значению и заполнять соответствующие им значения в чистой «зеркальной» базе данных. В итоге, все ошибочные ссылки в Мемо-полях будут устранены. Первый метод, конечно, более сложный и непредсказуемый, так как в записи может быть несколько Мемо-полей, а полностью считать запись, если там присутствует ошибка, невозможно. Delphi выводит ошибку, указывая только ее тип и номер записи, в которой она встретилась. Т.е. «натыкаясь» на первую ошибку в записи, Delphi дальнейшую работу с записью не производит и остальные поля не считывает. Для устранения ошибки первым методом необходимо будет произвести несколько прогонов базы данных, что повлечет за собой нагрузку для «железа», пропорциональную размерам базы данных. Второй метод, метод «прогона», на практике оказался более эффективным – все, что могло, то считалось и скопировалось в новую базу данных. Теперь о реализации второго метода обработки ошибки. Используя классический прием обработки ошибок в Delphi блоком try..except для реализации метода №2 приходим к следующему коду:
|
|
|
|
| |
|
| |
|
| |
|
| " |
|
|
|
|
|
