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

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

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

Password [D5, Paradox]

Kim © (2002-09-29 09:48:00)
Добрый день мастера.
Поставил пароль в Database desktop всего на одну таблицу
При открытии приложения запрашивает пароль
Как сделать (прописать в проге),чтоб не просил пароль?
Я сделал так:
Обработал событие в On Password в Session:
procedure TdmPro.SessionPassword(Sender: TObject;
var Continue: Boolean);
begin
dmPro.Session.AddPassword("12345"); // dmPro-модуль проекта
dmPro.table1.Open;
end;
Компилет по Ctrl+F9 нормально, а по F9 (Run) ругается так:
Project Pro.exe raised exception class EDBE ngine Error with
Message ‘Слишком много паролей’. Proces stopped.

Нажимаю далее F9 (Run) – пишет:

Exception EDBE ngineError in module Pro.exe at 0009E4BE.
‘Слишком много паролей’.

Обрабатывал в OnCreate ( основного приложения) :

dmPro.Database.loginprompt:=false; // где dmPro- модуль проекта
//dmPro.Database.Params.clear;
//dmPro.Database.Params.Add("12345"); // где 12345- пароль
//dmPro.Database.connected:=true;
// dmPro.table1.Open;

Ничего не помагло.
Помогите Господа Мастера, бъюс три дня и три ночи,
наверное, что-то у меня с ДНК невпорядке.

Kim (2002-10-01 17:27:00) [1]
> vis79

Спасибо большое vis79 !!!

Получилось,все работает OK!!!

А как защитится от универсальных паролей, типа: jIGGAe

Kim (2002-09-30 11:24:00) [2]
Спасибо ребята!!! Все учту, щас пробовать буду.

Спасибо большое vis79, щас поэксперементирую !

Есчо маленький вопросик в этой облости:
Есть база на ADO ACCESS, Я ее запоролил (общий пароль)в
ACCESSE 2000. Но при открытии проги с запороленной базой
прога ругается, пишет, что не могу открыть базу в монопольном
режиме (естественно паролил я базу в монопольном режиме)
Вот вопрос какой: Как и что прописать в проге или еще где, чтоб
прога не ругалась?
Поможите пажалуйсто, а то я уже запарился с этими паролями !!!

vis79 (2002-09-30 10:58:00) [3]
Нужно перекрыть обработчик события OnPassword

if not Assigned(Session.OnPassword) then
Session.OnPassword := SessionPassword;
Session.GetPassword;
dmPro.table1.Open;
------------------------------------------------------ <OK>

vis79 (2002-09-30 10:24:00) [4]
>Kim Ну парень не слушай ты всякую .... что тебе пытаются вчухать
а просто попробуй сделать так:

procedure TdmPro.SessionPassword(Sender: TObject;
var Continue: Boolean);
begin
Continue:= True;
dmPro.Session.AddPassword("12345"); // dmPro-модуль проекта
dmPro.table1.Open;
end;

Если не поможет открывай таблицу в другом методе
dmPro.table1.Open; - после того как отработает TdmPro.SessionPassword

elv (2002-09-30 09:04:00) [5]

> Kim (29.09.02 17:39)
> procedure TfmMain.FormCreate(Sender: TObject);
> begin
> dmPro.Session.NetFileDir:="d:\Pro\base";
> dmPro.Session.PrivateDir:="d:\Pro\base";
> dmPro.Session.AddPassword("12345");
> dmPro.Session.Active:=True;
> end;

А дата модуль уже создан? Он у тебя создается до создания главной формы? Ты уверен?

>

Виталий Панасенко (2002-09-30 08:32:00) [6]
Не указывай NetDir&PrivDir в папку, гду лежат таблицы !!! А Session связан с таблицами ?

Kim (2002-09-30 07:22:00) [7]
.

Kim (2002-09-29 17:39:00) [8]
Сделал как подсказали, а нифига не получается
Пишет такие-же ошибки, может че нето делаю
procedure TfmMain.FormCreate(Sender: TObject);
begin

dmPro.Session.NetFileDir:="d:\Pro\base";
dmPro.Session.PrivateDir:="d:\Pro\base";
dmPro.Session.AddPassword("12345");
dmPro.Session.Active:=True;
end;

Kim (2002-09-29 16:13:00) [9]
> elv
Спасибо щас попробую

elv (2002-09-29 11:08:00) [10]
Перед открытием таблицы.

Session.NetFileDir:="Z:\";
Session.PrivateDir:="c:\";
Session.AddPassword("123456789");
Session.Active:=True;

Наверх

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