Настраиваю отправку всех сообщений на внешний сервер. (прошу сильно не пинать, многое делаю методом "тыка")
Код такой:
function OnPrivateMessage(iCID, iUIN, iUINTo, iMsgType: integer; sMsg: string): boolean;
var
sURL, sHeaders, s: string;
begin
sURL := 'http://webapi:[email protected]:4055/execsvcscript?name=MyChat1&startparam1=';
s := '{}';
JSONSetInteger(s, 'UINFrom', iUIN);
JSONSetInteger(s, 'UINTo', iUINTo);
JSONSetString(s, 'Msg', mConvertMsgToPlainText(sMsg, iMsgType));
sHeaders := EncodeBase64(s);
mHTTPSendGetMessage(sURL+sHeaders, sHeaders, 1000);
result := true;
end;
begin
end.
JSON отправляю в параметре "startparam1"
Сообщения то отправляются, то нет. Сообщение из одного слова отправляется всегда, более одного слова не понятно по какому алгоритму- могут отправиться, а могут и нетр.
Например, фраза "прием сообщений из чата" отправляется всегда, причем можно её вводить вручную и отправлять, можно копировать и вставлять. А вот любое сочетание двух слов из этой фразы не отправляются никогда.
Так же не отправляются ссылки.
Помогите, добры люди, пожалуйста.