Creating Aliases using Code instead of the BDE Config - Urgent

Hello,

Can anyone tell me how or point me towards some information on the creation of BDE aliases using code? I am using Delphi 1.0 w/ BDE 2.5 (16 Bit) (a must).

I am new to Delphi programming, so a code sample would be most helpful and most appreciated.

Thanks.

Jose Negron
Jose_Negron@dtc.org
jnegronAsked:
Who is Participating?
 
MarciusCommented:
Hi Jose,

You need to use the BDE API function AddAlias.

function DbiAddAlias (hCfg: hDBICfg; pszAliasName: PChar; pszDriverType: PChar; pszParams: PChar; bPersist: Bool): DBIResult stdcall;

This is a nasty looking function call, so I will try to give an example which makes it easier to understand. For further information, you need to look in the BDE API help file and search for the AddAlias function.


1. Add the following units to your uses clause:

uses DB, DbiProcs;

2. Add a procedure like this:

procedure AddMyAlias(AliasName, AliasPath: String);
begin  
  // Check takes a DbiResult and determines if there is an error
  Check(dbiInit(Nil));  // Require in order to use DbiAddAlias
  Check(DbiAddAlias(Nil, PChar(AliasName), Nil,
        PChar(AliasPath), True));
end;

3. Call the function like this:

AddMyAlias('TestAlias','PATH:C:\MYPATH');


0
 
GreedyCommented:
0
 
jnegronAuthor Commented:
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.

All Courses

From novice to tech pro — start learning today.