Delphi World - Сканирование версии структуры базы данных

Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...

Сканирование версии структуры базы данных

Спасибо за идеи, высказанные в группах новостей и присланные по электронной почте. Я думаю, что нашел лучшее решение.

Очевидно, BDE содержит номер версии структуры, по крайней мере для файлов Paradox. (Я не могу поручиться за dBase и другие форматы.) Всякий раз при изменении структуры (например, в Database Desktop) BDE увеличивает номер версии. Следующий модуль содержит функцию, которая возвращает версию структуры базы данных:

(*****************************************************************************
* DbUtils.pas
*
* Утилита для работы с базами данных
*
* Создана 09/20/96
*****************************************************************************)

unit Dbutils;

(****************************************************************************)
(****************************************************************************)

interface

(****************************************************************************)
(****************************************************************************)

uses DbTables;

function DbGetVersion(table: TTable): LongInt;

(****************************************************************************)
(****************************************************************************)

implementation

(****************************************************************************)
(****************************************************************************)

uses
  Db, DbiProcs, DbiTypes, {DbiErrs,}
  SysUtils;

{---------------------------------------------------------------------------}
(*
* Цель:                    определение номера версии структуры таблицы
* Параметры:               table (I) - интересующая нас таблица
* Возвращаемая величина:   номер версии
* Исключительная ситуация: EDatabaseError
*)

function DbGetVersion(table: TTable): LongInt;
var
  hCursor: hDBICur;
  tableDesc: TBLFullDesc;
  cName: array[0..255] of Char;
begin
  { копируем имя таблицы в строку 'с' }
  StrPCopy(cName, table.TableName);

  { просим BDE создать запись, содержащую информацию об определенной таблице }
  Check(DbiOpenTableList(table.DBHandle, True, False, cName, hCursor));

  { получаем запись, содержащую информацию о структуре }
  Check(DbiGetNextRecord(hCursor, dbiNOLOCK, @tableDesc, nil));

  { возвращаем поле записи, содержащее номер версии структуры нашей таблицы }
  Result := tableDesc.tblExt.iRestrVersion;

  Check(DbiCloseCursor(hCursor));
end;

end.