CommFort

форум поддержки
Текущее время: 00:26, 24.05.2018

Часовой пояс: UTC+04:00




Начать новую тему  Ответить на тему  [ 1 сообщение ] 
Автор Сообщение
СообщениеДобавлено: 21:29, 22.09.2011 
Аватара пользователя

Зарегистрирован: 20:30, 22.09.2011
Сообщения: 356
Откуда: Украина, г.Бердичев
Код:
procedure PluginProcess(dwID : DWORD; bInBuffer : PAnsiChar; dwInBufferSize : DWORD);

var iReadOffset, icon , icon2, msgtype: Integer;
    aDataToSend : AnsiString;
    user, myname , myname2 , ip, chanel, topic , msgtxt: WideString;

    result , sex : WideString;

begin
   //Функция приема событий
   iReadOffset := 0;


    if (dwID = 10) then // Сообщение в приват или лс
   begin
//Получаем данные о событии
    user := fReadText(bInBuffer, iReadOffset);// !user
    ip := fReadText(bInBuffer, iReadOffset);// !ip
    icon := fReadInteger(bInBuffer, iReadOffset);// !icon
    msgtype := fReadInteger(bInBuffer, iReadOffset);// !msgtype
    msgtxt := fReadText(bInBuffer, iReadOffset);// !text




    //ShowMessage (msgtxt);

// отправляем ЛС для Msgs
    aDataToSend :=
    fTextToAnsiString('Msgs')+// текст
    fIntegerToAnsiString(0)+ // важность
    fTextToAnsiString(msgtxt);// текст
    CommFortProcess(dwPluginID, 70, PAnsiChar(aDataToSend), Length(aDataToSend))


   end;
end;


Спасибо за помощь в лс!


Вернуться к началу
Показать сообщения за:  Поле сортировки  
Начать новую тему  Ответить на тему  [ 1 сообщение ] 

Часовой пояс: UTC+04:00


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и 1 гость


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Создано на основе phpBB® Forum Software © phpBB Limited
Русская поддержка phpBB