Голосование

Как Вы обычно находите нужную информацию?

При помощи поисковых систем
Специализированные сайты
Экспертное мнение (форумы, LiveJournal, знакомые)
С помощью онлайн-справочников (Wikipedia, словари)
Печатная продукция (книги, журналы)



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

 

Лента RSS, новости сайта Новости сайта
Лента RSS, новости форума Новости форума
  Bookmark and Share

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

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

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

 


Automatic translation


English German French Italian Spanish
Portuguese Greece Japan Chinese Korean


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


скрыть

 

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