Password

← →
Kim (2002-09-29 09:48) [0]

Добрый день мастера.
Поставил пароль в 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;

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

← →
elv (2002-09-29 11:08) [1]

Перед открытием таблицы.

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

← →
Kim (2002-09-29 16:13) [2]

> elv
Спасибо щас попробую

← →
Kim (2002-09-29 17:39) [3]

Сделал как подсказали, а нифига не получается
Пишет такие-же ошибки, может че нето делаю
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-30 07:22) [4]

← →
Виталий Панасенко (2002-09-30 08:32) [5]

Не указывай NetDir&PrivDir в папку, гду лежат таблицы !!! А Session связан с таблицами ?

← →
elv (2002-09-30 09:04) [6]

> 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;

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

>

← →
vis79 (2002-09-30 10:24) [7]

>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

← →
vis79 (2002-09-30 10:58) [8]

Нужно перекрыть обработчик события OnPassword

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

← →
Kim (2002-09-30 11:24) [9]

Спасибо ребята!!! Все учту, щас пробовать буду.

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

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

← →
Kim (2002-10-01 17:27) [10]

> vis79

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

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

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

Password Найти похожие ветки