【搞定】你们提供的操作Message的调用方法报错!**

ccseasy

AOrgURLs是TStrings; AOrgURLs.Count 是有值的

lOrgURL是TOrgURL;

for J := 0 to AOrgURLs.Count - 1 do
    begin

      lOrgURL := AOrgURLs.Objects[J] as TOrgURL;
     ...................
     ...................
     ...................
问题是AOrgURLs.Objects[J] 总是空,执行下面的语句就报错,看看有什么问题?
case lOrgURL.Kind of
        TBizObjectKind.boOrgan, TBizObjectKind.boDept:
          Org.OrgSys.OrgSystem.GetBizURLsByOrgExpr(SysUtils.Format(ORGEXPR, [lOrgURL.DeptID, '', '']),
            lBizURLs);
        TBizObjectKind.boPositionMember:
          Org.OrgSys.OrgSystem.GetBizURLsByOrgExpr(SysUtils.Format(ORGEXPR, [lOrgURL.DeptID, lOrgURL.PositionID, '']),
            lBizURLs);
        TBizObjectKind.boPersonMember:
          lBizURLs.Add(lOrgURL.BizURL.URL);
      end;

alang

我给你的例子上面都是为调用做准备的，只有一句是真正的调用，现在给你一个更简单的例子，免得误导你

uses
  OAMSGSERVICELIB;

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;

alang

上面的例子，一个是发消息给一个人的，一个是发给多个人的

ccseasy

谢谢,搞定!,结帖吧