| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

worldmen ©   (2006-08-29 10:12:00) 

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

---

~SerJant~   (2006-08-29 13:45:00) [1]

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

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;

---

worldmen   (2006-08-29 10:22:00) [2]

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

---

Наверх