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

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

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

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

БОЛЬШОЙ FAQ ПО DELPHI



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

Используйте Session.GetAliasParams. В ответ вы получите объект Tstrings, откуда вы можете получить значение для переменной 'PATH". Для получения дополнительной информации обратитесь к электронной справке к разделу, описывающему TSession. Объект Session объявлен в модуле DB.


 uses  db;
 
 var
   aliaspath: string[128];
 begin
   aliaspath := Session.GetAliasParams['MyAlias'].values['PATH'];
 end;
 


 uses SysUtils,DbiProcs, DBiTypes;
 ...
 
 function GetDataBaseDir(const Alias : string): String;
 (* Возвращает каталог базы данных, на которую
 ссылается псевдним (без конечного обратного слеша) *)
 var
   sp: PChar;
   Res: pDBDesc;
 begin
   try
     New(Res);
     sp := StrAlloc(length(Alias)+1);
     StrPCopy(sp,Alias);
     if DbiGetDatabaseDesc(sp,Res) =  0 then
       Result := StrPas(Res^.szPhyName)
     else
       Result := '';
   finally
     StrDispose(sp);
     Dispose(Res);
   end;
 end;
 




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



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



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


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