Соединение с БД Access ADOConnection

@NGPOL · Регистрация: 07.09.2017

Студворк — интернет-сервис помощи студентам

Здравствуйте!
Программа - сервер. По задумке, во время запуска должна соединяться с БД Access.
Есть в RemoteDataModule соответствующий компонент. На этапе разработки, строку соединения я сформировал в компоненте, через диалоговое окно. Пришло время переносить программу на другой компьютер. Решил, что текущую папку я сохраню в INI файле и буду читать его при создании модуля данных(при открытии сервера).

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
const AppName = 'OARCardio_srvr';
         DBName  = 'OARCardio_Data.mdb';
...
 
procedure TOARCardioServer.RemoteDataModuleCreate(Sender: TObject);
var DBPath, DBFullName : string;    
    Ini    : TIniFile;
begin 
 Ini := TIniFile.Create(ChangeFileExt(AppName, '.INI' ));  
 DBFullName := Ini.ReadString('DataBase', 'DBSource', RzOpenDialog1.FileName);
 with ADOConnection1 do begin
  Connected:= False;  
  ConnectionString:= 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=' + DBFullName + '; Mode=Share Deny None;';
  Connected:= True;
 end;
 Ini.Free;  
end;

Указанный код не работает. Просто клиент виснет, и ничего не происходит.
Пробовал перенести этот код в секцию ADOConnection1BeforeConnect. Там код работает, но! Категорически не читается INI файл. при выборе из Диалога - происходит нормальный коннект, а вот из INIшника данные не читаются. Тот же самый код работает в программе-клиенте, а в сервере - нет. Мб кто знает, может есть ограничения какие-то?

@D1973 · 04.12.2023, 14:43

Сообщение от NGPOL

Ini := TIniFile.Create(ChangeFileExt(AppName, '.INI' ));

Путь к ini-файлу надо указывать полный. Иначе происходит поиск в системной папке (C:\Windows), там нужного инишника нет - ну и до свидания!

@NGPOL · 04.12.2023, 14:53 **[ТС]**

Хм, наверное, да!
Программа-клиент запускается же из "своей" папки, а сервер - из виндовской... Сейчас поищу, как найти полный путь...

@D1973 · 04.12.2023, 15:31

Сообщение от NGPOL

Сейчас поищу, как найти полный путь

Delphi
1
Ini := TIniFile.Create(Format('%s%s', [ExtractFilePath(ParamStr(0)), ChangeFileExt(AppName, '.INI' )]));

@NGPOL · 04.12.2023, 18:49 **[ТС]**

Спасибо ответившим! Но, видимо INI-файл, это не для сервера. Сохраню его параметры(которые пропишет установщик) - в реестре. Работа с ним аналогичная с INI, но "живёт" он всегда в известном месте.

@Beltar · 04.12.2023, 19:25

А у сервера своей папки нету что-ли? На хрена в виндовую его ложить?

@D1973 · 04.12.2023, 19:44

Сообщение от NGPOL

видимо INI-файл, это не для сервера.

INI-файлы - они для всего, им не важно, рабочая станция это или сервер. У Вас точно инишник рядом с екзешником лежит?

@NGPOL · 04.12.2023, 20:49 **[ТС]**

дело в том, что исполняемый файл сервера лежит в одной папке с INIшником. А вот запускается он - в виндовской папке... Я проверил. Там его(INIшника), понятно дело - нет...
Сейчас боюсь соврать, по-моему в SYSTEM32... Более того, во время создания RemoteDataModule нет объекта Application. Приходится имя исполняемого файла в виде константы вводить. Искать INIшник по системным папкам считаю - нецелесообразным, если есть реестр.

@northener · 06.12.2023, 02:22

Сообщение от NGPOL

А вот запускается он - в виндовской папке...

А нафига он там запускается???

Добавлено через 27 минут

Сообщение от NGPOL

Более того, во время создания RemoteDataModule нет объекта Application

Это уже что-то странное. Модуль Forms всегда присутствует в списке Uses стандартных проектов.
Надо понимать, что проект не ваш?

@D1973 · 06.12.2023, 04:49

Сообщение от northener

Модуль Forms всегда присутствует в списке Uses

Нет, не всегда. Посмотрите обычный контейнер для DB-компонентов - TDataModule; он не включает модуль Forms и, по сути, это и не к чему, если все, зачем этот модуль нужен - это получение доступа к объекту TApplication, а тот, в свою очередь, нужен лишь для получения полного имени исполняемого файла проекта, с чем, собственно, прекрасно справится старый добрый ParamStr(0)

Сообщение от NGPOL

Приходится имя исполняемого файла в виде константы вводить.

Я же Вам пример привел, где путь к ехе-файлу не зависит от объекта TApplication. Вы что, не попробовали даже? Тогда зачем вообще на форуме вопросы задавать?

@northener · 07.12.2023, 01:20

Сообщение от D1973

Нет, не всегда. Посмотрите обычный контейнер для DB-компонентов - TDataModule

Это да. В TDataModule он нафиг не нужен действительно. Но в стандартном GUI проекте он есть первой строчкой в списке uses самого проекта.

Новые блоги и статьи Все статьи Все блоги /
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .

@NGPOL 0 / 0 / 0 Регистрация: 07.09.2017 Сообщений: 24
	04.12.2023, 14:53 [ТС]
	Хм, наверное, да! Программа-клиент запускается же из "своей" папки, а сервер - из виндовской... Сейчас поищу, как найти полный путь... 0

@NGPOL 0 / 0 / 0 Регистрация: 07.09.2017 Сообщений: 24
	04.12.2023, 18:49 [ТС]
	Спасибо ответившим! Но, видимо INI-файл, это не для сервера. Сохраню его параметры(которые пропишет установщик) - в реестре. Работа с ним аналогичная с INI, но "живёт" он всегда в известном месте. 0

@Beltar 830 / 444 / 39 Регистрация: 05.05.2022 Сообщений: 3,063
	04.12.2023, 19:25
	А у сервера своей папки нету что-ли? На хрена в виндовую его ложить? 0

@NGPOL 0 / 0 / 0 Регистрация: 07.09.2017 Сообщений: 24
	04.12.2023, 20:49 [ТС]
	дело в том, что исполняемый файл сервера лежит в одной папке с INIшником. А вот запускается он - в виндовской папке... Я проверил. Там его(INIшника), понятно дело - нет... Сейчас боюсь соврать, по-моему в SYSTEM32... Более того, во время создания RemoteDataModule нет объекта Application. Приходится имя исполняемого файла в виде константы вводить. Искать INIшник по системным папкам считаю - нецелесообразным, если есть реестр. 0