【搞定】发送及时消息问题**

ccseasy

不行啊，点击发送没有反应。

alang

这是我本地做过的例子，如果发多人，应该是人员的ID，不是URL

procedure TMainForm.Button1Click(Sender: TObject);
begin
  TLRMessageServer.Server.Call(Context, 'Ry1', '测试1', 'from 测试1');
end;

procedure TMainForm.Button2Click(Sender: TObject);
var
  lIDs: TStringList;
begin
  lIDs := TStringList.Create;
  try
    lIDs.Add('RY1');
    lIDs.Add('RY2');

    TLRMessageServer.Server.Call(Context, lIDs, '测试2', 'from 测试2')
  finally
    lIDs.Free;
  end;
end;

jiahaiminghr

由于长时间没有反馈，先结贴了，
有问题请开新贴！