|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
26.04.2012, 19:40 | #31 | |
человек
Форумчанин
Регистрация: 11.05.2009
Сообщений: 517
|
Цитата:
Остальное зависит только от меня) |
|
26.04.2012, 19:41 | #32 |
человек
Форумчанин
Регистрация: 11.05.2009
Сообщений: 517
|
|
26.04.2012, 20:17 | #33 |
Форумчанин
Регистрация: 26.03.2012
Сообщений: 665
|
Да нет, xml стар, суперстар.
Создаете файл users.xml, примерно следующего содержания: <users> <user login="admin" password="1234" /> <user login="admin2" password="1234" /> <user login="admin3" password="1234" /> </users> Далее грузите его в программе: var __doc: IXMLDOMDocument; // импортировать только tlb надо __node : IXMLDOMNode; begin __doc := CreateOleObject('Msxml2.DOMDocument ') as IXMLDomDocument; __doc.load('users.xml'); Далее поиск __node := __doc.selectSingleNode(Format('/users/user[@login="%s"]', Edit.Text)); if (__node = nil) // нет такогоюзера else if (__node.Attributes["password"].value <> Edit2.Text) // пароль неправильный else // добро пожаловать Можно конечно проверку пароля объединить в 1 запрос xpath, но так для наглядности. Опять таки delphi под рукой нет, все по памяти... Последний раз редактировалось =master=; 26.04.2012 в 23:25. |
26.04.2012, 21:08 | #34 | |
человек
Форумчанин
Регистрация: 11.05.2009
Сообщений: 517
|
Цитата:
Я просто поражен... В принципе, вы правы, так немного проще. Мне надо просто разобраться в этом объекте, xml... Спасибо) Афигеть... столько вариантов, и ни по одному нет знаний... Надо учится) Спасибо вам за помощь))) |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Можно ли загрузить вторую ОС без выхода из первой? | Arassir | Операционные системы общие вопросы | 1 | 04.02.2012 19:09 |
Скрыть форму | BoozZzilla | Помощь студентам | 3 | 01.04.2011 14:23 |
Как запустить 2 форму первой | gufon | Общие вопросы Delphi | 12 | 18.03.2011 01:41 |
Скрыть форму | maksim_serg | Общие вопросы Delphi | 5 | 30.01.2011 13:22 |
Как скрыть форму | Михаил Юрьевич | Общие вопросы Delphi | 2 | 01.06.2008 15:37 |