VPF::Проверка установки BDE - Форум программистов

Albinos_x

Дата 23.4.2005, 11:09 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 1
Всего: 108

пытаюсь проверить установку BDE
так

Код


IsBDEExist := (dbiInit(nil) = 0)

{взял из DRKB}
но dbiInit(nil) не понимается
Подскажите, пожалуйста, как решить проблему...

Заранее спасибо!

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

SPrograMMer

Дата 23.4.2005, 13:16 (ссылка)

(нет голосов)

Загрузка ...

Спамер :)

Профиль
Группа: Участник
Сообщений: 442
Регистрация: 5.11.2004
Где: Краснодар

Репутация: 1
Всего: 6

Номер раз:

Код


//Читаем ключ в реестре: 
RootKey := HKEY_LOCAL_MACHINE;
OpenKey(`SOFTWARE\Borland\Database Engine`, False);
try
  s := ReadString(`CONFIGFILE01`);
  //BDE установлена
finally
  CloseKey;
end;

Номер два:

Код


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;
Function Be_BDE_Or_Not_BE:Boolean;
var
  hStrList: TStringList;
  Ver: SYSVersion;
begin
  hStrList:= TStringList.Create;
  try
    Ver := fDbiGetSysVersion(hStrList);
    Result:=True;
  except
    Result:=False;
    ShowMessage('BDE not installed !');
  end;
  ShowMessage(IntToStr(Ver.iVersion));
  Memo1.Lines.Assign(hStrList);
  hStrList.Destroy;
end;

ЗЫ: с номера два моно половину выкинуть smile

самому влом редактировать... smile

Это сообщение отредактировал(а) SPrograMMer - 23.4.2005, 13:22

--------------------

животное = зверь
законченный гентушник

Albinos_x

Дата 23.4.2005, 13:32 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 1
Всего: 108

Спасибо...
Нашёл решение проблемы:
Чтобы dbiInit(nil) понималось необходимо добавить модуль DBIErrs

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Alex

Дата 25.4.2005, 18:47 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 17
Всего: 162

Код

function HaveBdeDrivers : Boolean;
//По наличию драйверов BDE определяет ее присутствие;
var l : TStringList;
begin
 Result := True;
 l := TStringList.Create;
 try
  try
   Session.GetDriverNames(l);
  except
   Result := False;
  end;
finally
  l.Free;
end;
end;

http://forum.vingrad.ru/index.php?showtopi...ndpost&p=227592
Добавлено @ 18:48
http://vingrad.ru/DELPHI-DLP-001620

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

Albinos_x

Дата 27.4.2005, 18:39 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 1
Всего: 108

Спасибо... Интересный вариант...
Мной используемый, тоже работает. Проверено мной под 98 и ХР...

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »