Einen BDE Alias ohne Datenbankkomponenten erzeugen

[p0ke]

Folgende kleine Prozedur wurde mit Hilfe der der BDE beiliegenden "Introduction to programming" erzeugt:

Delphi-Quellcode:

uses BDE;

procedure NewAlias(Alias, Driver, Params : PChar);
begin
  DbiInit(nil);
  try
    DbiAddAlias(nil, Alias, Driver, Params, True);
    DbiCfgSave(nil, nil, True);
  except
    ShowMessage('BDE Fehler!');
  end;
  DbiExit();
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Übergabe der Parameter mit Eigenschaft : Wert
  // Mehrere Parameter durch ; trennen
  // Beispiel für das Anlegen eines Interbase Alias mit 2 Parametern
  NewAlias('MyAlias','INTRBASE','USER NAME: MYNAME; SQLQRYMODE: LOCAL');
end;

[edit=Matze]Code korrekt formatiert. Mfg, Matze[/edit]