• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 560
  • Last Modified:

Creating a permanent Alias in IDAPI32.CFG file

Hi Experts,
I'm trying to add a new Alias to the IDAPI32.CFG file, which I want to stay permanently. i.e.

  Check(DbiAddAlias(nil, PChar(AliasName), nil, PChar(AliasPath), True));

The problem is the new Alias only remains in the IDAPI32.CFG file for the current session.  On closing the session the new Alias is deleted!

Many thanks
0
Vector7
Asked:
Vector7
1 Solution
 
rfwoolfCommented:
This is how I do it.

First make sure you have added DBTables to your unit's uses clause.

Then in a procedure such as a OnButtonClick:

Let me know if it works :)

var
sNewAlias, sDataDir :string;
mystringlist : TStringlist;
daindex : integer;
begin
mystringlist := TStringlist.Create;
 
//Assign name of the Alias to a string
sNewAlias := 'MyNewAlias';
//Assign name of the Alias's data directory to a string
sDataDir := Edit1.text;
//In the current session, grab the names of all the aliases and store them in myStringList
session.GetAliasNames(mystringlist);
//Get the index of your desired new alias - if it already exists you'll get a number > -1, else you'll get -1
daIndex := mystringlist.IndexOf('MyNewAlias);
 
//If the Alias already exists, delete it
if daIndex <> -1 then
Session.DeleteAlias('MyNewAlias');
 
//Now add the new alias, note the last section will create a 'PARADOX' database alias.
Session.AddStandardAlias(sNewAlias, sDataDir, 'PARADOX') ;
 
//And here's your magic line: SAVE THE CFG FILE!
Session.SaveConfigFile;
 
end;

Open in new window

0
 
diniludCommented:
 procedure ChangeAliasDirPARADOX(Alias, Dir: String);
  begin
    if DirectoryExists(Dir) then
    begin
      if Session.IsAlias(Alias) then  Session.DeleteAlias(Alias);
      Session.AddStandardAlias(Alias, Dir, 'PARADOX');
      Session.SaveConfigFile;
    end;
  end;
0
 
Vector7Author Commented:
Works well. Many thanks.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now