Переносимость базы...

← →
Leech (2004-06-23 14:31) [0]

Интересные вещи происходят... создал базу, приложение... Когда пытался поставить на другой комп - ошибки полезли... Начал копаться - Даже если я у себя перенесу прогу с базой в другую папку - будет ругаться...
Алиас не использую - при запуске программы определяю её местположение, к её пути добавляю "\db\", где и лежит прога, и пытаюсь установить свойство "Актив" в истину... НО.. программа коим-то образом и почему-то обращается к пути, где она лежала ранее... В ексешнике порылся - там и прописан эот путь, но откуда он берется???
И ещё... если в режиме отладки ставлю свойство "Актив" в истину - всё нормально, показывает заполненные поля... нажимаю "Ф9" - ОШИБКА!

← →
Соловьев © (2004-06-23 14:37) [1]

> Когда пытался поставить на другой комп - ошибки полезли

BDE надеюсь поставил?

> Алиас не использую - при запуске программы определяю её
> местположение, к её пути добавляю "\db\", где и лежит прога,
> и пытаюсь установить свойство "Актив" в истину... НО.. программа
> коим-то образом и почему-то обращается к пути, где она лежала
> ранее...

код глянуть можно?

← →
Leech (2004-06-23 14:43) [2]

BDE ясен, поставил... внимательней в вопрос - у себя же на компе пытаюсь запустить прогу, просто в другой папке - то же самое... А кода особо и нету...
[code]
GetDir(0,Path);
Table.DatabaseName := Path + "\db\";
Table1.DatabaseName := Path + "\db\";
Table.Active := True;
Table1.Active := True;
[/code]

← →
Leech (2004-06-23 14:48) [3]

о... даже если изначально не ставлю свойство "Актив" в истину и не пытаюсь его ставить в истину при запуске приложения - всё та же ошибка!!!

← →
Leech (2004-06-23 14:54) [4]

Project arhiv.exe raised exception class EDBEngineError with message "Invalid directory. Directory: C:\Program Files\Borland\Projects\Arhiv\db\". Process stopped. Use Step or Run to continue.

Но ведь я запускаю из другой папки!!!

← →
Sandman25 © (2004-06-23 14:56) [5]

>при запуске программы определяю её местположение

Через getCurrentDir?

← →
Соловьев © (2004-06-23 15:06) [6]

> GetDir(0,Path);

path := ExtractFilePath(Application.ExeName);

← →
Leech (2004-06-23 15:33) [7]

Да без разницы, путь он правильно определяет.... я проверял...

> Table.DatabaseName := Path + "\db\";

тогда попробуй убрать последнюю скобку, в хелпе без нее.

> GetDir(0,Path);

это явно потенциальный глюк.

> тогда попробуй убрать последнюю скобку, в хелпе без нее.

вернее не скобку, а косую, хотя я думаю ты догадался :)

Переносимость базы... Найти похожие ветки