VPF::BDE админ настройка alias из программы

Saman

Дата 27.8.2008, 15:55 (ссылка)

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

Загрузка ...

Новичок

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

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

Можно ли каким-либо образом обратиться из программы к алиасам в bdeadmin?
например, при запуске программы, сначала проверяю, создан ли алиас, и , если не создан или создан не правильно - создаю или исправляю?

Frees

Дата 1.9.2008, 10:11 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 23
Всего: 54

ты про это?

Код


uses Windows, SysUtils, DbiProcs, DbiErrs, DBTables;

 

const

CRLF = #13 + #10;

ERR_ALIASDRIVERNOTFOUND = 'Specified driver does not exist.';

ERR_ALIASALREADYEXISTS = 'The Alias (%s) already exists.' + CRLF +

   'Would you like to reconfigure it?';

ERR_ALIASINVALIDPARAM = 'Invalid Alias name.';

ERR_ALIASCLOSEBDE = 'Error closing the BDE.' + CRLF +

   'Please close all applications and restart Windows';

ERR_ALIASOPENBDE = 'Error initializing BDE. Cannot create Alias.';

 

procedure CreateAlias(sAlias, sPath, sDriver: string;

PersistentAlias: Boolean);

var

dbEnv: DbiEnv;

dbRes: DbiResult;

Resp: word;

begin

{ Sets the BDE environment }

with dbEnv do

begin

   StrPCopy(szWorkDir, sPath);

   StrPCopy(szIniFile, '');

   bForceLocalInit := True;

   StrPCopy(szLang, '');

   StrPCopy(szClientName, 'dbClientName');

end;

{ Initalizes BDE with the environment dbEnv }

if DbiInit(@dbEnv) <> DbiERR_NONE then

   raise Exception.Create(ERR_ALIASOPENBDE);

{ Adds the specified Alias }

if sDriver = 'STANDARD' then

   dbRes := DbiAddAlias(nil, pchar(sAlias), nil,

     pchar('PATH:' + sPath), PersistentAlias)

else

   dbRes := DbiAddAlias(nil, pchar(sAlias), pchar(sDriver),

     pchar('PATH:' + sPath), PersistentAlias);

case dbRes of

   DbiERR_INVALIDPARAM:

     raise Exception.Create(ERR_ALIASINVALIDPARAM);

   DbiERR_NAMENOTUNIQUE:

     begin

       resp := MessageBox(0, pchar(Format(ERR_ALIASALREADYEXISTS, [sAlias])),

         'CreateAlias', MB_ICONSTOP + MB_YESNO);

       if Resp = ID_YES then

       begin

         Check(DbiDeleteAlias(nil, pchar(sAlias)));

         CreateAlias(sAlias, sPath, sDriver, PersistentAlias);

       end;

     end;

   DbiERR_UNKNOWNDRIVER:

     raise Exception.Create(ERR_ALIASDRIVERNOTFOUND);

end;

if DbiExit <> DbiERR_NONE then

   raise Exception.Create(ERR_ALIASCLOSEBDE);

end; {CreateAlias}

Это сообщение отредактировал(а) Frees - 1.9.2008, 10:12

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

Кольцов Виктор Владимирович

Saman

Дата 1.9.2008, 17:03 (ссылка)

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

Загрузка ...

Новичок

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

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

Большое спасибо, буду пробовать!

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