Проверка пароля

← →
Kac © (2002-12-16 10:44) [0]

Люди как проверить пароль а потом уже либо разрешать работать проге основной либо нет? В файле ДПР...
Спасибо

← →
Song © (2002-12-16 10:47) [1]

Вот так например в dpr:

Begin
With TPasswordForm.Create(nil) Do
try
Application.Initialize;
ShowModal;
IF пароль_введён_неправильно then Abort;
Application.CreateForm(TForm1,Form1);
Application.Run;
finally
Free;
end;
End.

Что-то типа того..

← →
Kac © (2002-12-16 10:49) [2]

Кажись это самое то!
МодалРезулт там проверить если можно!
Спасибо!

← →
Reindeer Moss Eater (2002-12-16 10:49) [3]

Введенные пароли (непосредственно сами, или некие функции от них) обычно сравниваются на равенство с чем-то. Используются при этом опреаторы "=" и "if then"

← →
Kac © (2002-12-16 10:52) [4]

Дело в том что там не только пароль но и еще куча всяких проверок - поэтому мне проще возвращять Модал резулт ...

← →
Skier © (2002-12-16 10:53) [5]

>Kac
И при вводе пароля обычно используют компонент
TEdit и его свойство TEdit.PasswordChar := "*"
(чтобы пароль не печатался на экране...)

← →
Kac © (2002-12-16 11:02) [6]

with TfLogin.Create(nil) do
try
Application.Initialize;
ShowModal;
iF ModalResult<>mrOk then Abort; //не знает мрОК
Application.ShowMainForm:=false;
Application.Title := "

← →
Kac © (2002-12-16 11:06) [7]

Народ привожу тексты :)
Это в основном модуле в ОнКреате
.........
IM.UIN:=ReadInteger("Log","LastActive",0);
Settings.AutoLog:=false;
if IM.UIN<>0 then begin
Settings.AutoLog:=ReadBool("U"+inttostr(IM.UIN),"LogAuto",false);
IM.Password:=ReadString("U"+inttostr(IM.UIN),"Log","");
end;//if
end;
INI.Free;

// Application.CreateForm(TfLogin, fLogin);

if Settings.AutoLog then fLogin.bOk.Click else fLogin.ShowModal;
Caption:=inttostr(IM.Uin);
//

← →
Kac © (2002-12-16 11:25) [8]

ВОПРОС!
Как со всем этим мы взлетим :).
Как после всех проверок устанавить описаную в ДПРе переменную ConnectFlag:=TRUE; ???

← →
Reindeer Moss Eater (2002-12-16 11:28) [9]

Вот так и установить
ConnectFlag:=TRUE;
:)

>Kac

Как вариант :

Напиши в модуле к формой TPassword
функцию (и вынеси её в интерфейсную) по проверке пароля и остальных параметров

что-то типа :

function CanConnect(...) : Boolean;

implementation

function CanConnect(...) : Boolean;
begin
//создаёшь форму TPassword
//проверяешь пароль и другие параметы
//возвращаешь True если всё правильно
//убиваешь форму...
end;

В проекте (в ДПРе) пишешь

ConnectFlag := CanConnect(...);

это понятно...
а еще вариант...
Модал Резулт нормально а фот МРОК он не знает...
ккое значение имеет МрОК?

>Kac

> Модал Резулт нормально а фот МРОК он не знает...
> ккое значение имеет МрОК?

- uses Controls;
- mrOk = idOk = 1; :)

Сори народ - задача в данном исполнении в принципе не решаема без огромной головной боли. Вот как надо (а как реализовать :(( )

Текст ДПР

1 создаем форму Логина
2 считываем в OnCreate некоторые параметры + параметр Автологон
3 передаем параметры в основную форму (они там нужны)
4 если Автологон то жмем програмно на ОК иначе выводим форму Логина и ждем когда юзверь нажмет
5 нажата ОК -пытаемся войти, нет тогда Аппликатион.Клозе
6 если не Зарегистрировались то идем на 4

ЗЫ форм логина НЕ ДОЛЖНА БЫТЬ ОСНОВНОЙ

Тема закрыта...
Всем в любом случае спасибо!

Проверка пароля Найти похожие ветки