Народ, подскажите пожалуйста: Как динамически создавать алиас ?

← →
nitro313 (2002-07-03 14:52) [0]

Народ, подскажите пожалуйста: Как динамически создавать алиас к базе данных Paradox. И что нужно, чтобы
перенести эту базу данных на другой компьютер, чтобы она там запустилась? :)

Заранее благодарен.

← →
VAleksey © (2002-07-03 14:58) [1]

по моему так
Session.AddStandartAlias
скопировать файлы> создать алиас

← →
ArhAngel2 © (2002-07-03 15:05) [2]

Как создавать псевдонимы здесь:
http://www.cydsoft.com/vr-online/12_2000/delphi1.htm
Для того, что бы работало без на другой машине брось эти файлы в каталог вместе с прогой:
BANTAM.DLL
IDAPI32.DLL
IDBAT32.DLL
IDPDX32.DLL
IDR20009.DLL
IDSQL32.DLL

procedure TMainForm.btCreateAliasClick(Sender: TObject);
var
i,j: integer;
begin
// Проверить наличие алиаса с таким же именем
ls.Clear;
Session.GetAliasNames(ls); // Получить список всех алиасов
for i := 0 to ls.Count-1 do
if CompareText(ls[i],MainForm.edNewAliasName.Text)=0 then break;
if i<=ls.Count-1 then // Алиас есть в IDAPI.Cfg
begin
if Session.GetAliasDriverName(ls[i]) = "STANDARD" then
// Алиас типа Paradox -> Найти его в списке Алиасов
for j := 0 to MainForm.lsbAliases.Count-1 do
if CompareText(MainForm.lsbAliases.Items[j],ls[i])=0 then
begin
MainForm.lsbAliases.ItemIndex := j;
ShowAliasInfo(ls[i]);
break;
end;
MainForm.edNewAliasName.Text := ls[i];
ShowMessage("Алиас с таким именем уже есть в IDAPI.cfg");
exit;
end;
sAliasName := MainForm.edNewAliasName.Text;
sAliasDir := MainForm.lbDirPath.Caption;
rmfNewAlias.edNewAlName.Text := sAliasName;
rmfNewAlias.edNewAlDir.Text := sAliasDir;
rmfNewAlias.ShowModal;
if sAliasName="" then exit;
// Создание нового алиаса
Session.AddStandardAlias(sAliasName,sAliasDir,"PARADOX");
Session.SaveConfigFile;
LoadAliasesList;
ShowAliasInfo(sAliasName);
end;

Народ, подскажите пожалуйста: Как динамически создавать алиас ? Найти похожие ветки