Скачать: CL | DM;

Как создать Alias   Найти похожие ветки 

← →
Basil ©   (2002-02-06 15:15) [0]

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

---

← →
Mike_Goblin ©   (2002-02-06 15:35) [1]

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

---

← →
Вячеслав ©   (2002-02-06 17:04) [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;

---

← →
Basil ©   (2002-02-07 09:01) [3]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c