Как програмно создать алиас в BDE?

← →
Whippi © (2002-12-09 15:01) [0]

Делаю так:
Session.AddStandardAlias("Kursovik","C:\Evdokimova\date","DBASE"); Session.SaveConfigFile; Session.Close; // иначе он у меня не был сpазу виден Session.Open;
но почему то не получается, подскажите так ли я действую?

← →
asdf (2002-12-09 15:07) [1]

ну глянь в help!

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;

← →
asdf (2002-12-09 15:09) [2]

begin
with Session do
begin
ConfigMode := cmSession;
try
AddStandardAlias("TEMPDB", ExtractFilePath(ParamStr(0)), "PARADOX");
finally
ConfigMode := cmAll;
end;
end;

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