Dicas - Aliases

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Dica de como listar informações dos Aliases (BDE).

Listando informações dos Aliases

 

Com o código abaixo você poderá desenvolver um pequeno aplicativo para obter informações dos aliases contidos em sua máquina. Inicie uma nova aplicação. Insira no formulário, 4 componentes do tipo TLabel e um TListBox. No evento OnCreate do objeto Form1 digite o seguinte código:

 

procedure TForm1.FormCreate(Sender: TObject);

begin

   Session.GetAliasNames(ListBox1.Items);

end;

 

Agora no evento OnClick do componente ListBox insira:

 

procedure TForm1.ListBox1Click(Sender: TObject);

var

   tStr: array[0..100] of char;

   Desc: DBDesc;

begin

   if ListBox1.Items.Count = 0 then

      exit;

   StrPLCopy(tStr, ListBox1.Items.Strings[ListBox1.ItemIndex], High(tStr));

   DbiGetDatabaseDesc(tStr, @Desc);

   with Desc do

   begin

     Label1.Caption := StrPas(Desc.szName);

     Label2.Caption := StrPas(Desc.szPhyName);

     Label3.Caption := StrPas(Desc.szDbType);

     Label4.Caption := StrPas(Desc.szText);

   end;

end;

 

Repare que, ao executar o programa, o ListBox já vai trazer os aliases listados. A partir daí, basta você selecionar cada um deles e observar nos Labels o resultado.

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?