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

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

Как создать Alias [D5, IB5.x]


Basil ©   (2002-02-06 15:15:00) 

Подскажите, пожалуйста, как программно добавить новый Элиас к таблице, но так, чтобы он остался в idapi.cfg, т.е., чтобы после перезагрузки не пропадал.


Basil   (2002-02-07 09:01:00) [1]

Всем спасибо. Все получилось.


Вячеслав   (2002-02-06 17:04:00) [2]

Делается вот так, есть фишка связанная с кириллицей:
Если настраивать через конфигуратор БДЕ, то выбираешь
Pdox Ansi Cyrillic, а если создаешь в рантайме то-ancyrr;
Кроме того, если не писать Session.SaveConfigFile;, то
алиас будет существовать пока работает твоя программа или есть коннекты к нему. Посмотри настройки упомянутого Mike_Goblin ConfigMode.
procedure TfrmAlisByCode.btnNewAliasClick(Sender: TObject);
var
MyList: TStringList;
begin
MyList := TStringList.Create;
try
with MyList do
begin
Add("SERVER NAME= DATABASE.GDB");
Add("USER NAME=SYSDBA");
Add("LANGDRIVER=ancyrr");
end;
Session.AddAlias("SRVDIAGR", "INTRBASE", MyList);
Session.SaveConfigFile;
finally
MyList.Free;
end;
end;


Mike_Goblin   (2002-02-06 15:35:00) [3]

Использовать объект сессии (компонент TSession)
Приблизительно так:
with Session1 do
begin
ConfigMode := cmPersistent;
AddStandardAlias("TEMPDB", ExtractFilePath(ParamStr(0)), "PARADOX");
end;
Фишка в установке ConfigMode


Наверх

Титульная страница Поиск, карта сайта Написать письмо