Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Указание пути к базе данных [D5, Paradox]

VinRaider © (2003-01-27 01:35:00)
Вопрос такой: Есть программа, использующая базу данных. У меня установлена BDE, где и добавлена эта база(указан конкретный путь). При установке на другой компьютер месторасположение(путь к программе) будет совсем другое и BDE его не найдет. Считаем, что BDE установлена или устанавливается вместе с программой, но тогда как в ней прописать новый путь(програмно)? Если кто знает, пожалуйста объясните или укажите доступный источник(желательно электронный), где можно об этом подробно прочитать. Заранее спасибо.

VinRaider (2003-01-29 08:12:00) [1]
А как добавить Alias к BDE для Paradox? Заранее спасибо.

chudaks (2003-01-28 06:33:00) [2]
to НАХАЛ.

Используя компонент Table перекрываешь доступ для других пользователей. Лучше использовать компонент Query и использовать SQL запросы.

mad0max (2003-01-28 05:50:00) [3]
to НАХАЛ

Все это классно! А каждый раз не замучаешься выбирать ? Ж)

НАХАЛ (2003-01-28 05:33:00) [4]
Пока не проснулся Анатолий Подгорецкий, я хочу поделиться с тобой своим опытом.

Небольшой код:

o1 - это диалог;
T1 - TTable;
DaataBase1 - TDataBase;

у DaataBase1 - "DatabaseName" поставь "Al"(или что-то другое);
у T1 - "DatabaseName" поставь "Al" (или как у DaataBase1);

var pt: string;//Глобальна

procedure TForm1.Open1Click(Sender: TObject);
var vF,pF: string;
S: array[0..110] of Char;
c: Cardinal;
c1,c2: integer;
begin
if o1.Execute then
begin
T1.Close;
DataBase1.Close;

Database1.DriverName:= "STANDARD";
Database1.Params.Clear;

pt:=o1.FileName;
pF:=string(NamePart(PChar(pt)));

//Здесь не надо вы..... я знаю как, и тем не менее... -------------------------------
c:=Length(pt)-Length(pF);
c1:=Length(pt);
c2:=Length(pF);
c:=c-1;
StrLCopy(S,PChar(pt),c);

//----------------------------------------
Database1.Params.Add("PATH="+string(S));
vF:=string(S);
T1.TableName:=pF;
T1.Open;
pt:=DataBase1.Params.GetText;
end;
end;

Открывает любую таблицу "PARADOX" без всяких Алиасов,
которые, ну уж очень любит Анатолий Подгорецкий.

Ну, а если, что не так - пиши на мыло;

mad0max (2003-01-28 04:51:00) [5]
Вот народ ленивый!!!!!

F1 - вам поможет.....

Можешь использовать TRegIniFile и работать как с обычным INI файлом, А если хочешь работать как с реестром (по настоящему :)
TRegistry...
Только нафига это геморрой. Ну будет у тебя еще один файл (INI) и делай с ним что хошь! А так придется пр инсталляци в реестр что-то писать...

VinRaider (2003-01-27 22:35:00) [6]
Я никогда не работал с реестром, поэтому я хотел бы увидеть пример, как обращаться к нему(писать, считывать) в данном случае. Если не трудно, покажи как. Заранее спасибо.

mad0max (2003-01-27 05:54:00) [7]
Самое простое - писать в INI файл или в реестр при установке. При загрузке программы считываешь и в путь......
Чего уж проще...

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »