Array
(
)

selecionar Aliases

Michelle
   - 17 ago 2004

Preciso criar uma interface que permita ao usuário selecionar a base de dados que deseja consultar.
Gostaria de saber se existe uma forma de programar algum objeto para que ele receba uma lista de todos os aliases que aparecem no BDEAdmin,
dessa maneira posso configurar meu DataBase para receber o alias que o usuário selecionar.

É urgente!

Grata

Michelle



:arrow: Título Alterado pelo Moderador oTTo. Removido: ´URGENTE´.


Motta
   - 17 ago 2004

#Código


465 - Obtendo a lista de Aliases disponíveis
Tudo que você precisa é de um componente TSession, TListBox e uma StringList.

Defina a propriedade SessionName do TSession para ´Session´.

Utilize o seguinte código:

procedure TForm1.Button1Click(Sender: TObject);
var
MyStringList: TStringList;
i: integer;
begin
MyStringList := TStringList.Create;
Session.GetAliasNames(MyStringList);
for I := 0 to MyStringList.Count - 1 do
ListBox1.Items.Add(MyStringList[I]);
end;
Utilize o Help do TSession e consulte seus métodos para ver por exemplo como capturar o diretório ou caminho de um Alias com o método ´GetAliasParams´.




fonte

HP:www.lloydsoft.hpg.ig.com.br