Кодим свой MailClient на Delphi 7

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

За основу возьмем информацию пользователя AquaKlaster ]]>вот отсюда]]>
Итак, приступим .

Для начала нам нужно скомпилировать сам компонент 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 адрес на который должен обратиться наш компонент
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;
Далее мы устанавливаем соединение
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;
а то вы не сможете работать с компонентом.

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

Исходник программы в аттаче.