протокол MMP (он же MRIM он же Agent.Mail.Ru)

[MainNika]

здравствуйте
описание протокола по этой сссылке http://agent.mail.ru/developers/licence.html

помогите с отправкой пакета на примере HELLO и получением ответа, желательно на Delphi.

[BOBAH13]

Пивет. ну помочь тут писать все надо руками )) я вот как раз разрабатываю клиента на этом протоколе. Мне не понятно как всетаки удалить контакт (группу) из списка? не знаеш случаем ?

procedure TMailClient.Hello;
var
Pack: TMRIMPacket;
begin
if Connected then
begin
MMP_Pack(@Pack, FSeq, MRIM_CS_HELLO, FSocket.Port, FSocket.IP);
MMP_SendPack(FSocket.Socket, @Pack);
FSeq := FSeq + 1;
end;
end;

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

[MainNika]

о спасибо.. но напиши пожалуйста процедурку MMP_Pack.. и класс TMRIMPacket.. вот их я не пойму как раз.

[BOBAH13]

))) как раз это функции упаковки и добавления данных... а класс это мой клиент-компонент со многими уже событиями. Просто возникает в таком случае вопрос: "Знаком ли ты с представлением кучи памяти как структура данных, умееш ли ты обращаться с памятью? и главное управление сокетами (хотя щас такие программеры все на готовом пишут, незнаю что такое существует WinSock(в данном случае)" Ну вот, если это понимаеш то проблем не будет, а писать всеравно толку нету там у меня отдельный модуль с функциями моими ApiMMP )) они у меня все к друг другу привязаны и отдавать просто так нет желания.

[BOBAH13]

а ты за тип тот что в пакете... гггг.. так это в протоколе описано ))

type
mrim_packet_header_t = packed record
magic: DWORD; // Magic
proto: DWORD; // Версия протокола
seq: DWORD; // Sequence
msg: DWORD; // Тип пакета
dlen: DWORD; // Длина данных
from: DWORD; // Адрес отправителя
fromport: DWORD; // Порт отправителя
reserved: array[0..15] of BYTE; // Зарезервировано
end;
TMRIMPacket = mrim_packet_header_t;
PMRIMPacket = ^TMRIMPacket;

да и второе что там делать то ))) просто этой переменной все данные вносиш да и все....

пусть лучше ктонить мне подскажет по возможности ответ на мой вопрос из первого поста (можно просто на словах, что отправлять без кода )

[MainNika]

блииин ну хоть упаковку напиши.. на мыло хотяб, я с таким делом ни разу не сталкивался поэтому не знаю..

[MainNika]

о спасибо..

[BOBAH13]

Привет еще раз. Меня этот так званый MMP протокол уже вывел из себя вот выкладываю то до чего дошел... там поиспровлять и добавить на всем готовом почти нечего короче все как обычно не забывать о авторе и т.п. и т.д.

[AXS]

Решил написать прогу (вкратце: база заданий, при истечении срока исполнения уведомляющая по смс) с использованием Вашего компонента. Да вот незадача - никак не могу разобрать порядок подключения [Connect, RequestHost, Autorize и т. д.]. Что за чем идёт? Не судите строго... всё когда то бывает в первый раз

[BOBAH13]

Ну вроде мой компонент не шлет смс, до этого не дошло а порядок подключения таков:

if TMailClient.HostInit then
  TMailClient.Connect
else
  TMailClient.RequestHost;

...

procedure OnRecievedHost(Sender: TObject);
begin
  TMailClient.Connect;
end;

...

procedure OnConnect(Sender: TObject);
begin
  TMailClient.Hello;
end;

...

procedure OnHello(Sender: TObject);
begin
  TMailClient.Authorize;
end;

...

потом начинается procedure OnStartRequestContactList(Sender: TObject); а за ним procedure OnEndRequestContactList(Sender: TObject);

после выполнения последнего события (OnEndRequestContactList) можно считать полный логин на сервер успешным Правда, когда я это все писал у меня немного руки были "кривые" еще в сокетах, и я сделал отправку данных не в отдельном потоке, и теперь когда будете отправлять сокеты будут блокировать потом вашего приложения.