| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как проще всего установить свою программу с базой? [D7, Paradox]

Zhekson ©   (2005-04-28 15:55:00) 

Т.е. если BDE отсутствует то поставить и прописать в ней свою базу данных.

---

Leonid   (2005-04-29 09:55:00) [1]

Заархивируй BDE.
Она находится в C:\Program Files\Common Files\Borland Shared\BDE.
При инстоляци распакуй.
Вот процедура, которая прописывает в Registry всё что нужно.
Через заголовок передаётся путь к BDE.
Можно разместить на файл-сервере.

procedure InstallBde(Pth:String);
const
 Bor: string = 'SOFTWARE\Borland';
var
 Reg: TRegistry;
 BPath: string;
begin
 BPath:=PTH;
 Reg := TRegistry.Create;
 with Reg do
 begin
   RootKey := HKEY_LOCAL_MACHINE;
   OpenKey(Bor + '\Database Engine', True);
   WriteString('CONFIGFILE01', BPath+'\IDAPI32.CFG');
   WriteString('DLLPATH', BPath);
   WriteString('RESOURCE', '0009');
   WriteString('SaveConfig', 'WIN32');
   WriteString('UseCount', '6');
   CloseKey;
   OpenKey(Bor+'\BLW32',True);
   WriteString('BLAPIPATH', BPath);
   WriteString('LOCALE_LIB3', BPath+'\OTHER.BLL');
   WriteString('LOCALE_LIB4', BPath+'\CHARSET.BLL');
   CloseKey;
   OpenKey(Bor+'\Database Engine\Settings\SYSTEM\INIT',True);
   WriteString('AUTO ODBC', 'FALSE');
   WriteString('DATA REPOSITORY', 'Sample Data Dictionary');
   WriteString('DEFAULT DRIVER', 'DBASE');
   WriteString('LANGDRIVER', 'DBWINUS0');
   WriteString('LOCAL SHARE', 'TRUE');
   WriteString('LOW MEMORY USAGE LIMIT', '32');
   WriteString('MAXBUFSIZE', '2048');
   WriteString('MAXFILEHANDLES', '48');
   WriteString('MEMSIZE', '16');
   WriteString('MINBUFSIZE', '128');
   WriteString('MTS POOLING', 'FALSE');
   WriteString('SHAREDMEMLOCATION', '');
   WriteString('SHAREDMEMSIZE', '2048');
   WriteString('SQLQRYMODE', '');
   WriteString('SYSFLAGS', '0');
   WriteString('VERSION', '4.0');
   CloseKey;
   OpenKey(Bor+'\Database Engine\Settings\SYSTEM\FORMATS\DATE',True);
   WriteString('FOURDIGITYEAR', 'FALSE');
   WriteString('LEADINGZEROD', 'FALSE');
   WriteString('LEADINGZEROM', 'FALSE');
   WriteString('MODE', '0');
   WriteString('SEPARATOR', '/');
   WriteString('YEARBIASED', 'TRUE');
   CloseKey;
   OpenKey(Bor+'\Database Engine\Settings\SYSTEM\FORMATS\NUMBER',True);
   WriteString('DECIMALDIGITS', '2');
   WriteString('DECIMALSEPARATOR', '.');
   WriteString('LEADINGZERON', 'TRUE');
   WriteString('THOUSANDSEPARATOR', ',');
   CloseKey;
   OpenKey(Bor+'\Database Engine\Settings\SYSTEM\FORMATS\TIME',True);
   WriteString('AMSTRING', 'AM');
   WriteString('MILSECONDS', 'FALSE');
   WriteString('PMSTRING', 'PM');
   WriteString('SECONDS', 'TRUE');
   WriteString('TWELVEHOUR', 'TRUE');
   CloseKey;
   OpenKey(Bor+'\Database Engine\Settings\REPOSITORIES',True);
   CloseKey;
   OpenKey(Bor+'\Database Engine\Settings\DRIVERS\DBASE\INIT',True);
   WriteString('LANGDRIVER', 'DBWINUS0');
   WriteString('TYPE', 'FILE');
   WriteString('VERSION', '4.0');
   CloseKey;
   OpenKey(Bor+'\Database Engine\Settings\DRIVERS\DBASE\TABLE CREATE',True);
   WriteString('MDX BLOCK SIZE', '1024');
   WriteString('MEMO FILE BLOCK SIZE', '1024');
   WriteString('LEVEL', '5');
   CloseKey;
 end;
Reg.Free;
end;

---

Виталий Панасенко   (2005-04-28 16:03:00) [2]

InstallShield for Delphi

---

Наверх