Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.05;
Скачать: CL | DM;

Вниз

ALIAS на другом компьютере   Найти похожие ветки 

 
Draught ©   (2004-02-09 14:00) [0]

Как создать вручную ALIAS на другом компьютере, что именно и куда прописывать??? как установить BDE я знаю...


 
Anatoly Podgoretsky ©   (2004-02-09 14:03) [1]

Вот после установки и создай алиас с помощью BDE Admin


 
Draught ©   (2004-02-09 14:11) [2]

2Anatoly Podgoretsky вы немного не поняли, я имею ввиду без дополнительных программ, типа DBD или еще какой...
может что в реестр прописать нужно??? Может где какой файл подредактировать...


 
Reindeer Moss Eater ©   (2004-02-09 14:14) [3]

А зачем твоей программе алиас?
Что, нет другого способа указать где у тебя файлы парадокса лежат?


 
VLAD-MAL   (2004-02-09 14:15) [4]

BDE administrator в папке "Мой компьютер".

А вообще, пусть прога создает его динамически, на время работы приложения. Все (почти:) так делают.


 
Draught ©   (2004-02-09 14:17) [5]

2VLAD-MAL как это сделать??? Маленький пример приведи, пжлста, если не сложно...


 
Anatoly Podgoretsky ©   (2004-02-09 14:19) [6]

Draught © (09.02.04 14:00)
Ты как то БДЕ устанавливал, вот это входит в инсталяцию. DBD в инсталяцию не входит.


 
Reindeer Moss Eater ©   (2004-02-09 14:21) [7]

.......
MyDatabase.Params.Values["PATH"] := MyDatabaseDir;
.......


 
VLAD-MAL   (2004-02-09 14:23) [8]

Ща (так медленно, по - барски...) покопаюсь в старых проектах, найду...


 
VLAD-MAL   (2004-02-09 14:39) [9]

В общем, так:
В модуле (fDM, например) добавляем компонент TDataBase (пусть называется dbSales, например). Дабл - клик, появляется редактор. Пишем в
Name - имя алиаса, по которому будем подключаться, например, IB_Sales. Alias name = Ничего; Driver Name = STANDARD (у Вас Paradox, да?)
Клацаем по клавише Defaults, появляется:

BLOB SIZE=32
WAIT ON LOCKS=FALSE
COMMIT RETAIN=FALSE
ROLE NAME=
PASSWORD=

Если надо, заполняем чем-нибудь PASSWORD= и т.п.

В Options снимаем чекбокс Login prompt, и, если хотим, Keep_Inactive_connection (это для возможности отладки).

Теперь делаем так, чтобы во всех модулях, где есть ваши TTable/TQuery, был виден этот модуль с размещенным TDataBase (uses ...).

При запуске программы выполняем открытие базы, например:

procedure TfMain.actSocketInExecute(Sender: TObject);
begin

if not FileExists(WorkedFileName) then begin
ShowMessage("Необходимо выбрать базу для работы");
exit;
end;
try
with fDM.dbSales do begin
if Connected then Close;
LoginPrompt := false;
Params.Values["PASSWORD"] := Password;
Params.Values["LANGDRIVER"] := "ancyrr"; // или что там у нас?
Params.Values["SERVER NAME"] := WorkedFileName; // Имя файла/директория, гда база
Open;
LastWorkedDataBaseFileName := WorkedFileName;
// Разрешаем все Browsers"ы
for i:=0 to actlstMain.ActionCount - 1 do
if actlstMain.Actions[i].Category = "Browsers" then
(actlstMain.Actions[i] as TAction).Enabled := true;
// Разрешаем сохранялку
actSaveAs.Enabled := true;

end;
Self.Caption := ApplicationName + " - " + ExtractFileName(WorkedFileName);
Application.Title := Self.Caption;
stbarMain.Panels[0].Text := "Соединение выполнено.";
actSocketOut.Enabled := true;
actBeginTransaction.Enabled := true;
except
stbarMain.Panels[0].Text := "Ошибка подключения к БД.";
Self.Caption := ApplicationName + " - " + "База не подключена";
Application.Title := Self.Caption;
end;
end;

Все. Удачи.

Ах, да: во всех TTable/TQuery в качестве алиаса используешь тот самый IB_Sales. Он появится в свойстве-списке этих компонентов, как только сделаешь Uses fDM.



Страницы: 1 вся ветка

Текущий архив: 2004.03.05;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.017 c
6-12467
Hogo
2003-12-29 08:14
2004.03.05
VoIP в TurboPower Async Professional


1-12319
111
2004-02-21 19:02
2004.03.05
*.txt ; *.rtf


1-12381
Laymer
2004-02-25 08:09
2004.03.05
DirectX


3-12269
td
2004-02-06 21:57
2004.03.05
индексы


3-12240
Lbvf1
2004-02-09 14:51
2004.03.05
Не могу сохранить int64 в поле bigint