Форум: "Базы";
Текущий архив: 2007.04.29;
Скачать: [xml.tar.bz2];
Внизфайл для хранения настроек подключения Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.042 c