unit AliasAdder;
// 23 - 26  Jan  1998  Delphi  3  Component
//**************************************************************
**
//hDrummer
// This component adds alias that exists while your program runnin'
// NOTE: 1.Alias adds for CURRENT SESSION only
//           2.Path must EXIST
// WARNING:
//       1.Do not forget to add DBIExit clause to the Form' OnDestroy event,
//         if you have not any component from  "Data Access"  or  "Data Controls" 
//         on the any form of your project
//**************************************************************

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, BDE;

type
  TAliasAdder = class(TComponent)
  private
    { Private declarations }
    FAlias    :string;
    FPath     :string;
    FAddError :string;
    FBDEError :string;
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor Create(AOwner :TComponent);override;
    procedure AddAlias(FAlias, FPath :string);
  published
    { Published declarations }
    property prAlias :string read FAlias write FAlias;
    property prPath  :string read FPath write FPath;
    property prBDEIniError:string read FBDEError write FBDEError;
    property prError :string read FAddError write FAddError;
  end;

procedure Register;

implementation
//************************************************************************************
Constructor TAliasAdder.Create;
Begin
 inherited;
 FAlias:='NewAlias';
 FPath:='Path';
 FAddError:='None';
 FBDEError:='None';
End;{cns}
//************************************************************************************
Procedure TAliasAdder.AddAlias;
Var
 _DBIResult : DBIResult;
Begin

//**********************BDE initialization**********************************************

 _DBIResult:=DBIInit(Nil);
 Case _dbiResult of
  DBIERR_NONE	      :FBDEError:='Успешное завершение';
  DBIERR_MULTIPLEINIT :FBDEError:='Попытка многократной инициализации';
 Else
  FBDEError:='Неизвестная ошибка';
 End;{case}

//**********************Adding NEW alias*****************************************************

 _DBIResult:=DbiAddAlias(Nil, PChar(FAlias), Nil, PChar('PATH:'+FPath), True);
 Case _dbiResult of
  DBIERR_INVALIDPARAM :FAddError:='Неверные параметры';
  DBIERR_NONE	      :FAddError:='Успешное завершение';
  DBIERR_NAMENOTUNIQUE:FAddError:='Псевдоним с таким именем уже существует';
  DBIERR_OBJNOTFOUND  :FAddError:='Нужные параметры не найдены';
  DBIERR_UNKNOWNDRIVER:FAddError:='Неизвестный драйвер';
 Else
  FAddError:='Неизвестная ошибка';
 End;{case}
End;
//************************************************************************************

procedure Register;
begin
  RegisterComponents('hDrummer', [TAliasAdder]);
end;

end.