wm-help.net -> Электронная библиотека -> Delphi -> Вопросы и Ответы по Delphi -> Вопрос и Ответ 38 -> Версия для печати

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

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

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

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

Rambler's Top100