Чт июл 17, 2014 9:26 am Чт июл 17, 2014 9:26 am
function Send_Text_Channel(UIN, UID:Integer; Msg:WideString):WideString;
var
JSONobj: ISuperObject;
begin
JSONobj := SO();
JSONobj.I['UIN'] := UIN; //Пользователь
JSONobj.I['UID'] := UID; //ID Канала
JSONobj.S['Msg'] := Msg; //Сообщение
result := JSONobj.AsJSon;
JSONobj.Clear(true);
JSONobj := nil;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
mcSendDataToMyChat(MCC_Send_MessageToTextChannel,Send_Text_Channel(2,11,'Hello Wolrd!'));
end;
В документации сказано:
22. 0016 cs_put_msg2txt_channel - отправить сообщение в текстовый канал
{
"UIN" : 17, // UIN отправителя
"UID" : 21, // UID канала, куда следует отправить сообщение
"Msg" : "L$Hello!" // текст сообщения
}
Подскажите что не так.