Как зарегистрировать базу данных (BDE)?

Материал из DRKB

Как зарегистрировать базу данных (BDE)?[править | править код]

Session.AddAlias(AliasName, AliasDriver, Params);
Session.SaveConfigFile;


Author: Автор: Vit (www.delphist.com, www.drkb.ru, www.unihighlighter.com, www.nevzorov.org)
Source: Взято с Vingrad.ru http://forum.vingrad.ru
ID: 02541



uses
  DBIProcs, DBITypes;

procedure AddBDEAlias(sAliasName, sAliasPath, sDBDriver: string);
var
  h: hDBISes;
begin
  DBIInit(nil);
  DBIStartSession('dummy', h, '');
  DBIAddAlias(nil, PChar(sAliasName), PChar(sDBDriver), PChar('PATH:' + sAliasPath), True);
  DBICloseSession(h);
  DBIExit;
end;


{ Sample call to create an alias called WORK_DATA that }
{ points to the C:\WORK\DATA directory and uses the    }
{ DBASE driver as the default database driver:         }

AddBDEAlias('WORK_DATA', 'C:\WORK\DATA', 'DBASE');


Source: Взято с Delphi Knowledge Base: http://www.baltsoft.com/
ID: 02542