Параметры соединения DSN через BDE
Alex' © (2006-09-14 12:44:00)
Мастера! Как получить параметры DSN из алиаса BDE настроенного
на него. В частности нужен "TNS Service Name" драйвера "Oracle IN
XE". Где копать ?
Alex' (2006-09-14 15:49:00) [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".
Наверх 
ЧАТ |
Орешник |
|
