Как программно можно создать Alias ???

← →
Maniak (2003-01-16 16:18) [0]

Мастера! Помогите пожалуйста! Как можно программно создать Alias?

← →
gsu (2003-01-16 16:26) [1]

procedure TSession.AddAlias(const Name, Driver: string; List: TStrings);

← →
Maniak (2003-01-16 16:37) [2]

Ага, спасибо. А где указывать путь к БД и название Alias"a?

← →
gsu (2003-01-16 16:58) [3]

var
MyList: TStringList;
begin
MyList := TStringList.Create;
try
with MyList do
begin
Add("SERVER NAME=IB_SERVER:/PATH/DATABASE.GDB");
Add("USER NAME=MYNAME");
end;
Session1.AddAlias("NewIBAlias", "INTRBASE", MyList);
finally
MyList.Free;
end;
end;

← →
MsGuns (2003-01-16 19:30) [4]

Для Paradox лучше AddStandardAlias

← →
Reindeer Moss Eater (2003-01-16 19:42) [5]

Для всего (не только для Paradox) лучше без Alias

← →
gsu (2003-01-16 19:42) [6]

procedure TSession.AddStandardAlias(const Name, Path, DefaultDriver: string);
var
AliasParams: TStringList;
begin
AliasParams := TStringList.Create;
try
AliasParams.Add(Format("%s=%s", [szCFGDBPATH, Path]));
AliasParams.Add(Format("%s=%s", [szCFGDBDEFAULTDRIVER, DefaultDriver]));
AddAlias(Name, szCFGDBSTANDARD, AliasParams);
finally
AliasParams.Free;
end;
end;

но есть зависимость.

← →
Reindeer Moss Eater (2003-01-16 20:14) [7]

А все же лучше без Alias

← →
MsGuns (2003-01-16 20:35) [8]

>Reindeer Moss Eater (16.01.03 20:14)
>А все же лучше без Alias

Чем же конкретно-то лучше ?

← →
Reindeer Moss Eater (2003-01-16 20:57) [9]

Тем, что не пересечешься с возможно уже сущестующюим алиасом

Как программно можно создать Alias ??? Найти похожие ветки