konstantin_11Получается, что при присвоении объекта в свойство класса создается копия объекта, в то время как при присвоении объекта в локальную переменную копируется ссылка на объект? Cloning Objects konstantin_11Если так, то как избежать копирования объекта при присвоении его в свойство класса?ЗаменитеТакой вот кодProperty stream As %Stream.Object;наТакой вот кодProperty stream As %ObjectHandle;Но в таком случае Вы сможете присваивать свойству любой OREF (не только на потомков класса %Stream.Object).

eduard93servitНо в таком случае Вы сможете присваивать свойству любой OREF (не только на потомков класса %Stream.Object).
steamSet() решает эту проблему , нет?Да, эту проблему решает, но не решает проблемы любого OREF, в том числе уже используемого другим объектом:Два разных объекта в памяти смотрят на один и тот же поток/// d ##class(test.clone).test3()
ClassMethod test3()
{
  write "test.clone.test3:",!,!
  
  #dim stream as %Stream.TmpCharacter = ##class(%Stream.TmpCharacter).%New()
  
  #dim obj1 as test.clone = ..%New()
  #dim obj2 as test.clone = ..%New()
  set obj1.stream = stream
  set obj2.stream = stream
  
  write "before:",!
  write "stream size:",stream.Size,!
  write "obj1.stream size:",obj1.stream.Size,!
  write "obj2.stream size:",obj2.stream.Size,!
  
  write !,"write some data to stream...",!,!
  do stream.Write("Lorem ipsum dolor sit amet, consectetur adipiscing elit.")
  
  write "after:",!
  write "stream size:",stream.Size,!
  write "obj1.stream size:",obj1.stream.Size,!
  write "obj2.stream size:",obj2.stream.Size,!

  write !,"write some data to obj1.stream...",!,!
  do obj1.stream.Write("Maecenas blandit dolor neque, ut malesuada lacus iaculis id.")
  
  write "after:",!
  write "stream size:",stream.Size,!
  write "obj1.stream size:",obj1.stream.Size,!
  write "obj2.stream size:",obj2.stream.Size,!
}Если переопределять геттеры/сеттеры, то можно оставить свойству и изначальный тип:Property stream As %Stream.TmpCharacter;

Method streamSet(val As %Stream.TmpCharacter) As %Status
{
  s st=$$$OK
  if ($Isobject(val)) && (val.%IsA("%Stream.TmpCharacter")) {
    s r%stream = val
  }else{
    s st=$$$ERROR($$$FormalArgTypeInvalid,$classname(val),"streamSet()","%Stream.TmpCharacter")
  }
  q st
}
eduard93И стоит добавить ещё обёртку SetSteam(val) As Status которая будет возвращать статус и работать уже через неё.Разве метода streamSet будет недостаточно?

d $system.OBJ.DisplayError(obj.streamSet(proxy))

PS: впрочем, что нужно на самом деле ТС, знает только ТС, но наличие навыков работы с указателями в таком случае резко приветствуется.

eduard93Во втором случае пытается (как я понимаю) выполнить val.%IsA("%Stream.TmpCharacter") и выдает <INVALID OREF>. Почему?w $isobject(124) //0
w $isobject("124") //0Потому что w $classname("123") ;123
 w $classname(123) ;<INVALID OREF>

eduard93Достаточно конечно, но лучше убрать возможность напрямую вызывать set obj.steam=x (по крайней мере из внешних классов)Лучше дождаться ТС, иначе можно нарефакторить вовсе ненужное.
За основу можно взять метод %Library.CacheStream:Set(), который в итоге и используется по умолчанию.
Он, кстати, выдаёт код $$$OrefInvalid, а не $$$FormalArgTypeInvalid, но это дело вкуса:

eduard93Но ведь вторая часть условия не должна выполняться, например выражение w (0 && $classname(123)) выведет 0 т.к. это short-circuit AND.Так она и не выполняется, но зато выполняется$$$ERROR($$$FormalArgTypeInvalid, $classname(val) ,"Setstream()","%Stream.TmpCharacter")