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

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

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

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

БОЛЬШОЙ FAQ ПО DELPHI



Получение пути псевдонима и таблицы 2

Вот маленький примерчик того, как в Delphi можно получить информацию о псевдонимах. Для начала создайте новый проект с ListBox и тремя метками (с именамиListBox1, Label1, Label2 и Label3). Затем создайте обработчик события формы OnCreate с примерно следующим кодом:


 procedure TForm1.FormCreate(Sender: TObject);
 begin
   Session.GetAliasNames(ListBox1.Items);
 end;
 

Теперь создайте обработчик OnClick для ListBox:


 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);
   end;
 end;
 

Добавьте следующие модули в секцию 'uses' в верхней части модуля:


 DB, DBTables, DBITypes, DBIProcs;
 

Теперь вы можете увидеть путь для всех ваших стандартных псевдонимов (Paradox и dBase).




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



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



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


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