• From: Украина, Киев
  • Registered: 2014-10-23
  • Posts: 405

Topic: Задача: просмотр файла

Есть формы:
     1) Пользователь. На ней DBFile1, через который в папку file добавляется файл, привязанный к конкретному id таблицы.
     2) ГостьПоиск. На этой форме он видит таблицу с возможностью поиска.
     3) ГостьПросмотр. Сюда гостем выводятся результаты поиска. Вот здесь и нужен просмотр прикрепленного файла, т.е открытие именно файла, а не папки или директории. DBFile1 сюда ну никак не подходит, т.к. даёт гостю возможность влезть в папку программы.
      Как решить?

Не боги горшки лепят!
  • Registered: 2014-02-14
  • Posts: 10,294

Re: Задача: просмотр файла

3. Не совсем понял на счет формы ГостьПросмотр, это форма тоже для поиска? где присутствует таблица с результатами поиска? тогда можно сделать кнопку со скриптом, которая на основе выделенной записи в TableGrid (Form.TablrGrid.dbItemID) может сделать SQL запрос (через SQLExecute), чтобы узнать имя файла (имя файла хранится в поле "название поля_filename"), после чего воспользоваться функцией OpenFile для открытия файла.


Можете прислать свой проект на support@drive-software.com
постараюсь помочь.

Dmitry.

3 Reply by kunar80 (edited by kunar80 2014-10-30 14:42:00)

  • From: Украина, Киев
  • Registered: 2014-10-23
  • Posts: 405

Re: Задача: просмотр файла

Проект у Вас есть ("Arhiv"). Вчера Вы правили скрипт. До сегодня в структуре ничего не поменялось. Входите как гость, т.е. без логина и пароля, и всё поймёте. Сейчас там задействован DBFile. Я думаю, что он вполне устроил бы, если в нём скриптом возможно отключить все его функции, кроме "Открыть файл"

Не боги горшки лепят!
  • Registered: 2014-02-14
  • Posts: 10,294

Re: Задача: просмотр файла

Отправил вам на емейл проект.

Кнопки у компонента скрыл

     frmViewNAF.DBFile1.RightButton.Visible := False;
     frmViewNAF.DBFile1.LeftButton.Visible := False;

рядом с компонентов расположил кнопку для открытия файла

procedure frmViewNAF_Button2_OnClick (Sender: string; var Cancel: boolean);
begin
     OpenFile(ExtractFileDir(Application.ExeName) + frmViewNAF.DBFile1.dbFileName);
end;
Dmitry.
  • From: Украина, Киев
  • Registered: 2014-10-23
  • Posts: 405

Re: Задача: просмотр файла

Спасибо! Это именно то, что нужно

Не боги горшки лепят!