> I want change "SERVER NAME" property (for ORACLE type connection with TNS)
> by programming with dbiXXX functions
> but if I use dbiAddAlias the function fail

> function SetServerName(const theAlias, theServerName: String;
>   var theErrorStr: String): Boolean;
> var
>   AParams: TStringList;
> begin
>   Result:= False;
>   theErrorStr:= 'internal error';

>   try
>     AParams := TStringList.Create;
>     try
>       AParams.Add('SERVER NAME=' + theServerName);
>       Session.ModifyAlias(theAlias,AParams);
>       Session.SaveConfigFile;

>       Result:= True;
>     finally
>       AParams.Free;
>     end;
>   except
>     on E: Exception do theErrorStr:= E.message;
>   end
> end;

> "Utilisateur1" <patrick.richar...@wanadoo.fr> schrieb im Newsbeitrag
> news:ar7qfn$7pq$1@wanadoo.fr...
> > Hi all

> > I want change "SERVER NAME" property (for ORACLE type connection with
TNS)
> > by programming with dbiXXX functions
> > but if I use dbiAddAlias the function fail