Получить список провайдеров на ПК

HOME_X
Дата: 14.09.2019 12:42:38
Доброго дня господа !

Как получить динамически получить список провайдеров ОS

Т.е. объект\свойство = TADOConnection.Provider = здесь выпадающий список в окне редактора объектов
Можно ли его получить в TStringList в уже запущенном приложении


Признателен за код ....

Спасибо
Dimitry Sibiryakov
Дата: 14.09.2019 13:09:26
Dimitry Sibiryakov
Дата: 14.09.2019 13:11:31

http://www.delphigroups.info/2/43/158376.html

Posted via ActualForum NNTP Server 1.5

ёёёёё
Дата: 14.09.2019 13:27:18
HOME_X
Доброго дня господа !

Как получить динамически получить список провайдеров ОS

Т.е. объект\свойство = TADOConnection.Provider = здесь выпадающий список в окне редактора объектов
Можно ли его получить в TStringList в уже запущенном приложении


Признателен за код ....

Спасибо


uses ADODB;
...
var
  fSL: TStringList;
begin
  fSL := TStringList.Create();
  GetProviderNames(fSL);
  ShowMessage(fSL.Text)


HOME_X
Дата: 14.09.2019 15:22:21
ёёёёё,

Спасибо - все находиться ПОВЕРХУ...но почему то поиск ведется самым сложным путем

Первопричина вопроса следующая
Error while trying to retrieve text for error ORA-010195


Делаю так
Windows 10 64-bit (сервер 12 64-bit )

Delphi7 (32-bit)
-> ADOConnection
(Provider=MSDAORA.1)
(ConnectionString=.....)
-> Ins Client Oracle Oracle 12.2 32-bit (Path-прописаны - коннект идет именно к этому каталогу - отследил)
-> коннект к базе Oracle

Но почему то одно приложение отрабатывает нормально
другое приложение дает ошибку (выше)

И одно и тоже работающее приложение в разных сеансах тонкого клиента сервера Win12
в одном работает в другом нет

Может кто-то сталкивался с таким поведением, изначально предположил что это наличие provider-ов
Теперь не знаю - особенно если учитывать что машина в целом одна и других провайдеров для отдельной сессии никто грузить не будет


Спасибо