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

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

Как в сессии изменить значение NLS_LANG ? [D5]


ANT1 ©   (2004-10-04 18:38:00) 

Подскажите, как в процессе выполнения приложения можно изменить параметр NLS_LANG в НKEY_LOCAL_MACHINE\Oracle\Home0\NLS_LANG


Vlad   (2004-10-04 19:48:00) [1]


> ANT1   (04.10.04 18:38)  
> Подскажите, как в процессе выполнения приложения можно изменить
> параметр NLS_LANG в НKEY_LOCAL_MACHINE\Oracle\Home0\NLS_LANG


Где менять-то надо - в реестре или в сессии?
Это я к тому что название темы с содержимым как-то не очень вяжется
Для изменения параметров сессии служит конструкция
ALTER SESSION SET ... см. доки по Ораклу


panov   (2004-10-04 19:18:00) [2]


procedure SetRegistryKeyBDE;
var
 reg: TRegistry;
 NumHomes: String;
begin
 reg := TRegistry.Create;
 try
   reg.RootKey := HKEY_LOCAL_MACHINE;

   if reg.OpenKey('\SOFTWARE\ORACLE\ALL_HOMES',False) then
   begin
     NumHomes := reg.ReadString('LAST_HOME');
     reg.CloseKey;
   end;

   if reg.OpenKey('\SOFTWARE\ORACLE\HOME'+NumHomes,False)
     then reg.WriteString('NLS_LANG','AMERICAN_AMERICA.RU8PC866');
 finally
   reg.CloseKey;
   reg.Free;
 end;

end;


Наверх

Титульная страница Поиск, карта сайта Написать письмо