【搞定】信息隔离级的问题**

stellastarr

35楼，如果该文档下面没有信息代理了，在功能环境中创建该文档的实例的时候就不会去找该文档引用的信息环境，也就是说该文档是独立于信息存在的，所以Button2的调用就不会报错，我的理解正确么，版主？

国超软件

stellastarr，最好一个问题起一个帖子，别混着问

atiger

35楼已经跟说了错误的原因，文档是不是独立于信息存在的，你的理解不对。

stellastarr

35楼只是解释了文档上有信息代理时创建实例报错的原因，那文档上没有信息代理的时候再创建实例之后的运行机制又是如何的呢？版主44楼的回答有些笼统，请详细说明一下，谢谢

stellastarr

顶一下。。。

alang

我这里给出了三种方法来调用文档
procedure TMainForm.Button2Click(Sender: TObject);
var
  lInfo: INFO_YYCSYWXX.TDOC_KBBD1;
  lContext: TContext;
  cInfoURL: String;
  lBizObject: TBizObject;
  i: Integer;
begin
  cInfoURL := 'Biz:\LZ\INFO_YYCSYWXX.Info';

//在功能环境找信息环境

  for i:=0 to Context.ChildCount-1 do
  try
    if SysUtils.SameText(cInfoURL, (Context.Children.Owner as TInfo).BizClassURL.BizURL.URL) then
    begin
      lBizObject := Context.Children.Owner;
      lContext := Context.Children;
    end;
  except
  end;
  lInfo := INFO_YYCSYWXX.TDOC_KBBD1.Create(lContext);
  try
    lInfo.ShowFormDoc;
  finally
    lInfo.Free;
  end;
end;

procedure TMainForm.Button3Click(Sender: TObject);
var
  lInfo: INFO_YYCSYWXX.TDOC_KBBD1;
begin

  lInfo := INFO_YYCSYWXX.TDOC_KBBD1.Create(ibINFO_YYCSYWXX.Info.Context);
  try
    lInfo.ShowFormDoc;
  finally
    lInfo.Free;
  end;
end;

procedure TMainForm.Button4Click(Sender: TObject);
var
  lInfo: INFO_YYCSYWXX.TDOC_KBBD1;
  lContext: TContext;
  lBizClassURL: TBizClassURL;
begin
  lBizClassURL := TBizClassURL.Create;
  lBizClassURL.BizURL.URL := 'Biz:\LZ\INFO_YYCSYWXX.Info';
  lContext := (Context.GetBizObject(lBizClassURL) as TInfo).Context;

  lInfo := INFO_YYCSYWXX.TDOC_KBBD1.Create(lContext);
  try
    lInfo.ShowFormDoc;
  finally
    lInfo.Free;
  end;
end;

stellastarr

ok，谢谢版主：）