Приветствую Вас Гость | RSS

Меню сайта

Реклама

Категории раздела
ADO [17]
ASCII и CSV [12]
Access [20]
Alias [24]
BDE [37]
BLOB поля [19]
Clipper [2]
DB2 [2]
DBASE и DBF [26]
Fox Pro [1]
Interbase [21]
MSSQL [0]
ODBC [10]
Oracle [0]
Paradox [0]
SQL [29]
Sybase [1]
База данных [0]
Закладки [2]
Записи [0]
Индексы [10]
Компоненты и Базы данных [0]
Модуль данных [3]
Отчеты [2]
Ошибки БД [17]
Поиск [16]
Поля [0]
Сортировка и Фильтр [6]
Таблицы [0]

Наш опрос
Какие компоненты добавлять больше?
Всего ответов: 49

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Форма входа

Главная » Статьи » Базы данных » BDE

Как узнать - установлена ли BDE
Следующая функция получает структуру SysVersion и записывает результаты в stringlist. 



uses dbierrs, DBTables;

function fDbiGetSysVersion(SysVerList: TStringList): SYSVersion;
var
  Month, Day, iHour, iMin, iSec: Word;
  Year: SmallInt;
begin
  Check(DbiGetSysVersion(Result));
  if (SysVerList <> nil) then
  begin
  with SysVerList do
  begin
  Clear;
  Add(Format('ENGINE VERSION=%d', [Result.iVersion]));
  Add(Format('INTERFACE LEVEL=%d', [Result.iIntfLevel]));
  Check(DbiDateDecode(Result.dateVer, Month, Day, Year));
  Add(Format('VERSION DATE=%s', [DateToStr(EncodeDate
  (Year, Month, Day))]));
  Check(DbiTimeDecode(Result.timeVer, iHour, iMin, iSec));
  Add(Format('VERSION TIME=%s', [TimeToStr(EncodeTime
  (iHour, iMin, iSec div 1000, iSec div 100))]));
  end;
  end;
end;

 


Вызов этой функции выглядит следующим образом: 



var
  hStrList: TStringList;
  Ver: SYSVersion;
begin
  hStrList:= TStringList.Create;
  try
  Ver := fDbiGetSysVersion(hStrList);
  except
  ShowMessage('BDE not installed !');
  end;
  ShowMessage(IntToStr(Ver.iVersion));
  Memo1.Lines.Assign(hStrList);
  hStrList.Destroy;
end;

 


Возможные резултаты (отображаемые в memo-поле): 



ENGINE VERSION=500 
INTERFACE LEVEL=500 
VERSION DATE=09.06.98 
VERSION TIME=17:06:13
Категория: BDE | Добавил: Skinner (05.07.2008)
Просмотров: 394 | Рейтинг: 0.0/0
  Delphi Lab   Главная   Регистрация   Вход  
Интересная Цитата

Поиск

Магазин


Copyright MyCorp © 2025 Хостинг от uCoz