Вопрос и Ответ 38 < Вопросы и Ответы по Delphi < Delphi

Новые книги

Salix, первоначально носивший имя Salix OS (официальный сайт проекта) представляет собой один из дистрибутивов Linux, основанных на Slackware, старейшей из ныне живущих Linux-систем. От прародительницы он унаследовал простоту устройства и здоровый консерватизм, привнеся, однако, некоторые черты, свойственные так называемым «дружелюбным» (user friendly) дистрибутивам. Впрочем, как читатель увидит в дальнейшем, его «дружелюбие» никогда не становится навязчивым.

Коллективный разум. Как извлечь максимум из интеллектуального разнообразия, которое вас окружает

За последние несколько лет нейрофизиологи сделали множество важных открытий, касающихся человеческого мозга и способных существенно облегчить задачу межличностного взаимодействия. В этой книге специалист по когнитивной нейробиологии Дона Маркова и ее коллега Энджи Макартур рассказывают о различных типах мышления и моделях восприятия, способах оперативной суперконцентрации и быстрого переключения внимания на поставленные задачи, выстраивают алгоритм эффективных коммуникаций отдельных личностей в команде. Рисунки, таблицы, тестовые задания и диаграммы превосходно иллюстрируют материал и помогают усвоить и применить на практике методику авторов.

Вопрос и Ответ 38

Версия для печати

Вопросы и Ответы

38. Как из приложения получить псевдонимы DBE, определенные в Database Engine Configuration?

Список определенных псевдонимов находится в объекте Session. Получить его можно с помощью следующей процедуры:

procedure GetAliasNames(List: TStrings);

в качестве единственного параметра передается переменная типа TString. В ней после выполнения процедуры будет содержатся список псевдонимов.

Чтобы получить параметры (тип и путь) определенные для псевдонима, можно воспользоваться процедурой DbiGetDatabaseDesc, которая, по имени псевдонима, заполняет структуру типа DBDesc необходимыми значениями.

Пример:

............

USES

DB, DBITypes, DBIProcs;

............

{получение списка псевдонимов}
procedure TForm1.FormCreate(Sender: TObject);
begin

Session.GetAliasNames(ListBox1.Items);

end;

............

{получение параметров для выбранного псевдонима}
procedure TForm1.ListBox1Click(Sender: TObject);
VAR

tStr: ARRAY[0..31] 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

Caption := 'Alias - '+StrPas(Desc.szName);
eType.Text := StrPas(Desc.szDbType);
ePath.Text := StrPas(Desc.szPhyName);

END;

end;

............

...предыдущая страница следующая...
оглавление