CommFort

Код: Выделить всё

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;