Параметры соединения DSN через BDE

← →
Alex' (2006-09-14 12:44) [0]

Мастера! Как получить параметры DSN из алиаса BDE настроенного на него. В частности нужен "TNS Service Name" драйвера "Oracle IN XE". Где копать ?

← →
Alex' (2006-09-14 15:49) [1]

Может и сделал из рук вон по-русски, но проблему решил так:

читаем название DSN из алиаса BDE

var x: TCurrentDate;
ParamsList: TStringList;
AliasName, DSNName:String;
begin
AliasName:="XE";
ParamsList := TStringList.Create;
try
with Session do
begin
Session.GetAliasNames(ParamsList);
Session.GetAliasParams(AliasName, ParamsList);
DSNName:=Copy(ParamsList[2], 10, 50));
end;
finally
ParamsList.Free;
end;

Потом расчитываем реестр по пути
HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\ + переменная DSNName
и собственно храняшиеся параметры DSN.
"ServerName" оказался "TNS Service Name" драйвера "Oracle IN XE".

Параметры соединения DSN через BDE Найти похожие ветки