Список алиасов из BDE.

← →
worldmen © (2006-08-29 10:12) [0]

Не могу найти где содержится список алиасов.
По моему был в TSession, но немогу найти, чтобы вывести его в Memo.

← →
worldmen © (2006-08-29 10:22) [1]

Нашел :
Session.GetAliasNames(Memo1.Lines);

← →
~SerJant~ (2006-08-29 13:45) [2]

у мну так сделано:

ComboBoxAliases - обычный TComboBox....

procedure TStartForm.FormCreate(Sender: TObject);
var
TmpCursor: hDbiCur;
Database_: DBDesc;
rslt: DbiResult;
vini:TIniFile;
vAliasName:String;
begin
//Добавление в список имён алиасов
Check(dbiInit(nil));
Check(DbiOpenDatabaseList(TmpCursor));
Repeat
rslt:=DbiGetNextRecord(TmpCursor, dbiNOLOCK, @Database_, nil);
if (rslt <> DBIERR_EOF)
and (Database_.szDbType="INTRBASE") then
ComboBoxAliases.Items.Add(StrPas(Database_.szName));
until (rslt <> DBIERR_NONE);
Check(DbiCloseCursor(TmpCursor));

//Добавили...я тут в INI-файл последний использованный алиас заношу
vIni:=TIniFile.Create(GetCurrentDir+"\myProg.ini");
vAliasName:=vIni.ReadString("alias_param", "alias_name", "0");
Edit1.Text:=vini.ReadString("alias_param","username","");
vIni.Free;
If ComboBoxAliases.Items.IndexOf(vAliasName)>=0 then
ComboBoxAliases.ItemIndex:= ComboBoxAliases.Items.IndexOf(vAliasName)
Else
ComboBoxAliases.ItemIndex:=0;
end;

Список алиасов из BDE. Найти похожие ветки