Таблицы всегда с приложением.

← →
interest © (2002-03-20 08:51) [0]

Здравствуйте уважаемые знатоки!
Как сделать чтобы пути к таблицам которые использует мое приложение(созданное для локальной машины)всегда изменялись автоматически если я копирую его(приложение) вместе с таблицами(которые находятся в папке DATA, которая в свою очередь находится в папке где и само приложение) на другое место на диске.

← →
deleon (2002-03-20 09:12) [1]

var
PATH_APPLICATION: string = "";

procedure FormCreate(Sender: TObject);
begin
PATH_APPLICATION := ExtractFilePath(Application.ExeName);
Table1.DatabaseName := PATH_APPLICATION + "DATA";
Table2.DatabaseName := PATH_APPLICATION + "DATA";
{ или }
Database1.DatabaseName := PATH_APPLICATION + "DATA";
end;

← →
ppcat (2002-03-20 10:47) [2]

Последнее не сработает, а для каждого dataset свой коннект ... , представляешь, если у тебя их несколько десятков и каждый коннект хочет есть...

Посмотри в справке вот про это:
Session.GetAliasNames(dbList);
Session.GetAliasParams(AliasName, list);
CreateAlias(AliasNameToCreate, PathToConnect);
if Session.ConfigMode <> cmAll then
Session.ConfigMode:= cmAll;
Session.AddStandardAlias(AliasName, DBpath, "Paradox");
Session.SaveConfigFile;

← →
ALFA (2002-03-20 21:25) [3]

Все просто!
Поставь в Table1
DatabaseName - "Data\"(Имя каталога + "\")

Я так пользуюсь для временных баз, все работает.

← →
Korn (2002-03-23 18:01) [4]

Используй в программе путь относительно твоего исполнимого модуля. Путь к исполнимому модулю получишь из
PathPro:=ExtractFilePath(ParamStr(0));

Таблицы всегда с приложением. Найти похожие ветки