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

[AXS]

Теперь уже шлёт...

procedure TMailClient.SendSMS(Phone, Text: string);
var
 Pack: TMRIMPacket;
 Data: Pointer;
begin
 if Connected then
 begin
  MMP_Pack(@Pack, FSeq, MRIM_CS_SMS, FSocket.Port, FSocket.IP);
  MMP_AddUL(@Pack, Data, 0);
  MMP_AddLPS(@Pack, Data, Phone);
  MMP_AddLPS(@Pack, Data, Text);
  MMP_SendPack(FSocket.Socket, @Pack, Data);
  FSeq:= FSeq + 1;
  FreeMem(Data);
 end;
end;

Спасибо за ответ и респект за компонент.

[AXS]

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

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

Если не против, то я могу переделать этот момент...

[BOBAH13]

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

[AXS]

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

да и еще, там удалять, редактировать группы и контакты не советую.. у меня бока с ними какие то были не ясные!

Ну, меня группы пока не интересуют... А вот один момент есть: (может что подскажешь) СМС приходит такого типа
moe_mylo@mail.ru:
Text soobsheniya.
Причём от номера +5723 Номер меня не совсем волнует (хотя интересно почему именно +5723), а вот то что перед текстом сообщения мыло высвечивает - это ни к чему... Может его можно убрать или заменить чем либо (например ником)??

[BOBAH13]

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

[Serjaru]

Пожалуйста дайте этот компонет с SMS. Я пробовал сам вставлять функцию выше, но ничего не приходит

[BOBAH13]

НУ у меня он без смс. AXS к нему добавил ( причем выше указана функция ) отсылку смс. Более там и не требуется, если функция рабочая то за пределы ее больше писать ничего и ненадо, ну чисто консанту и все MRIM_CS_SMS ( если я ее не указал раньше ). p.s. там отсылку если не исправили, то надо исправить она там сразу прямая вроде, это честно говоря тупо я сделал, просто давно было

[AXS]

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

Пожалуйста дайте этот компонет с SMS. Я пробовал сам вставлять функцию выше, но ничего не приходит

Компонент с СМС

Чуть позже выложу переписаную версию. Кое-что исправляю и добавляю.
Кстати про траблу описаную в предыдущем посте - не понял как исправить...

[Crod]

yXo выложил компонент для MRIM:
http://yxu.org.ru/index.php?do=load&id=1&cat=sources

[Crod]

Есть вопрос: как получить список контактов?