Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.04.29;
Скачать: CL | DM;

Вниз

файл для хранения настроек подключения   Найти похожие ветки 

 
Maestro ©   (2007-02-11 23:02) [0]

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


 
fd979 ©   (2007-02-11 23:56) [1]

*.udl?


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

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


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


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

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


 
fd979 ©   (2007-02-12 09:08) [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;


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


 
zdm ©   (2007-02-12 09:50) [5]

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


 
Reindeer Moss Eater ©   (2007-02-12 11:19) [6]

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


 
Maestro ©   (2007-02-13 11:08) [7]

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



Страницы: 1 вся ветка

Текущий архив: 2007.04.29;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.038 c
6-1162409754
Amt2001
2006-11-01 22:35
2007.04.29
Типы Indy 10


15-1175760193
ocean
2007-04-05 12:03
2007.04.29
Переписать DVD, подавив один из звуковых каналов


2-1176115221
Provodnick
2007-04-09 14:40
2007.04.29
Цвет текста заголовка TTabSheet в TPageControl


2-1176440360
allucard
2007-04-13 08:59
2007.04.29
Как создать папку?


15-1175363532
homm
2007-03-31 21:52
2007.04.29
В борланд С++ 5.02 не компицца :(





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский