Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  3 386

•  TDictionary Custom Sort  5 607

•  Fast Watermark Sources  5 362

•  3D Designer  7 795

•  Sik Screen Capture  5 658

•  Patch Maker  6 149

•  Айболит (remote control)  6 164

•  ListBox Drag & Drop  5 045

•  Доска для игры Реверси  93 952

•  Графические эффекты  6 327

•  Рисование по маске  5 378

•  Перетаскивание изображений  4 556

•  Canvas Drawing  4 927

•  Рисование Луны  4 669

•  Поворот изображения  4 210

•  Рисование стержней  2 963

•  Paint on Shape  2 198

•  Генератор кроссвордов  3 045

•  Головоломка Paletto  2 391

•  Теорема Монжа об окружностях  3 172

 

 

Каталог исходников

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

HabLance - биржа фриланса

 

 

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-2025 "DS"

Соглашение пользователя / Реклама / Карта сайта             Created by BrokenByte Software