代码获取当前环境数据策略

jiahaiming

var
  lBizUrl: TBizUrl;
  lMessage: TGetBizObjectPoliciesMessage;
  lBizObjectPolicy: TBizObjectPolicy;
  I: Integer;
begin
  lBizUrl := TBizUrl.Create;
  //lBizURL.URL := GetComponentModule(Owner).BizURL.URL + FileUtils.PathDelim + dsbTreeData.DataSetID + cDataSetExt;
  lBizURL.URL := 'Biz:\OPERATION\ZJKHGXSWGL\WorkUnitInfo.Info\TREEDATA.DataSet';
  lMessage := TGetBizObjectPoliciesMessage.Create(lBizURL);
  try
    lMessage.PolicyKinds.Add(cPolicySememicData);
    lMessage.PolicyKinds.Add(cPolicyDataSet);
    Context.BroadcastToParent(lMessage);
    Context.SendMessage(lMessage);
    for I := 0 to lMessage.Policies.Count - 1 do
    begin
      lBizObjectPolicy := TBizObjectPolicy(lMessage.Policies[I]);
      if (lBizObjectPolicy is TDataSetPolicy) then
        jsdialogs.ShowMsg((lBizObjectPolicy as TDataSetPolicy).BizRange.Text, '');
    end;
  finally
    lMessage.Free;
  end;
end;