Alguien ha utilizado dbiaddalias()

[rfernandez]

es una función de bde para crear un alias desde delphi.
Pues bien, necesito crear una para INTRBASE, sigo lo que dice el manual, en un principio no peta pero me voy al bdeadmin y no aparece la entrada que en teoria se ha creado.

alguien lo ha hecho, alguien tiene algun ejemplo.
Gracias.

[roman]

El último parámetro de la función es para indicar si el alias se guarad para todas las sesiones o sólo para la sesión actual. ¿Intentaste ponerlo en true?

// Saludos

[dario61081]

proba el siguiente, a mi me funcion bien.:cool:

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