IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

> TMrim
Unconnected
сообщение 27.03.2009 19:43
Сообщение #1


mea culpa
*****

Группа: Пользователи
Сообщений: 1 372
Пол: Мужской
Реальное имя: Николай

Репутация: -  24  +


Mrim - компонент для работы с протоколом mail Agent. Написал его Алексей Панов, и приложение тоже написал, наподобие mail-агент. Подробнее здесь: http://andml.org.ru/opensource.htm . Так вот, проект с открытым исходным кодом. Так вот, на сайте можно скачать исходник (Delphi) всего приложения. А сам компонент, как я понял, это Mrim.pas. Но при его компиляции мало того, что нужны сторонние компоненты, служащие для графического отображения элементов, так ещё и ошибки возникают.. (Undeclared identifier, например). Вот возник вопрос, может я совсем не то компилирую? [Delphi 2007]

Сообщение отредактировано: Unconnected - 27.03.2009 19:44


--------------------
"Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
Unconnected
сообщение 29.03.2009 15:43
Сообщение #2


mea culpa
*****

Группа: Пользователи
Сообщений: 1 372
Пол: Мужской
Реальное имя: Николай

Репутация: -  24  +


Код
Procedure tmailclient.add_sms_contact(var nick,phone:string);
var
  Pack:TMRIMPacket;
  Data:Pointer;
  add:string;
begin
  MMP_Pack(@Pack, FSeq, MRIM_CS_ADD_CONTACT, FSocket.Port, FSocket.IP);
  MMP_addUL(@Pack,data,CONTACT_FLAG_SMS);
  MMP_addUL(@Pack,data,103);
  MMP_addLPS(@Pack,data,'phone');
  mmp_addlps(@Pack,data,nick);
  mmp_addlps(@Pack,data,phone);
  MMP_addUL(@Pack,data,MA_SPACE);
  MMP_SendPack(FSocket.Socket, @Pack, Data);
  FSeq:= FSeq + 1;
  FreeMem(Data);
end;


Получилось вот так, вроде как надо,но не работает..


--------------------
"Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 11.07.2025 6:02
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"