Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Навесить диалог пароля. / 13 сообщений из 13, страница 1 из 1
14.04.2003, 12:09
    #32139767
SergeyS
SergeyS
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Навесить диалог пароля.
Такая проблема:
Написал прогру, а теперь нужно навесить на нее фичу, что бы при запуске она запрашивала пароль. Как это сделать? Пробовал в FormCreate первой формы вставлять PasswordDlg, но как сделать выход из программы, если пароль оказался неправильным, а не продолжать выполнение FormCreate?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.04.2003, 12:12
    #32139769
tygra
tygra
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Навесить диалог пароля.
Application.Terminate
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.04.2003, 12:16
    #32139773
SergeyS
SergeyS
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Навесить диалог пароля.
не понял...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.04.2003, 12:19
    #32139780
SergeyS
SergeyS
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Навесить диалог пароля.
Теперь разобрался...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.04.2003, 12:21
    #32139782
vladuha
vladuha
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Навесить диалог пароля.
Я делал так:
Создавал форму TPassword, которая у меня была главной и которая проверяла правильность ввода пароля. Соответсвтенно, если пароль не правильный, то можно делать Password.Close и все закроется, а если пароль верен, то вызываешь TfrmMain.Show или TfrmMain.ShowModal, где frmMain это собственно само приложение.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.04.2003, 12:25
    #32139784
SergeyS
SergeyS
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Навесить диалог пароля.
Да в том то и дело что у меня форма PasswordDlg не является главной.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.04.2003, 13:20
    #32139858
Cooper
Cooper
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Навесить диалог пароля.
А у меня так:

Создается главная форма, ставлю у нее visible=false, на ее Create, вызываю форму - ввод пароля. Если пароль верен, то энту форму закрываю, а у главной ставлю визибл=тру, иначе можно закрыть все к чертовой матери или вывести главную форму, но на ней все пункты меню - енаблед=фальш, а у пункта - аутентификация - енаблед=тру.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.04.2003, 13:21
    #32139862
DmitryV
DmitryV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Навесить диалог пароля.
Привет!

А что, если проверку желать внутри файла dpr?

Удачи
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.04.2003, 13:48
    #32139894
Speaker
Speaker
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Навесить диалог пароля.
в тексте проекта:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
begin
fmPassword := TfmPassword.Create( Application );
if (fmPassword.ShowModal<>mrOk) then Exit;

Application.CreateForm(TfmMain, fmMain);

Application.Run;
end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.04.2003, 20:11
    #32140350
vaasys
vaasys
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Навесить диалог пароля.
в основной форме, например TForm1

Код: plaintext
1.
2.
3.
4.
procedure TForm1.FormShow(Sender: TObject);
begin
TPasswd.ShowModal;  // форма ввода пароля
end;


в TPasswd
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
procedure TPasswd.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = VK_RETURN then
        begin
        if Edit1.Text = 'твой пароль' then Close else Application.Terminate;
        end;
end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.04.2003, 03:52
    #32140408
StarWind
StarWind
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Навесить диалог пароля.
Можно очередной вариант? Пароль с формы я передаю в любом виде перед конектом (по событию). А дальше отлавливается Exception. Таким образом можно не сразу прогу закрыть, а скажем после третьего неправильного пароля. Бывает человек даже знает пароль и просто опечатывается, и сразу закрывать прогу, ИМХО, это грубовато
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.04.2003, 04:17
    #32140414
KirillovA
KirillovA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Навесить диалог пароля.
Да что вы все паритесь то - можно после десятимиллиардной попытки сделать closehandle (application.handl)....
можно и через терминат процесс - в чем трабла то ... можно и отловить адресное пространство и под ентей кильнуть его ... вариантов - миллиард ... зачем такие извраты то...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.04.2003, 09:39
    #32140518
SmaLL
SmaLL
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Навесить диалог пароля.
Я делал так
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
procedure TMainForm.FormActivate(Sender: TObject);
var
  continue: boolean;
begin
  continue:= True;
  // крутим цикл до тех пор, пока не введут правильное имя/пароль
  // или не нажмут отмену.
  while continue do
  begin
    if dlgLogin.ShowModal = mrOK then
      continue:= not ValidLogin(dlgLogin.Login.Text, dlgLogin.Password.Text)
    else
    begin
      continue:= False;
      Close;
    end;
  end;
end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Навесить диалог пароля. / 13 сообщений из 13, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]