Голосование

Какой процент рабочего времени вы реально работаете, а не бездельничаете?

15%
25%
50%
75%
85%
100%
Другое



Посмотреть результаты
Другие опросы ...

 

Архив исходников

   
  Базы данных
  Графика & Мультимедиа
  Сети & Интернет
  Система
  Разное
   

Кнопки, Ссылки и Баннеры ...

 


Translate to


English German French Italian Spanish
Portuguese Greece Japan Chinese Korean


Bookmark and Share

Ссылки и Баннеры


скрыть

 

Delphi Sources

Delphi Sources

 

 

СТАТЬИ

 

. : Mail.Ru Агент на Delphi : .

 

     В последнее время вижу многие хотя написать свой Mail агент на Delphi 7. Но не у всех это получается, потому что они что-то не понимают.

 

Mail.Ru Агент на Delphi


     Сейчас я вам расскажу и покажу как написать свой Mail агент с помощью Delphi 7. В конце можно скачать и компонент и исходник программы. За основу возьмем информацию пользователя AquaKlaster отсюда http://programmersforum.ru/showthread.php?t=78120#5.

     Итак, приступим.

     Для начала нам нужно скомпилировать сам компонент MailClient.

     Качаем архив: mail-client-src.zip (27 Кб) (компонент работает только в Delphi 7).

     Затем в Delphi в меню Component / Install Component указываем путь к файлу client.pas, жмем ОК.

     Компонент установится автоматически в закладку Sample под названием MailClient. Кидаем его на форму.

     Также кидаем TCPClient – он нам будет нужен чтобы узнавать адрес на который в последующем будет коннектиться клиент!

     Можно кинуть на форму пару Edit и Button, но мы будет делать все напрямую.

     Настраиваем пару свойств для TCPClient:
     – в RemoteHost пишем mrim.mail.ru;
     – в RemotePort пишем 443 или 2042.

     Настраиваем свойства для MailClient:
     – в Mail пишем вам мыло в формате Маил@домен .ru например delphi7.borland@mail.ru;
     – в PassWord пишем ваш пароль **********;
     – в MRIMHost пишем mrim.mail.ru;
     – в MRIMPort пишем 443 или 2042.

     Далее создаем процедуру Form1.Create и узнаём IP адрес на который должен обратиться наш компонент.
 


     Далее мы устанавливаем соединение:

     procedure TForm1.MailClientConnect(Sender: TObject);
     begin
          MailClient.Hello;
     end;

     И авторизуемся если соединение прошло успешно:

     procedure TForm1.MailClientHello(Sender: TObject);
     begin
          MailClient.Authorize;
     end;

     И если соединении пропало, то мы подключаемся автоматически:

     procedure TForm1.MailClientRequestHost(Sender: TObject);
     begin
          mailclient.Status:=OnLine;
          MailClient.Connect;
     end;

     И не забудьте обязательно прописать эту строчку:

     mailclient.Status:=OnLine;

     иначе вы не сможете работать с компонентом.

     Вот и все, если сделали все правильно то должно произойти подключение ))

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

     Исходник программы: mail-client.zip (482 Кб).

 

Обсуждение статьи на Форуме...
Дата: 20.02.2011, Автор: Сан Саныч.






Назад

 

© 2004-2018 "DS"

Отправить письмо / Реклама


ВКонтакте   Facebook   Twitter