![]() |
Прежде чем задать вопрос, смотрите 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 Пол: Мужской Реальное имя: Николай Репутация: ![]() ![]() ![]() |
Код 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; Получилось вот так, вроде как надо,но не работает.. -------------------- "Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
|
![]() ![]() |
![]() |
Текстовая версия | 11.07.2025 6:02 |