17/08/2004

selecionar Aliases

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

Respostas

17/08/2004

Motta

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&93;); 
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


Responder Citar