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

•  TDictionary Custom Sort  666

•  Fast Watermark Sources  1 031

•  3D Designer  1 922

•  Sik Screen Capture  1 566

•  Patch Maker  1 580

•  Айболит (remote control)  1 471

•  ListBox Drag & Drop  1 242

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

•  Графические эффекты  1 432

•  Рисование по маске  1 397

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

•  Canvas Drawing  1 030

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

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

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

•  Paint on Shape  525

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

•  Головоломка Paletto  725

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

•  Пазл Numbrix  644

 

 

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

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

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

 

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

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