Использование протоколом Mail.ru агента.

[SanSanblch]

В последнее время вижу многие хотя написать свой Mail агент на Delphi 7. Но не у всех это получается, потому что они что то не понимают.
Сейчас я вам расскажу и покажу как написать свой Mail агент с помощью Delphi 7. В конце я компонент и исходник программы. За основу возьмем информацию пользователя AquaKlaster
Вот отсюда http://programmersforum.ru/showthread.php?t=78120#5
И так приступим .
Для начала нам нужно скомпилировать сам компонент MailClient .
Качаем архивчик по любой из ссылок
1. http://narod.ru/disk/2851335001/MailClient.rar.html
2. http://depositfiles.com/files/p2s2q2fwk
Компонент работает только в 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 адрес на который должен обратиться наш компонент

PHP код:

procedure TForm1.FormCreate(Sender: TObject);
var
   i: Integer;
     MrimS: string;
begin
     TCPClient.Active:=True;
       if TCPClient.Connected then
           MrimS:=TCPClient.Receiveln(#$A); {Получили адрес и порт}
               TCPClient.Disconnect;
     if MrimS <> '' then
         for i:=1 to Length(MrimS) do
             if MrimS[i] = ':' then
                 begin
                     MailClient.Host:=Copy(MrimS, 0, i-1);
           MailClient.Port:=StrToInt(Copy(MrimS, i+1, Length(MrimS)-i));
  form1.StatusBar1.Panels[0].Text:='Host '+ Mailclient.host+'  Port '+IntToStr(MailClient.Port);
                     break;
                 end;
     if MailClient.HostInit then begin
         MailClient.Connect;  {Соеденяемься}
           end
     else
         MailClient.RequestHost;
end; 


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

PHP код:

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


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

PHP код:

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


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

PHP код:

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


И не забудьте обязательно прописать эту строчку
mailclient.Status:=OnLine;
а то вы не сможете работать с компонентом.

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

вот подробная информация работы протаколов.
Описание протокола обмена данными Mail.Ru Агент.

Вот исходник программы .

http://depositfiles.com/files/9vhvz1pcs

Если что не так пишите на мой адрес PI-73@mail.ru.

Если что не так сильно не ругайте =))

[Letnab]

Огромное спасибо за описание и приложенный исходник. Всё работает!!!!