[samos]

Здравствуйте!
Программа, написанная на Delphi, использует таблицы Paradox и BDE. Отлажена и давно эксплуатируется.
Alias не используется.
Все таблицы базы данных находятся в той же директории, где и исполняемый файл (назовем его X).
Сейчас потребовалось запустить программу из среды AutoCad.
Использую функцию startapp:
(startapp "X").
Программа запускается нормально, функция возвращает 33.
В процессе исполнения программы, когда в свойству Active таблицы TTable присваивается значение true, происходит аварийное завершение программы с сообщением:
Table does not exist.
File or directory not exist.
File: c:\Documents and Setting\V\Мои документы\c.db
Не могу понять, в чем дело?
Даже если свойство TTable.TableName прописываю с явным указанием пути к к таблице, все равно в аварийном сообщении идет ссылка на папку \Мои документы.
Заранее благодарен за помощь в решении проблемы.

[zamtmn]

Таблица ищется в рабочей папке, коей является "c:\Documents and Setting\V\Мои документы\". надо переписать чтоб искалась по

Код:

[Выделить все]

paramstr(0)

[samos]

Сообщение от zamtmn Таблица ищется в рабочей папке, коей является "c:\Documents and Setting\V\Мои документы\". надо переписать чтоб искалась по Код: [Выделить все] paramstr(0)

То, что таблица ищется в папке c:\Documents and Setting\V\Мои документы\ мне понятно.
Непонятно, что надо переписать - вызов функции или программу на Delphi?

[zamtmn]

Использую функцию startapp: (startapp "X")

Рабочая папка тут не указывается, автокад ее подсовывает свою. Ваша программа в уверенности что рабочая папка - та где лежит ее exe и другие файлы ищет базу там где ее нет.

Нормальное решение: переписать программу на Delphi чтоб она работала не зависимо от текущей рабочей папки.
Костыли:
Поискать другой способ запуска в автокаде (если он есть).
Запускать заглушку, которая запустит вашу программу настроив правильно рабочую папку

[samos]

Сообщение от zamtmn Рабочая папка тут не указывается, автокад ее подсовывает свою. Ваша программа в уверенности что рабочая папка - та где лежит ее exe и другие файлы ищет базу там где ее нет. Нормальное решение: переписать программу на Delphi чтоб она работала не зависимо от текущей рабочей папки. Костыли: Поискать другой способ запуска в автокаде (если он есть). Запускать заглушку, которая запустит вашу программу настроив правильно рабочую папку

Если делаю вызов функции с параметром:
(startapp "X" "c:\\Y\\"), то тем самым явно передаю в программу на Delphi путь к директории, где размещены таблицы базы данных.
В программе на Delphi ставлю:
dir:=ExtractFilePath(ParamStr(0))
и тем самым этот путь получаю.
Но Вы, вероятно не обратили внимания, но то, о чем я писал сначала (цитирую):
"Даже если свойство TTable.TableName прописываю с явным указанием пути к к таблице, все равно в аварийном сообщении идет ссылка на папку \Мои документы".
То есть мне путь в строке dir ни к чему. Я и так для TTable его указываю явно.

[gomer]

Во первых, организуйте проверку входящего параметра на пригодность... Во-вторых, организуйте обработчик ситуации, когда необходимые программе файлы отсутствуют...

Если вы еще этого не сделали...

[zamtmn]

ParamStr(0) - путь к запущенному exe. c:\\Y\\ - это будет ParamStr(1) если мне не изменяет память

Но Вы, вероятно не обратили внимания, но то, о чем я писал сначала (цитирую): "Даже если свойство TTable.TableName прописываю с явным указанием пути к к таблице, все равно в аварийном сообщении идет ссылка на папку \Мои документы".

Обратил, но это вопрос для форума по делфи и базам данных. ИМХО ошибка в программе, гдето вы ищете базу не по

Код:

[Выделить все]

ExtractFilePath(ParamStr(0))+dbName

, а просто по

Код:

[Выделить все]

dbName

[samos]

Сообщение от zamtmn Обратил, но это вопрос для форума по делфи и базам данных. ИМХО ошибка в программе, гдето вы ищете базу не по

Когда я запускаю программу из среды Delphi или из проводника, все работает нормально. В свойстве TTable.TableName может быть прописан полный путь к таблице или просто указана таблица, не имеет значения.
Когда же запуская программу с использованием StartApp, даже если путь передаю через параметр и подключаю к TTable.TableName, все равно идет ошибка. Правильность передачи по параметру проверял, все передается правильно.
Не пойму, где проблема? Все-таки, без вызова из AutoCad-а, все работает...

[zamtmn]

Когда я запускаю программу из среды Delphi или из проводника, все работает нормально

В этом случае (рабочая папка)=(папка с exe)

Не пойму, где проблема? Все-таки, без вызова из AutoCad-а, все работает...

а в этом случае (рабочая папка)<>(папка с exe) больше разницы никакой нет. попробуйте запустить из проводника, находясь в другой папке и введя полный путь с:\путь\к\программе\прога.exe, должна появиться таже ошибка

[samos]

Сообщение от zamtmn В этом случае (рабочая папка)=(папка с exe) а в этом случае (рабочая папка)<>(папка с exe) больше разницы никакой нет. попробуйте запустить из проводника, находясь в другой папке и введя полный путь с:\путь\к\программе\прога.exe, должна появиться таже ошибка

Вы совершенно правы!
Запуская программу из другой папки, возникает такая же ошибка, но в аварийном сообщении уже указывается не Мои Документы, а та папка из которой делал вызов. И это несмотря на то, что в свойстве TTabble.TableName явно прописываю путь к папке, где лежат файлы базы данных.
Так и не могу понять, как же решить проблему. Кроме, как использовать TableName ни до чего не дохожу.

[zamtmn]

И это несмотря на то, что в свойстве TTabble.TableName явно прописываю путь к папке, где лежат файлы базы данных.

Ну если у Вас всё верно, а база по прежнему ищется не там, попробуйте сами установить рабочую папку.
чтото навроде:

Код:

[Выделить все]

uses .....,windows;
..........
begin
..........
SetCurrentDirectory(@ExtractFilePath(ParamStr(0))[1]);
.........

должно помочь

[hwd]

Сообщение от samos То, что таблица ищется в папке c:\Documents and Setting\V\Мои документы\ мне понятно. Непонятно, что надо переписать - вызов функции или программу на Delphi?

Как вариант - попробуйте добавить в каталоги поиска AutoCAD путь к каталогу, в котором лежат ваши таблицы (диалоговое окно Options, вкладка Files, группа Support File Search Path).

[samos]

Сообщение от zamtmn Ну если у Вас всё верно, а база по прежнему ищется не там, попробуйте сами установить рабочую папку. чтото навроде: Код: [Выделить все] uses .....,windows; .......... begin .......... SetCurrentDirectory(@ExtractFilePath(ParamStr(0))[1]); ......... должно помочь

Замечательно! Все заработало.
Большое спасибо всем, особенно zamtmn !

[hwd]

>samos
Мне любопытно - тот вариант, который я предложил не сработал?

попробуйте сами установить рабочую папку.

При таком подходе нужно каждый раз при запуске команды устанавливать рабочую папку, т.к. если в процессе работы автокада юзер через диалоговое окно выберет какой-нить файл (например откроет чертёж) - то рабочий каталог станет другим. Я поэтому и предложил добавить путь к каталогам поиска.

[zamtmn]

Мне любопытно - тот вариант, который я предложил не сработал?

Автокад тут непричем, запускается сторонее exe приложение

При таком подходе нужно каждый раз при запуске команды устанавливать рабочую папку, т.к. если в процессе работы автокада юзер через диалоговое окно выберет какой-нить файл (например откроет чертёж) - то рабочий каталог станет другим. Я поэтому и предложил добавить путь к каталогам поиска.

Папка устанавливается для процесса delphi приложения, на автокад эти действия не влияют. Страшного в этом ничего нет, хотя не очень красиво, согласен. Но уж раз ошибок в коде у автора не найдено (чтото подсказывает что они есть ), другого выхода нет

[Александр Ривилис]

Сообщение от hwd т.к. если в процессе работы автокада юзер через диалоговое окно выберет какой-нить файл (например откроет чертёж) - то рабочий каталог станет другим.

У каждого процесса свой рабочий каталог. Так что вне зависимости от того какой рабочий каталог будет в AutoCAD в запущенном приложении может быть свой рабочий каталог и изменение его в приложении не поменяет рабочий каталог AutoCAD. А вот .NET-сборкой можно изменить рабочий каталог AutoCAD, т.к. она (.NET-сборка) выполняется в рамках процесса AutoCAD.
Добавление каталога к путям доступа AutoCAD для exe-приложения - это как мертвому припарки. Ну никак это приложение в этих путях доступа искать не будет. А ошибка в коде автора явно есть.

[samos]

Сообщение от hwd >samos Мне любопытно - тот вариант, который я предложил не сработал? При таком подходе нужно каждый раз при запуске команды устанавливать рабочую папку, т.к. если в процессе работы автокада юзер через диалоговое окно выберет какой-нить файл (например откроет чертёж) - то рабочий каталог станет другим. Я поэтому и предложил добавить путь к каталогам поиска.

Ваш вариант пока не рассматривал, завтра на свежую голову попробую.
Вообще-то, программа моя не имеет прописки в реестре.
Теперь хочу прописывать ее при инсталляции.
Перед запуском из AutoCad в LISP-е из реестра по HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\ по имени программы вытаскивать папку, в которой она установлена и использовать этот путь в качестве параметра при вызове (startapp путь+"X"). Пока такая мысль, может опять что не так, завтра буду пробовать.

[ShaggyDoc]

1. Надо переписывать дельфийскую программу. Самое лучшее - избавиться от древнего, давным-дано не поддерживаемого BDE и перейти на ADO.

2. Заодно забыть про Paradox, перевести данные в другую БД. Если это локальная база - лучше всего в MDB (Access).

3. Забыть про работу с таблицами, как физическими файлами и работать с базой данных и её таблицами, как объектами базы данных.

4. Не передавать имена файлов через параметры командной строки. Тем более не располагать БД рядом с EXE и не пытаться до нее добраться через Paramsr(0).

5. Не привязываться ни к какой "текущей директории"

6. Физическое расположение БД должно быть в настройках программы. Это уж по желанию и умению. Можно и в реестре, можно и в INI-файле программы, который должен лежать в положенном месте (желательно вычисляемом). Вот в этих настройках и могут быть расписаны все тонкости работы с БД. Может быть и ссылка не на саму БД, а на файл соединения, который создается и редактируется штатными средствами.

Все здесь описанное есть в Demos Delphi. Все средства для работы есть в штаных компонентах, а особо удобные - в дополнительных бесплатных библиотеках.

Если же хочется как следует помучиться много лет - все написанное можно игнорировать.

[samos]

Сообщение от ShaggyDoc 1. Надо переписывать дельфийскую программу. Самое лучшее - избавиться от древнего, давным-дано не поддерживаемого BDE и перейти на ADO. 2. Заодно забыть про Paradox, перевести данные в другую БД. Если это локальная база - лучше всего в MDB (Access). 3. Забыть про работу с таблицами, как физическими файлами и работать с базой данных и её таблицами, как объектами базы данных. 4. Не передавать имена файлов через параметры командной строки. Тем более не располагать БД рядом с EXE и не пытаться до нее добраться через Paramsr(0). 5. Не привязываться ни к какой "текущей директории" 6. Физическое расположение БД должно быть в настройках программы. Это уж по желанию и умению. Можно и в реестре, можно и в INI-файле программы, который должен лежать в положенном месте (желательно вычисляемом). Вот в этих настройках и могут быть расписаны все тонкости работы с БД. Может быть и ссылка не на саму БД, а на файл соединения, который создается и редактируется штатными средствами. Все здесь описанное есть в Demos Delphi. Все средства для работы есть в штаных компонентах, а особо удобные - в дополнительных бесплатных библиотеках. Если же хочется как следует помучиться много лет - все написанное можно игнорировать.

Спасибо Вам за рекомендации!
Спорить с вышесказанным бессмысленно. В отношении игнорировать - вопрос не простой. Я себя профессиональным программистом не считаю, специальность у меня другая. Но последнее время приходится заниматься программированием. Очень трудно отойти от того стиля к которому привык, который кажется понятным, и когда программы работают хорошо и достаточно надежно. Но вот встретилась ситуация, с которой не смог разобраться. Спасибо, мир не без добрых людей!
В отношении ухода от Paradox и BDE. Мои программы предназначены для работы с локальной базой данных. Клиент-серверные технологии здесь ни к чему, хотя можно было бы уйти от TTable и перейти на SQL.
Вопрос в том, что не вижу альтернативы Paradox-у, как единственной бесплатной базе данных. Использовать Access - это значит поставить пользователя перед необходимостью иметь лицензию на MS Office. А вот этого мне и не хотелось бы. То же самое можно сказать и о SQL-серверах. Все приличные SQL-серверы стоят немалых денег. Может быть я ошибаюсь в отношении Paradox и BDE, но эта связка, мне кажется, не требует дополнительных затрат. Если ошибаюсь, поправьте, пожалуйста!

[hwd]

Сообщение от samos Вопрос в том, что не вижу альтернативы Paradox-у, как единственной бесплатной базе данных. Использовать Access - это значит поставить пользователя перед необходимостью иметь лицензию на MS Office. А вот этого мне и не хотелось бы. То же самое можно сказать и о SQL-серверах. Все приличные SQL-серверы стоят немалых денег. Может быть я ошибаюсь в отношении Paradox и BDE, но эта связка, мне кажется, не требует дополнительных затрат. Если ошибаюсь, поправьте, пожалуйста!

На выбор:

1. MS SQL Server Express Edition
2. PostgreSQL
3. My SQL
4. Open Office - в нём есть некий аналог MS Access - приложение Base

Если к базе данных одновременно должны коннектиться более 10 человек - использовать MS Access не очень хорошее решение, об этом пишут в толстых книжках (со временем начнёт ощущаться существенное снижение скорости работы).
Имхо - лучше заюзать 1-й вариант, т.к. такие базы данных вы без проблем, при необходимости, всегда сможете перекинуть на более мощные платные версии.