1 Topic by savage (edited by savage 2014-10-28 00:19:20)

  • Registered: 2014-05-31
  • Posts: 201

Topic: [Решено] DBFile - открытие папки по умолчанию

Вечер добрый.
Есть такой вопрос: у меня есть необходимость загружать файлы из 2 разных папок:   1 вариант - через скрипт открывается диалоговое окно и я указываю путь к файлу; 2 вариант - через поле DBFile ->LinkFile.
Проблема в том, что программа по умолчанию запоминает последний путь при отрывании папки и файла.
Как сделать так, чтобы в каждом из вариантов сохранялся свой путь к конкретной папке?

с уважением,

savage

2 Reply by savage (edited by savage 2014-10-21 19:31:39)

  • Registered: 2014-05-31
  • Posts: 201

Re: [Решено] DBFile - открытие папки по умолчанию

немного некорректно выразился:
мне необходимо, чтобы:
1. в 2 разных DBFile, по умолчанию, при загрузке пути до файлов диалоговое окно открывалось в разных папках. Не подскажите, каким образом это можно реализовать?
2. как указать относительный путь к папкам (привязка к папке проекта, сама папка проета может быть в любом месте диска/сети) ?

3 Reply by savage (edited by savage 2014-10-26 17:49:51)

  • Registered: 2014-05-31
  • Posts: 201

Re: [Решено] DBFile - открытие папки по умолчанию

Код задания открытия папки в домашнем каталоге программы (спасибо за помощь DriveSoft):

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
   OpenDialog: TOpenDialog;
begin
    OpenDialog := TOpenDialog.Create(Form1);
    OpenDialog.InitialDir := ExtractFileDir(Application.Exename)+'\FilesCurs';

    if openDialog.Execute   then
       begin
       ShowMessage('File : '+openDialog.FileName)
       end else ShowMessage('Open file was cancelled');

     // Освобождение диалога
     openDialog.Free;
end;

DriveSoft, если не сложно:
1. посмотрите все ли гут. Вроде работает, но в коде не уверен
2. как это прикрутить к диалоговому окну открытия DBFile?

  • Registered: 2014-02-14
  • Posts: 10,294

Re: [Решено] DBFile - открытие папки по умолчанию

savage

скачайте бета версию 1.46, для компонента DBFile добавил свойство dbInitialDir.
https://www.dropbox.com/s/30ysr48sd8ca4 … 6.zip?dl=0


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


p.s.
С кодом все ок.

Dmitry.
  • Registered: 2014-05-31
  • Posts: 201

Re: [Решено] DBFile - открытие папки по умолчанию

DriveSoft wrote:

savage

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

DriveSoft, можно поподробнее о синтаксисе?

с уважением,

savage

  • Registered: 2014-02-14
  • Posts: 10,294

Re: [Решено] DBFile - открытие папки по умолчанию

Form1.DBFile1.dbInitialDir := 'c:\';
Dmitry.

7 Reply by savage (edited by savage 2014-10-27 05:41:44)

  • Registered: 2014-05-31
  • Posts: 201

Re: [Решено] DBFile - открытие папки по умолчанию

Я правильно понимаю?:

procedure Form1_DBFile1_OnLeftButtonClick (Sender: string);
begin
     Form1.DBFile1.dbInitialDir := ExtractFileDir(Application.Exename)+'\Projects';
end;

Надо ли будет вводить проверку на пустое поле ввода (если файл уже выбран, открываться должен он, а не папка поумолчанию). Сейчас не рядом с ПК. А любопытство разбирает...
Не думаете разместить данный параметр в свойствах компоненты?

  • Registered: 2014-02-14
  • Posts: 10,294

Re: [Решено] DBFile - открытие папки по умолчанию

savage
Если я правильно понял, то никакая дополнительная проверка не нужна.


Нужно будет заняться этим, довольно много скопилось свойств у компонентов, которые можно было бы разместить в инспекторе объектов.

Dmitry.
  • Registered: 2014-05-31
  • Posts: 201

Re: [Решено] DBFile - открытие папки по умолчанию

DriveSoft, все работает.

PS  Я не учел, что действия открытия/сохранения файла в базу  и открытия файла/сохранения из базы разнесены по разным кнопкам (левая и правая). Все у Вас продуманно. :-)

с уважением,

savage