Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.12.26;
Скачать: [xml.tar.bz2];

Вниз

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

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


 
Skier   (2002-12-16 11:30) [10]

>Kac

Как вариант :

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

что-то типа :

function CanConnect(...) : Boolean;

implementation

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

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

ConnectFlag := CanConnect(...);


 
Kac   (2002-12-16 11:34) [11]

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


 
Skier   (2002-12-16 11:46) [12]

>Kac

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

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


 
Kac   (2002-12-16 12:07) [13]

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

Текст ДПР

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

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

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



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.12.26;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.58 MB
Время: 0.036 c
14-86103
dimich1978
2002-12-05 13:43
2002.12.26
Для тех кто любит интерфейс ХР


3-85798
ikis
2002-12-05 22:52
2002.12.26
---|Ветка была без названия|---


3-85782
Vick
2002-12-05 10:09
2002.12.26
Накопление суммы в запросе


1-85982
гончий
2002-12-15 09:39
2002.12.26
Как узнать текущую дату, не используя системное время?


14-86141
dmk
2002-12-03 02:15
2002.12.26
Linux 7.3 и W2K несовместимы?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский