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]