Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

Видеокурс программиста и крэкера 5D 2O17
(актуальность: октябрь 2O17)
Свежие инструменты, новые видеоуроки!

  • 400+ видеоуроков
  • 800 инструментов
  • 100+ свежих книг и статей

УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Получение информации об альясах


 uses DB, DBTables, DBITypes, DBIProcs;
 
 procedure TForm1.FormCreate(Sender: TObject);
 begin
   Session.GetAliasNames(ListBox1.Items);
 end;
 
 procedure TForm1.ListBox1Click(Sender: TObject);
 var
   tStr: array[0..100] of char;
   Desc: DBDesc;
 {
  The DBDesc structure describes a database, using the following fields:
 
  szName     DBINAME  Specifies the database alias name.
  szText     DBINAME  Descriptive text.
  szPhyName  DBIPATH  Specifies the physical name/path.
  szDbType   DBINAME  Specifies the database type.
 }
 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;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS