Автоматическое объявляние алиасов

← →
MagG0T © (2002-04-13 16:52) [0]

Друзья! Я собираюсь распространять программу с использованием БД.
Моя программа использует 2 алиаса. А каким образом мне их объявить программно или, одним словом, при установке.

← →
Reindeer Moss Eater (2002-04-13 17:02) [1]

with Database1 do
begin
DriverName:="STANDARD";
Session.GetDriverParams(DriverName,Params);
Params.Values["PATH"]:="C:\Каталог с файлами данных";
Open;
end;

with Database2 do ....

← →
Bor (2002-04-14 10:29) [2]

Еще перед выше указанным желательно проверить, а нет ли уже такого алиаса. Session.IsAlias("Alias"), ну а дальше по аналогии все просто...

← →
MagG0T © (2002-04-14 16:12) [3]

Возникли вопросы:
- а где именно указывается имя алиаса???
- где нужно писать данный код (т.е. в OnCreate или ещё где)

← →
MagG0T © (2002-04-14 16:44) [4]

Просто напросто проблема в следующем:
т.к. мне нужно объявить алиасы, то значит на данный момент их не существует. Но все компоненты ссылаются на них. А потому при создании формы на которой эти компоненты находятся вылетает ошибка о нсуществовании данного алиаса!!!

← →
ava © (2002-04-14 23:34) [5]

процедура работает только Алиас свой поставь и пути

var
List : TStringList;
begin
List := TStringList.Create;
if Session.IsAlias("ИМЯ") then /проверяем еси есть
begin
Session.DeleteAlias("Payfond"); /уничтожаем
List.Add("DEFAULT DRIVER=PARADOX"); /создаем новый
List.Add("ENABLE BCD=FALSE");
List.Add("PATH=C:\Program Files\Ava\Pfond\db");
Session.AddAlias("PayFond", "STANDARD", List);
Session.SaveConfigFile();
List.Free;
end
else
begin
List.Add("DEFAULT DRIVER=PARADOX"); /если нет то просто
/ создаем новый
List.Add("ENABLE BCD=FALSE");
List.Add("PATH=C:\Program Files\Ava\Pfond\db");
Session.AddAlias("PayFond", "STANDARD", List);
Session.SaveConfigFile();
List.Free;
end;
end;

Вообще вчера сталкнулся с такой же проблемой
Написал маленький корявенький установщик
на базе WinRar, устанавливает BDE, затем запускает программу установки, прописывает Алиасы и создает папку в Пуск-Программы
если надо то пиши на мыло скину.

← →
SB.John (2002-04-15 09:13) [6]

Алиасы надо создавать до создания DataModule. Я надеюсь у тебя все DataSet"ы там лежат? Если нет то алиасы надо создавать до создания первой формы с активным DataSet"ом. Reindeer Moss Eater в принципе правильно написал, но в твоем случае удобнее использовать функцию AddAlias или AddStandartAlias. Примерно так:

if not Session.IsAlias(MyAliasName:String) then Session.AddAlias(...)

To ava:
Надо!!!

Автоматическое объявляние алиасов Найти похожие ветки