Нашёл более простой компонент для работы с MRIM (TMailClient), устанавливается сразу, по функционалу совсем немного беднее, ну да мне не все функции нужны. Решил сделать своеобразный "гибрид", добавить в TmailClient, как в более простой, некоторые нужные мне функции из MRIM. Так вот, функция добавления Телефонного контакта:
Код
procedure TMrim.Add_phone_user(nick,phone: string);
var
add: string;
buf: string;
begin
mail_to_add:= 'phone';
nick_to_add:= nick;
phone_to_add:= phone;
add:= setLPS('phone');
nick:= setLPS(nick);
phone:=setLPS(phone);
buf:= setUL(CONTACT_FLAG_SMS)+setUL(103)+add+nick+phone+ setUL(MA_SPACE);
sendLPS(num,MRIM_CS_ADD_CONTACT,buf,length(buf)div 2);
end;
Это в MRIM. Если разобраться, то входные параметры сначала преобразуются в какой-то иной вид (использовал процедуры из TMRIM (setLPS,setUL)), формируется запрос, а в предпоследней строке он отправляется на сервер. Так вот, в MRIM отправка производится сразу компонентом (т.е. он сам создаёт TCP подключение), а в TMailClient нужно отдельно подключаться с помощью компонента TTCPClient, а потом поверх этого подключения работать.. Поэтому неясно, как отправлять в TMailClient (там есть процедуры типа sendpack, но входныу параметры иные, чем у sendLPS).