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

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

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

ALIAS на другом компьютере [D7, Paradox]

Draught © (2004-02-09 14:00:00)

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

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

В общем, так:
В модуле (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.

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

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

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

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

Anatoly Podgoretsky (2004-02-09 14:19:00) [4]

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

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

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

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

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

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

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

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

Draught (2004-02-09 14:11:00) [8]

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

Anatoly Podgoretsky (2004-02-09 14:03:00) [9]

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

Наверх

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