Делаем картинку более реалистичной, уроки фотошопа

Для более приближенного к настоящему размытию попробуем на этом практическом уроке использовать Lens Blur filter или иными словами Размытие, которое будем использовать, когда объект будет содержать незначительную глубину резкости. [Подробнее >>>]

Видеонаблюдение дома и в квартире

Если вы нуждаетесь в постоянном контроле своих гостей, самый наилучший вариант - это установка специального домофона с функцией видео. Такая система без проблем расширяется в нужные вам стороны. [Подробнее]

Тизерный обмен трафиком

Продажей трафика, еще называют «арбитраж трафика». Такое понятие появилось совсем недавно, это слив трафика с одного сайта на другой. Но такое понятие подразумевает то, что трафик вы переливаете с целью его монетизировать. Сегодня об этом я Вам и расскажу. [Подробнее >>>]


Отправка e-mail в Delphi — Работа с компонентами IdPOP3 и IdSMTP

25-07-2018

Недавно мне пришлось реализовать отправку сообщения с помощью Delphi. Делается это все довольно просто. Разработчику нужно всего лишь забросить компонент на форму и правильно его настроить.

В этой статье мы будем изучать компоненты панели Indy. Интересующие нас компоненты называется IdPOP3, IdSMTP и IdMessage. Они не визуальные, поэтому можете смело кидать их на форму в любом месте.

Компонент IdPOP3 подключается к почтовому серверу по протоколу POP3. IdMessage предназначен для обработки получаемого или отправляемого письма.

Получение письма:

1

2

3

4

5

6

7

8

9

10

11

12

13

14

procedure TForm1.Button1Click(Sender: TObject);

begin

POP3.Host:=’ya.58r.ru; // адрес почтового сервера

POP3.Port:=110; // порт подключения

POP3.Username:=’login’; // логин

POP3.Password:=12345678?; // пароль

IdMessage.Clear; // очистка буфера сообщения

POP3.Connect; // здесь выполняется подключение

Memo1.Clear; // очистка компонента Memo1, он предназначен для отображения текста письма

POP3.Retrieve(1,IdMessage); // получение одного сообщения

Memo1.Lines.AddStrings(IdMessage.Body); // копирование текста сообщения из компонента IdMessage в поле Memo1

POP3.Delete(1); // удаление сообщения

POP3.Disconnect; //отсоединение от сервера

end;

Отправка сообщения реализуется с помощью компонента IdSMTP. Ниже приведен код программы.

Отправка письма:

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

procedure TForm1.Button4Click(Sender: TObject);

begin

SMTP.Host:=’ya.58r.ru; // адрес почтового сервера

SMTP.Port:=25; // порт подключения

SMTP.Username:=’login’; // логин

SMTP.Password:=12345678?; // пароль

SMTP.AuthenticationType:=atLogin; // тип подключения

with IdMessage do //запускаем цикл для отправки

begin

Body.Assign(Memo1.Lines); //копирование текста из Memo1 в IdMessage

From.Text := ‘userfrom@58r.ru; // адрес отправителя

Recipients.EMailAddresses := ‘userin@58r.ru; // майл получателя письма

Subject := ‘craft-code.ru; // тема

end;

 

SMTP.Connect; // соединение с почтовым сервером

try

ShowMessage(’Подключение выполнено’); // сообщение о подключении к почтовому серверу

SMTP.Send(IdMessage); // отправка письма

finally

SMTP.Disconnect; // разрыв связи

end;

end;

В данной статье мы изучили работу с компонентами палитры Indy.


Смотрите также:
 8 вещей, которые вам надо сделать
 Баннерная реклама
 Покупка вечных ссылок. RotaPost
 Создание сайта
 Четыре причины, почему Google не может использовать якоря в тексте ссылки на ваш сайт

Добавить комментарий:
Введите ваше имя:

Комментарий:

Защита от спама - решите пример:

Новое в нашем блоге:

Возможно ли пользоваться редактором Photoshop не только на стационарных компьютерах, но и на сенсорных планшетах? До недавнего времени это не предоставлялось возможным, однако технологии продолжают развиваться....

Программисты, в основном начинающие, интересуются о том, какой язык программирования выбрать. Причем всегда хотят выучить один универсальный язык, на котором можно программировать абсолютно все..

Компания Microsoft представила новую мобильную операционную систему для смартфонов — Windows Phone 8. На презентации обозначились две ключевые новости.