Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Create Aliases in BDE from app????

0 views
Skip to first unread message

Per Nunn

unread,
May 2, 1997, 3:00:00 AM5/2/97
to

Hi

I am about to make an application, that should change an existing alias in
the BDE, so that other application can use this alias.

I can only find information about how to make local aliases.

If you have any info on how to do this please mail me.

Regards

Per Nunn

--
I am: p...@ammulti.dk

Kirk B. Spadt

unread,
May 2, 1997, 3:00:00 AM5/2/97
to

In article <01bc56d6$2addcba0$f240...@tg.ammulti.dk>,

See AddAlias() as listed below.

It creates the path if not created, and adds the alias if not already
there. (No errors if already there.)

uses
Sysutils, DbiTypes, DbiProcs, DbiErrs;

procedure AddAlias(const AliasName: String; const AliasPath: String);
var
AliasNameStr: Array[0..40] of Char;
AliasPathStr: Array[0..144] of Char;
IORtn: Integer;
Rtn: DBIResult;
begin
{$I-}
MkDir(AliasPath);
IORtn := IOResult;
{$I+}
StrPCopy(AliasNameStr, AliasName);
StrPCopy(AliasPathStr, 'PATH:' + AliasPath);
Rtn := DBIAddAlias(Nil, AliasNameStr, Nil, AliasPathStr, True);
if Rtn <> DBIERR_NAMENOTUNIQUE then
Check(Rtn);
end;


------------------------------------------------
Kirk B. Spadt ksp...@keyware.com
Keyware Systems, Inc.
570 Lindsey Drive (610) 964-9530
Radnor, PA 19087 (610) 964-0543 fax

William F. McCoy

unread,
May 3, 1997, 3:00:00 AM5/3/97
to

On CompuServe, I found "ALIASMAN.ZIP" which provides you with a VCL
component for managing BDE alias information. I have used it in a 16-bit
application without problems.


0 new messages