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

Новые книги

Вы занимаетесь продажами? Тогда вам наверняка знакомо чувство отчаяния из-за непредсказуемого поведения ваших клиентов или ваших собственных действий, оказавшихся ошибочными. Хотя вы, казалось бы, все просчитали.

Дэвид Сэндлер начал карьеру в отделе продаж, будучи разорившимся бизнесменом. Спустя некоторое время он ушел, чтобы… открыть собственную компанию по обучению технике продаж. Очень скоро Сэндлер приобрел широкую известность, а 49 неочевидных, провокационных, но действенных «правил Сэндлера» вошли в арсенал многих успешных продавцов.

Книга адресована всем, кто продает – товары, услуги, мысли, идеи. Постоянно или время от времени.

YouTube: Путь к успеху

Эта книга про то, как создать успешный канал на Youtube. Зачем? Например, чтобы зарабатывать деньги разными способами. Кроме того, с помощью канала на Youtube можно делиться идеями, учить людей, рекламировать продукцию и осуществлять пропаганду — в общем, влиять на умы и сердца людей в корыстных и бескорыстных целях.

Вопрос и Ответ 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;

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

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