Как создать 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;

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

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