selecionar Aliases

Delphi

17/08/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: [color=red:ce8faadb8f]Título Alterado pelo Moderador oTTo. Removido: ´URGENTE´.[/color:ce8faadb8f]


Michelle

Michelle

Curtidas 0

Respostas

Motta

Motta

17/08/2004

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


GOSTEI 0
POSTAR