Компонент MailAgent

[xden83]

Скачал компонент от вован13, все норм разобрался, а тут такая загвоздка. Когда ищу контакт событие OnUserfound происходит норм, если контакт найден, но бывает такое что контак не находит, в каком-то из компонентов видел событие OnContactFindFailed. А в моем компоненте его нет.

Как дописать это событие правельно в компонент?
Сам пытался сравнивать 2 компонента и дописывать все скомпилировалось но событие не происходит(

[xden83]

Хочешь что то сделать сделай это сам!
Тему можно del.

[Blourid]

Сам себя и исправил ))

[akimov_aleks]

Не хотел создовать новый топик.
Помогите разабраться с компонентом...
дайте пример как авторизоваться.
где можно поситать о компоненте.. что и как...

[Blourid]

Сообщение от akimov_aleks

Не хотел создовать новый топик.
Помогите разабраться с компонентом...
дайте пример как авторизоваться.
где можно поситать о компоненте.. что и как...

это тема здесь обсуждалось много раз, пройдись по форуму найдешь много всего

[akimov_aleks]

прочитал все что есть на форуме.
вот код авторизация не проходит

PHP код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Sockets, client, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    MailClient1: TMailClient;
    TcpClient1: TTcpClient;
    procedure Button1Click(Sender: TObject);
    procedure MailClientConnect(Sender: TObject);
    procedure MailClientHello(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
     i: Integer;
     MrimS: string;
begin

mailclient1.Mail:=edit1.Text;
mailclient1.PassWord:=edit2.Text;
     TCPClient1.Active:=True;
       if TCPClient1.Connected then
           MrimS:=TCPClient1.Receiveln(#$A); {Получили адрес и порт}

     TCPClient1.Disconnect;
     if MrimS <> '' then
         for i:=1 to Length(MrimS) do
             if MrimS[i] = ':' then
                 begin
                     MailClient1.Host:=Copy(MrimS, 0, i-1);
           MailClient1.Port:=StrToInt(Copy(MrimS, i+1, Length(MrimS)-i));
                     break;
                 end;

     if MailClient1.HostInit then

              MailClient1.Connect  {Соеденяемься}

     else
         MailClient1.RequestHost;
end;
procedure TForm1.MailClientConnect(Sender: TObject);
begin
MailClient1.Hello;
end;

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


end. 


[TURBOMAX]

Пробовал еще так

MailClient1->Mail="super_andrey2009@mail.ru";
MailClient1->PassWord=111111111;
MailClient1->MRIMPort=2042;
MailClient1->MRIMHost="mrim.mail.ru";


if (MailClient1->HostInit)

MailClient1->Connect();
else
MailClient1->RequestHost();

}
//---------------------------------------------------------------------------
void __fastcall TForm1::MailClient1RecievedHost(TOb ject *Sender)
{
MailClient1->Connect();

}
//---------------------------------------------------------------------------
void __fastcall TForm1::MailClient1Connect(TObject *Sender)
{
MailClient1->Hello();

}
//---------------------------------------------------------------------------
void __fastcall TForm1::MailClient1Hello(TObject *Sender)
{
MailClient1->Authorize();



}
//---------------------------------------------------------------------------
void __fastcall TForm1::MailClient1EndRequestContac tList(TObject *Sender)
{
ShowMessage(3);
}
//---------------------------------------------------------------------------
Тож не выходит

[TURBOMAX]

Помогите кто нить плизз...

[Sin3v]

Да что-то реально с авторизацией случилось.
именно на этом моменте
авторизации MailClient1->Authorize();

[profi]

Sin3v видно Mail.ru опять, что то изменила не переделав документацию. Я так понял, что Mail.ru забила обновлять сведения о своем открытом протоколе Mail Agent.