Вопросы и Ответы
38. Как из приложения получить псевдонимы DBE, определенные в Database Engine Configuration?
Список определенных псевдонимов находится в объекте Session. Получить его можно с помощью следующей процедуры:
procedure GetAliasNames(List: TStrings);
в качестве единственного параметра передается переменная типа TString. В ней после выполнения процедуры будет содержатся список псевдонимов.
Чтобы получить параметры (тип и путь) определенные для псевдонима, можно воспользоваться процедурой DbiGetDatabaseDesc, которая, по имени псевдонима, заполняет структуру типа DBDesc необходимыми значениями.
Пример:
............
USES
DB,
DBITypes, DBIProcs; ............ {получение списка псевдонимов} Session.GetAliasNames(ListBox1.Items); end; ............ {получение
параметров для выбранного псевдонима} tStr:
ARRAY[0..31] OF Char; begin IF
ListBox1.Items.Count = 0 THEN Exit; Caption
:= 'Alias - '+StrPas(Desc.szName); END; end; ............
procedure
TForm1.FormCreate(Sender: TObject);
begin
procedure TForm1.ListBox1Click(Sender: TObject);
VAR
Desc: DBDesc;
StrPLCopy(tStr,
ListBox1.Items.Strings[ListBox1.ItemIndex], High(tStr));
DbiGetDatabaseDesc(tStr, @Desc);
WITH Desc DO BEGIN
eType.Text := StrPas(Desc.szDbType);
ePath.Text := StrPas(Desc.szPhyName);
...предыдущая страница следующая...
оглавление