Модераторы: Snowy, Poseidon, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Протокол Mail.Ru, Не понятно... 
:(
    Опции темы
Coderr
Дата 19.11.2007, 15:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 234
Регистрация: 27.1.2006
Где: Vesnet

Репутация: нет
Всего: 0
Ну я делал так:
Код

procedure TForm1.Packet_MRIM_CS_SMS;
var
  Packet: PPacket;
begin
 if Connected then begin
  Packet := CreatePacket(Sequence, MRIM_CS_SMS);
  AddUL(Packet, 0);
  AddLPS(Packet, '+7915xxxxxxx');
  AddLPS(Packet, 'Привет! =) Получилось!');
  ClientSocket.Socket.SendBuf(Packet^, 44+Packet^.Header.dlen);
  Dispose(Packet);
  inc(Sequence);
 end;
end;

Ничего не происходит.
ЗЫ Кстати, не подскажешь хороший снифер?
--------------------
Кодинг - это стиль жизни!   
PM WWW ICQ   Вверх
VICTAR
Дата 19.11.2007, 18:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 3
Всего: 80
Все правильно сделано. Посмотри какой ответ тебе приходит. Возможно "Исчерпан дневной лимит..." и т.п. Если все верно, то придет 1.

Цитата(Coderr @  19.11.2007,  15:52 Найти цитируемый пост)
ЗЫ Кстати, не подскажешь хороший снифер? 

Мне понравился UltraSniff
PM MAIL   Вверх
Coderr
Дата 19.11.2007, 20:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 234
Регистрация: 27.1.2006
Где: Vesnet

Репутация: нет
Всего: 0
Ну, получаю ответ так:
Код

function TForm1.Packet_MRIM_CS_SMS_ACK(Packet: PPacket): Longword;
var
  Offset: Longword;
begin
 Offset := 0;
 result := GetUL(Packet, Offset);
end;


В результате постоянно получаю 1, но ответы не доходят... =(
--------------------
Кодинг - это стиль жизни!   
PM WWW ICQ   Вверх
VICTAR
Дата 19.11.2007, 22:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 3
Всего: 80
Попробуй послать смс на другой номер
PM MAIL   Вверх
Coderr
Дата 20.11.2007, 00:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 234
Регистрация: 27.1.2006
Где: Vesnet

Репутация: нет
Всего: 0
И другой номер пробовал! Что-то не идёт ничего. Снифал тремя снифферами - фарш какой-то...  smile 
--------------------
Кодинг - это стиль жизни!   
PM WWW ICQ   Вверх
Coderr
Дата 8.12.2007, 22:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 234
Регистрация: 27.1.2006
Где: Vesnet

Репутация: нет
Всего: 0
По ходу ещё появились вопросы...
Насчёт пакетов UIDL и получения контакт листа:
1) Как получить контакт лист? Пакет с таким номером команды не приходит!!!
2) UIDL нужно чисто копировать и передавать при удалении?

--------------------
Кодинг - это стиль жизни!   
PM WWW ICQ   Вверх
VICTAR
Дата 8.12.2007, 23:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 3
Всего: 80
Цитата(Coderr @  8.12.2007,  22:05 Найти цитируемый пост)
1) Как получить контакт лист? Пакет с таким номером команды не приходит!!!

приходит. я тебя предупреждал, что приходить будет сразу по несколько пакетов.

Цитата(Coderr @  8.12.2007,  22:05 Найти цитируемый пост)
2) UIDL нужно чисто копировать и передавать при удалении?

не понял вопрос
PM MAIL   Вверх
Coderr
Дата 9.12.2007, 22:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 234
Регистрация: 27.1.2006
Где: Vesnet

Репутация: нет
Всего: 0
Мне приходит один, но большой! и код у него стрёмный...
Насчёт UIDL: Пакет UIDL используется для работы с оставленными на серваке сообщениями. В каждом таком пакете есть что-то полезное?
--------------------
Кодинг - это стиль жизни!   
PM WWW ICQ   Вверх
VICTAR
Дата 10.12.2007, 16:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 3
Всего: 80
Цитата(Coderr @  9.12.2007,  22:33 Найти цитируемый пост)
Мне приходит один, но большой! и код у него стрёмный...

разбивай его на пакеты. в нем как раз и найдешь пакет с контакт листом

Цитата(Coderr @  9.12.2007,  22:33 Найти цитируемый пост)
Насчёт UIDL: Пакет UIDL используется для работы с оставленными на серваке сообщениями. 

Поправка: UIDL не пакет, а тип данных. После получения оффлайн-сообщения, ты должен скопировать его id(UIDL) и отослать пакет(MRIM_CS_OFFLINE_MESSAGE_DEL) с этим id для удаления этого сообщения с сервера.

Цитата(Coderr @  9.12.2007,  22:33 Найти цитируемый пост)
В каждом таком пакете есть что-то полезное? 

Само сообщение =)
PM MAIL   Вверх
Coderr
Дата 12.12.2007, 02:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 234
Регистрация: 27.1.2006
Где: Vesnet

Репутация: нет
Всего: 0
И всё равно не понимаю... После пакета с командой MRIM_CS_USER_INFO приходят ещё два пакета
Packet body len: 1498239028 Command: $79367434
Packet body len: 4159957998 Command: $CF0A0A34

Packet body len - это длина тела пакета после заголовка
Command - код команды

Как мне из этой каши вытащить КЛ? И почему не приходят Offline сообщения, которые специально посылал самому себе для проверки с Mail.Ru Агента?
--------------------
Кодинг - это стиль жизни!   
PM WWW ICQ   Вверх
VICTAR
Дата 12.12.2007, 16:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 3
Всего: 80
Цитата(Coderr @  12.12.2007,  02:41 Найти цитируемый пост)
Packet body len: 1498239028

Ну ты явно где-то намудрил  smile 
Приатачь весь пакет целиком, я посмотрю.
PM MAIL   Вверх
Coderr
Дата 13.12.2007, 19:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 234
Регистрация: 27.1.2006
Где: Vesnet

Репутация: нет
Всего: 0
Вот сорсы

Это сообщение отредактировал(а) Coderr - 13.12.2007, 20:11

Присоединённый файл ( Кол-во скачиваний: 50 )
Присоединённый файл  Mail_client.rar 34,88 Kb
--------------------
Кодинг - это стиль жизни!   
PM WWW ICQ   Вверх
VICTAR
Дата 14.12.2007, 00:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 3
Всего: 80
Цитата(VICTAR @  4.11.2007,  00:58 Найти цитируемый пост)
За один прием у тебя может придти несколько пакетов, или вообще половина. Так что надо позаботиться о разбитии пакетов. 

я предупреждал smile 
PM MAIL   Вверх
Coderr
Дата 14.12.2007, 02:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 234
Регистрация: 27.1.2006
Где: Vesnet

Репутация: нет
Всего: 0
Хм... Да, подзабыл. Только как об этом позаботится?  smile 
--------------------
Кодинг - это стиль жизни!   
PM WWW ICQ   Вверх
VICTAR
Дата 14.12.2007, 03:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 3
Всего: 80
Считывай сначала во временный буфер, затем разбирай по пакетам. Сначала читай заголовок, потом уже Body. 
PM MAIL   Вверх
Страницы: (5) Все 1 2 [3] 4 5 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0955 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.