Synapse. TPOP3Send. Подготовительные работы.

Про работу с SMTP в Synapse поговорили, а про POP3 я как-то умолчал. Получается письмо отправить смогли, а ответ получить – уже нет :). Что ж, ликвидируем это досадное упущение и рассмотрим основы работы с классом TPOP3Send.

Этот класс удобно использовать для получение писем с почтовых серверов, поддерживающих работу с POP3. Сразу следует отметить, что TPOP3Send – наследник класса TSynaClient, поэтому не удивляйтесь, что в его свойствах в явном виде отсутствуют свойства для хранения логина, пароля и хоста.

Сама работа с классом, как и со все библиотекой в целом, достаточно прозрачна и понятна. Сегодня рассмотрим работу с TPOP3Send на примере получения писем с mail.ru, т.е. без использования SSL.

1. Авторизация.

Прежде, чем начинать работу с почтовым сервером, нам необходимо авторизоваться. При этом, по умолчанию TPOP3Send использует 110 порт и прописывать его вручную нужды нет. Теперь создадим небольшое тестовой приложение в Delphi или Lazarus – без разницы. У меня главная форма получилась вот такой:

В Memo1 будем выводить все ответы сервера.

Обработчик onClick кнопки создадим таким:

procedure TForm1.Button1Click(Sender: TObject);
begin
  POP:=TPOP3Send.Create;
  POP.AuthType:=POP3AuthLogin;
  POP.Password:=PassEdit.Text;
  POP.UserName:=LoginEdit.Text;
  POP.TargetHost:=HostEdit.Text;
  if POP.Login then
    begin
      if POP.Stat then
        begin
          Label5.Caption:=IntToStr(POP.StatCount);
          Label7.Caption:=IntToStr(POP.StatSize);
        end;
    end
  else
    Memo1.Lines.Add('Ошибка авторизации');
end;

Рассмотрим свойства и методы, которые мы использовали.

Свойство AuthType указывает тип авторизации. Может принимать одно из трех значений:

• POP3AuthAll – используется по умолчанию при создании объекта. При этом авторизация проходит вначале с использованием команды APOP и, если авторизация не прошла, то используется самый распространенный способ авторизации с использованием команд USER и PASS.
• POP3AuthLogin – авторизация с использованием команд USER и PASS
• POP3AuthAPOP – авторизация с использованием команды APOP.

Метод Login – авторизация на сервере с использованием команд, определяемых свойством AuthType. Если авторизация прошла успешно, то метод возвращает True.

Метод Stat отправляет на сервер команду STAT в результате чего сервер возвращает общее количество писем в почтовом ящике (свойство StatCount) и их общий размер в символах (свойство StatSize).

2. Запрос возможностей сервера.

После того как мы авторизовались на сервере мы можем узнать какие возможности поддерживаются сервером. Для этого необходимо воспользоваться методом Capability. Допишем onClick следующим образом:

if POP.Login then
  begin
   if POP.Stat then
     begin
       ....
     end;
   if POP.Capability then
     Memo1.Lines.Assign(POP.FullResult);
    end

Здесь мы воспользовались ещё одним свойством — FullResult, которое возвращает весь ответ сервера в виде списка TStringList. Метод Capability отправляет на сервер команду CAPA и, в случае если сервер поддерживает использование этой команды, нам возвращается список дополнительных команд, поддерживаемых сервером. Вот, например, что вернул mail.ru:

• STLS – поддерживает защищенную передачу данных. Команда STLS принимается сервером только после авторизации.
• TOP — Если ответ сервера положительный, то после него он передаёт заголовки сообщения и указанное кол — во строк из тела сообщения.
• USER – поддержка команды USER. То есть по этой возможности можно судить о том, что на сервере можно авторизоваться обычным образом – передачей пары команд USER – PASS.
• LOGIN-DELAY 120 – минимальный интервал (в секундах) между повторными аутентификациями.
• PIPELINING – указывает на то, что сервер может принимать сразу несколько команд от пользователя.
• EXPIRE NEVER – гарантированный минимум (в днях) сохранения аутентификации пользователя. В нашем случае параметр равен NEVER, т.е. mail.ru сохраняет аутентификацию постоянно до момента выхода (Logout)
• UIDL – сервер поддерживает использование команды UIDL в результате которой мы модем получить уникальные идентификаторы для любого письма.
• IMPLEMENTATION Mail.Ru – строка, содержащая информацию о сервере.

3. Получение информации по каждому сообщению.

Перед тем как закачивать какое-либо сообщение желательно оценить его размеры. Для этого можно воспользоваться методом List. В качестве параметра List принимает номер сообщения по которому необходимо передать информацию. Если параметр равен нулю, то возвращается информация по всем сообщениям.

Добавьте на форму ещё одну кнопку и напишите для неё следующий обработчик:

procedure TForm1.Button2Click(Sender: TObject);
begin
  if POP.List(0) then
    Memo1.Lines.Assign(POP.FullResult);
end;

Как видите мы снова воспользовались свойством FullResult для получения информации по ответу. В результате каждая строка содержит номер сообщения в ящике, пробел и размер сообщения в символах.

На этом подготовительные работы можно считать завершенными. Следующий шаг – скачивание писем, использование дополнительных команд и т.д. Но это в следующий раз :)

Книжная полка

	Автор: Андрей Шкрыль Название: Разработка клиент-серверных приложений в Delphi Описание: Рассмотрены практические вопросы по разработке клиент-серверных приложений в среде Delphi 7 и Delphi 2005 с использованием СУБД MS SQL Server 2000, InterBase и Firebird. Приведена информация о теории построения реляционных баз данных и языке SQL. Освещены вопросы эксплуатации и администрирования СУБД.
	Автор: Антон Григорьев Название: О чем не пишут в книгах по Delphi Описание: Рассмотрены малоосвещенные вопросы программирования в Delphi. Описаны методы интеграции VCL и API. Показаны внутренние механизмы VCL и приведены примеры вмешательства в эти механизмы. Рассмотрено использование сокетов в Delphi: различные режимы их работы, особенности для протоколов TCP и UDP и др.