BDE и Win7

[Ghost of Night]

Здравствуйте, под ВинХР написал прогу, для работы с базой данных по технологии BDE, поставил Win7 И прога отказывается запускатьсяю Выдает ошибку в BDE.
как можно исправить? или лучше ADO использовать?

[_Engine_]

Ошибка как всегда - секретная информация. Лучше ADO

[Asinkrit]

BDE это старый век, как и ADO вообщем, если бы вы сказали что за БД, то может более полное решение подсказал, а вообще, сейчас почти к любой БД можно драва на подключение найти, и на прямую с ними работать.

[М_Виктор]

Сообщение от Ghost of Night

Здравствуйте, под ВинХР написал прогу, для работы с базой данных по технологии BDE, поставил Win7 И прога отказывается запускатьсяю Выдает ошибку в BDE.
как можно исправить? или лучше ADO использовать?

У меня на одном диске стоят WinXP + Delphi 2007, на другом Win7 + Delphi 2007. При установке Delphi создается каталог BDE, в котором присутствуют файлы *.dll и *.btl. Если на предприятии где-то на старом компе ОС WinXP, то я в каталог программы, написанной на Delphi, просто добавляю файлы *.dll и *.btl из соответсвующего "комплекта" WinXP + Delphi 2007.
На все новые машины, где стоит Win7, в каталог программы добавляю *.dll и *.btl из "комплекта" Win7 + Delphi 2007.
Тратить время на переписывание старых программ, использующих технологию BDE, в таком случае не требуется.

[rdama]

Старый дедовский способ:
Как установить BDE с помощью bdeinst.dll?
Желательно скопировать bdeinst.dll в папку WINDOWS, упрощается процесс установки как в первый раз, так и при последующих инсталляциях.

Выполнить из командной строки:

regsvr32.exe bdeinst.dll

bdeinst.dll находится в файле bdeinst.cab, каталог BDE.
Надеюсь чем открыть cab объяснять не надо.
А вообще гугл кучу вариантов дает надо только спросить.
Вот черт знает когда писал.

     
function GetSysDir:String;
var Sysdir: String;
     SysdirP: PChar;
     Res: Cardinal;
begin
   SysDirP := StrAlloc(MAX_PATH);
   Res := GetSystemDirectory(SysDirP, MAX_PATH);
   if Res > 0 then SysDir := StrPas(SysDirP);
   Result := SysDir;
end;

function BDEExist: Boolean;
var s:string;
begin
   with TRegistry.create do
   begin
      RootKey := HKEY_LOCAL_MACHINE;
      OpenKey('SOFTWARE\Borland\Database Engine', False);
      try
        s := ReadString('CONFIGFILE01');
        result:=true;
      except
        result:=False;
      end;
      CloseKey;
   end;
end;

     gsd:=GetSysDir+'\regsvr32.exe ';
     exp:='"'+ExtractFilePath(Application.ExeName)+'bde\bdeinst.dll"';
     if not BDEExist then WinExec(PChar(gsd+exp),SW_SHOW);

[Ghost of Night]

ОК, спасибо, буду пробовать)