Lista de Alias Cadastrados no BDE?
Como faço para conseguir via Programação Delphi uma lista dos Alias cadastrados no BDE.
Se alguem puder me ajudar ficarei muito grato.
Atencioisamente,
Tadeu Rodrigues de oliveira
Se alguem puder me ajudar ficarei muito grato.
Atencioisamente,
Tadeu Rodrigues de oliveira
Numeros.info
Curtidas 0
Respostas
Motta
18/02/2005
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
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