• Registered: 2017-03-07
  • Posts: 29

Topic: Сетевая папка для хранения файлов

Всем доброго дня. Во-первых, спасибо за "конструктор" - инструмент совершенно чудесный и во-вторых, вопрос:
написал базу данных для стоматологической клиники. Положил ядро на условный сервер и теперь хотелось бы автоматизировать процесс сохранения файлов пользователей в папку сервера. Вариант с перелопачиванием форм конечно рабочий, но не совсем кошерный, ибо сервер условный, как уже было написано и вполне возможно, что клиент перенесёт папку хранилища в другое, произвольное место и тогда придется редактировать формы и обновлять программу всем участникам. Если есть возможность, по аналогии с указанием пути к базе через config, прописать пути к папке для хранения файлов?

spravka2004's Website

2 Reply by sibprogsistem (edited by sibprogsistem 2021-04-20 11:13:35)

  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: Сетевая папка для хранения файлов

http://myvisualdatabase.com/forum/misc.php?action=pun_attachment&item=7674&download=0

Post's attachments

Attachment icon Безымянный.png 108.57 kb, 92 downloads since 2021-04-20 

3 Reply by spravka2004 (edited by spravka2004 2021-04-20 13:00:37)

  • Registered: 2017-03-07
  • Posts: 29

Re: Сетевая папка для хранения файлов

sibprogsistem wrote:

http://myvisualdatabase.com/forum/misc.php?action=pun_attachment&item=7674&download=0

Наверно, неправильно обрисовал задачу. Папка /File имеет относительный адрес конкретного пользователя программой и это замечательно. Если предусмотреть все телодвижения пользователей, то, конечно, можно вписать некий адрес папки для хранения, типа \\VasyaServer\Doki\File , НО - если конечный адрес вполне вероятно поменяется? Для оперативной замены адреса к SQL.db можно воспользоваться формой или прописать адрес ручками в settings, но вот писать адрес папок в формах, каждый раз не совсем корректно. Вот и вопрос - возможно ли прописать правило в settings, дабы дальше не мучать людей редактированием форм?

spravka2004's Website

4 Reply by sibprogsistem (edited by sibprogsistem 2021-04-20 13:21:12)

  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: Сетевая папка для хранения файлов

spravka2004 wrote:

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

этот файл из корневой папки - он у каждого пользователя тоже свой, только если Ваши пользователи не используют одну и туже копию по локальной сети, но тогда можно и в самой форме прописать ..


можно и в самой БД хранить адрес папки..

procedure Form1_OnShow (Sender: TObject; Action: string);
begin
  Form1.DBFile1.dbCopyTo:=SQLExecute('SELECT имя_поля FROM имя_таблицы WHERE id=1');
end;

или привязаться к адресу БД

procedure Form1_OnShow (Sender: TObject; Action: string);
begin
with TIniFile.Create(Application.SettingsFile) do
  begin
      Form1.DBFile1.dbCopyTo:=ReadString('Options','server','')+'/userFiles';
      Free;
  end;
end;
  • Registered: 2017-03-07
  • Posts: 29

Re: Сетевая папка для хранения файлов

...или привязаться к адресу БД

procedure Form1_OnShow (Sender: TObject; Action: string);
begin
with TIniFile.Create(Application.SettingsFile) do
  begin
      Form1.DBFile1.dbCopyTo:=ReadString('Options','server','')+'/userFiles';
      Free;
  end;
end;

ТО, ЧТО ДОКТОР ПРОПИСАЛ smile  Спасибо!

spravka2004's Website