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

Новые книги

Facebook: как найти 100 000 друзей для вашего бизнеса бесплатно

Очень мало людей понимают, как правильно использовать для бизнеса социальные сети. Между тем это мощный и практически бесплатный инструмент, позволяющий собрать вокруг компании сотни тысяч друзей и получать в месяц до миллиона контактов с реальными и потенциальными клиентами. Потребуется лишь немного времени на создание страницы компании в Facebook и «Вконтакте», дисциплинированность в поддержке коммуникации с ее посетителями и выполнение ряда рекомендаций, которые вы и найдете в этом издании. Автор уже «наступил на грабли» за вас и расскажет об ошибках и удачных решениях.

Эта книга будет наиболее полезной для маркетологов, PR-специалистов, предпринимателей. А также для тех, кто хочет понять, как социальные сети помогают бизнесу.

Facebook: как найти 100 000 друзей для вашего бизнеса бесплатно

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

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

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