|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
30.04.2009, 19:56 | #1 |
Форумчанин
Регистрация: 28.04.2009
Сообщений: 112
|
Загрузка пароля из файла
Как загрузить пароль из ини файла.
procedure TPasswordDlg.OKBtnClick(Sender: TObject); var s: TMemoryStream; inifile: tinifile; begin S := TMemoryStream.Create; inifile:=inifile.create('2.ini'); Edit1.Text.LoadFromStream(s); end. |
30.04.2009, 21:13 | #2 |
Форумчанин
Регистрация: 11.04.2009
Сообщений: 277
|
так:
Код:
|
30.04.2009, 21:15 | #3 |
Форумчанин
Регистрация: 31.05.2007
Сообщений: 486
|
Опять ты упрямо пишешь inifile:=inifile.create вместо inifile:=Tinifile.create!
Думаешь переубедить компьютер? |
01.05.2009, 09:01 | #4 |
Участник клуба
Регистрация: 11.01.2009
Сообщений: 1,917
|
Файл в котором хранишь пароль должен быть нечитаем извне иначе пропадает весь смысл хранения пароля.
Т.е. зашифрован, например как это сделано в TDataFile. Я уже говорил неоднократно о нем.
"Заряженному танку в дуло не смотрят" @Dekmer in WoT
|
02.05.2009, 17:58 | #5 |
Форумчанин
Регистрация: 28.04.2009
Сообщений: 112
|
Подскажите, как переделать эту строку, чтобы из Эдита читался пароль записанный в файле 1.ini, а потом открывалась следующая форма, а если пользователь вводит неверный пароль выдабалась бы ошибка "Пароль введен не верно"
if s=Edit1.Text then form1.show else close; |
02.05.2009, 18:13 | #6 |
Банхаммер
Участник клуба
Регистрация: 17.02.2007
Сообщений: 1,754
|
Код:
|
02.05.2009, 18:19 | #7 |
Форумчанин
Регистрация: 28.04.2009
Сообщений: 112
|
Здесь ошибка [Error] Unit2.pas(57): Undeclared identifier: 'showmessage'
begin showmessage('неверный пароль'); |
02.05.2009, 18:21 | #8 |
Участник клуба
Регистрация: 11.01.2009
Сообщений: 1,917
|
Модуль Dialogs подключи ...
"Заряженному танку в дуло не смотрят" @Dekmer in WoT
|
02.05.2009, 18:25 | #9 |
Форумчанин
Регистрация: 28.04.2009
Сообщений: 112
|
Спасибо! А как сделать, чтобы form1 не показывалась, если пароль неверный?
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Проблема такова: язык:Delphi7; сохранения файла; загрузка файла в String Grid | lightdevil | Общие вопросы Delphi | 3 | 06.03.2009 23:10 |
загрузка из файла | RAVAL)) | Общие вопросы Delphi | 2 | 04.03.2009 12:48 |
Загрузка из файла. | (*_*) | Общие вопросы C/C++ | 2 | 28.02.2009 22:16 |
Загрузка Файла | Volkogriz | Общие вопросы Delphi | 3 | 31.10.2007 21:14 |
Шифрование файла с помощью пароля | Hallo | Обсуждение статей | 3 | 09.02.2007 10:50 |