![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() |
Unconnected |
![]()
Сообщение
#1
|
![]() mea culpa ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 372 Пол: Мужской Реальное имя: Николай Репутация: ![]() ![]() ![]() |
Mrim - компонент для работы с протоколом mail Agent. Написал его Алексей Панов, и приложение тоже написал, наподобие mail-агент. Подробнее здесь: http://andml.org.ru/opensource.htm . Так вот, проект с открытым исходным кодом. Так вот, на сайте можно скачать исходник (Delphi) всего приложения. А сам компонент, как я понял, это Mrim.pas. Но при его компиляции мало того, что нужны сторонние компоненты, служащие для графического отображения элементов, так ещё и ошибки возникают.. (Undeclared identifier, например). Вот возник вопрос, может я совсем не то компилирую? [Delphi 2007]
Сообщение отредактировано: Unconnected - 27.03.2009 19:44 -------------------- "Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
|
![]() ![]() |
Unconnected |
![]()
Сообщение
#2
|
![]() mea culpa ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 372 Пол: Мужской Реальное имя: Николай Репутация: ![]() ![]() ![]() |
Нашёл более простой компонент для работы с 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). -------------------- "Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
|
![]() ![]() |
![]() |
Текстовая версия | 11.07.2025 1:36 |