Неправильная работа mConvertMsgToPlainText
Добавлено: Пт дек 07, 2018 1:51 pm
Приветствую.
При передаче сообщения из одного символа mConvertMsgToPlainText не убирает служебные символы.
Пример:
function OnPrivateMessage(iCID, iUIN, iUINTo, iMsgType: integer; sMsg: string): boolean;
var
sCmd: string;
i, j, k: integer;
begin
// your own code
result := true;
if iUINTo = 0 then
begin
// получить текст команды
sCmd := mConvertMsgToPlainText(sMsg, iMsgType);
mSendPrivateMessage(0, iUIN, 'sMsg = ' + sMsg, 1, true);
mSendPrivateMessage(0, iUIN, 'sCmd = ' + sCmd, 1, true);
end;
end;
Посылаю 1
[Пт 07 дек 13:46:18] Elisa> sMsg = L$1
[Пт 07 дек 13:46:18] Elisa> sCmd = L$1
Посылаю 11
[Пт 07 дек 13:46:23] Elisa> sMsg = L$11
[Пт 07 дек 13:46:23] Elisa> sCmd = 11
Сервер 7.1.0.18
При передаче сообщения из одного символа mConvertMsgToPlainText не убирает служебные символы.
Пример:
function OnPrivateMessage(iCID, iUIN, iUINTo, iMsgType: integer; sMsg: string): boolean;
var
sCmd: string;
i, j, k: integer;
begin
// your own code
result := true;
if iUINTo = 0 then
begin
// получить текст команды
sCmd := mConvertMsgToPlainText(sMsg, iMsgType);
mSendPrivateMessage(0, iUIN, 'sMsg = ' + sMsg, 1, true);
mSendPrivateMessage(0, iUIN, 'sCmd = ' + sCmd, 1, true);
end;
end;
Посылаю 1
[Пт 07 дек 13:46:18] Elisa> sMsg = L$1
[Пт 07 дек 13:46:18] Elisa> sCmd = L$1
Посылаю 11
[Пт 07 дек 13:46:23] Elisa> sMsg = L$11
[Пт 07 дек 13:46:23] Elisa> sCmd = 11
Сервер 7.1.0.18