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

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

файл для хранения настроек подключения [D7, MSSQL]

Maestro ©   (2007-02-11 23:02:00) 

Подскажите как мне сделать чтобы приложение-клиент брало натройки подключения из файла, который находится в той же папке (например, файл xml или ini). Перемещение папки не должно влиять на обнаружения файла настроек.
Заранее спасибо.

---

Maestro   (2007-02-13 11:08:00) [1]

Всем большое спасибо за помощь

---

Reindeer Moss Eater   (2007-02-12 11:19:00) [2]

ChangeFileExt(ParamStr(0),'.xml');

---

zdm   (2007-02-12 09:50:00) [3]

Извечная проблема! Экстракт пути запуска при ограниченном доступе юзера может привести к access denied, поэтому либо заранее создавать папку с "расширенными правами" для доступа "можно всем всё", либо, что даже лучше, пропатч переменной среды к юзерской дериктории.

---

fd979   (2007-02-12 09:08:00) [4]

Файл настройки тоже будет перенесен или нет?
если да можно так (файл настроек находится в той же папке, что и ехешник):

Var
 C : TStrings;
begin
 C := TStringList.Create;
 C.LoadFromFile('Путь к файлу');
 ADOConnection.ConnectionString := C.Text;
...
end;

Чтобы создать *.udl файл, создаешь обыкновенный пустой тексовый файл с расширением udl. Открываешь его и настраиваешь коннекшн...
Но вообще я бы не стал привязываться к какому-либо файлу, а что если его удалит какой-нибудь умник? Я делаю так:

 ProviderNames := TStringList.Create;
 ProviderNames.Clear;
 GetProviderNames(ProviderNames);

 for i := 0 to ProviderNames.Count - 1 do
   if Pos('SQLOLEDB', ProviderNames.Strings[i]) <> 0 then
   begin
     s1 := 'Provider=' + ProviderNames.Strings[i] + ';Password=';
     Break
   end;

   S1 := S1 + PWD + ';Persist Security Info=True;User ID=';
   S1 := S1 + UserNameName + ';Initial Catalog=' + DBName + ';Data Source=' + ServerName;
 ADOConnection.ConnectionString := S1;

 Хранить СервенНейм, Юзернейм и пароль можно в Регистре в каком-нибудь зашифрованном виде либо прямо в ехешнике прописать (я не прописываю в ехешник).

---

Германн   (2007-02-12 00:30:00) [5]

> Maestro ©   (11.02.07 23:02)
>
> Подскажите как мне сделать чтобы приложение-клиент брало
> натройки подключения из файла, который находится в той же
> папке

"Полное имя файла настроек":=ExtractFilePath(Application.ExeName)+'MyConfig.ini';

---

Maestro   (2007-02-12 00:21:00) [6]

но как прописать к нему путь, чтобы при переносе программы на другой компьютер не терялась с ним связь?

---

fd979   (2007-02-11 23:56:00) [7]

*.udl?

---

Наверх