【搞定】通讯录添加的数据不能保存？？**

aDragon

为什么不直接使用平台提供的功能呢？
参照平台的调用代码：
  TADDRESSLISTFUNC = class(TFunc)
  private
    {private declarations}
  protected
    procedure DoRun; override;
    procedure DoTerminate; override;
  public
    {public declarations}
  end;

implementation

procedure TADDRESSLISTFUNC.DoRun;
begin
  inherited;
  MailLibrary.TMailLibrary.SetOwnerID(TSystemCore.Operator.ID);
  MainForm := MailLibrary.TAddressListForm.Create(Context);
end;

procedure TADDRESSLISTFUNC.DoTerminate;
begin
  MainForm.Free;
  inherited;
end;

aDragon

lAddressListForm := TAddressListForm.Create(nil);
这种方式取不到业务环境里的相关信息的

bsit

哦   好   我试下

bsit

好 了   解决了   谢谢