Alguien ha utilizado dbiaddalias()

[dario61081]

proba el siguiente, a mi me funcion bien.

procedure tform1.fDbiAddAlias2(AliasName, AliasPath: string);
var
cursor: hDBICur;
begin

bde.dbiinit(nil);
bde.DbiBeginDelayedUpdates(cursor);
bde.DbiApplyDelayedUpdates(cursor,dbiDelayedUPDPREPARE);
DbiAddAlias(nil, PChar(AliasName), 'INTRBASE', PChar(AliasPath), True);
bde.DbiApplyDelayedUpdates(cursor,dbiDelayedUpdCommit) ;
bde.DbiEndDelayedUpdates(cursor);
bde.DbiExit;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
fDbiAddAlias2('TKK', 'PATH:127.0.0.1:c:\databases;' +
'SERVER NAME:127.0.0.1:c:\databases\avx.fdb;' +
'USER NAME:SYSDBA;' +
'SQLQRYMODE:SERVER;' +
'SQLPASSTHRU MODE:SHARED NOAUTOCOMMIT');
end;


ojo: en uses debes usar DB y BDE