Передача объекта из одного экземпляра класса в другой с запретом обращаться к методам и свойствам этого объекта

@Sanches · Регистрация: 01.03.2013

Author24 — интернет-сервис помощи студентам

Всем привет!
Есть класс, в котором используется объект (MyObject, объявленный в private).
При создании второго экземпляра этого класса нужно передать из первого этот объект. Причем так, чтобы нельзя было изменить никакое свойство этого объекта (вне класса) и нельзя было вызвать его методы.
Создал в классе свойство на чтение

Delphi

1	property ObjectReadOnly:TMyObject read MyObject;

Но при обращении к этому свойству (извне) могу обращаться к его членам без проблем, чего мне не нужно (класс общего пользования, поэтому не хотелось бы, чтобы он перестал работать, если кто-нибудь сделает MyClass.ObjectReadOnly.Free, например)
Возможно ли сделать это в Delphi?

Спасибо!

@Nanotentacle · 05.02.2019, 09:34

Ну, свойство с геттером тут точно не поможет. В нем хранится только указатель не объект. Далее, защищаться от удаления этого объекта вы будете от себя или от сторонних пользователей вашего класса? Если от себя, то тут надо лучше простроить алгоритм, чтобы избежать этих ситуаций. Если от других, то все просто. Объявляем деструктор объекта и проверяем:

Delphi

TMyObject = class(TObject)
 private
  FReadOnly:Boolean;
 protected
 public
  destructor Destroy;override;
end;
 
...
 
procedure TMyObject.Destroy;
begin
if not FReadOnly then
 inherited;
end;

Имхо, должно сработать.

@Sanches · 05.02.2019, 09:47 **[ТС]**

Сообщение от Nanotentacle

свойство с геттером тут точно не поможет

не поможет, чтобы запретить использовать члены объекта или передать его в другой экземпляр этого класса?
Сама передача хорошо работает, но вот только смутило то, что объект этот извне могу использовать хоть как.

Сообщение от Nanotentacle

защищаться от удаления этого объекта вы будете от себя или от сторонних пользователей вашего класса?

От себя вряд-ли, ведь я знаю, что этот объект трогать нельзя, только передать его в другой экземпляр.
С другой стороны, сейчас помню, потом забыл.
Также, будут другие пользователи класса, которые могут что нибудь натворить с объектом.
За идею и код - спасибо, но Free - не единственный метод объекта. Неужели придется оверрайдить каждый метод?

@krapotkin · 05.02.2019, 09:55

Delphi

TSecretClass=class
end;
 
TMyclass=class
private
  Fsc:TSecretClass;
public
  constructor Clone(const ASrc:TMyClass);
end;
 
constructor TMyclass.Clone(const ASrc:TMyClass);
begin
  inherited Create;
  Fsc := ASrc.Fsc;
end;

Добавлено через 1 минуту
а есть еще
CLASS VAR
если вам нужна переменная общая для всех объектов этого класса

@Nanotentacle · 05.02.2019, 10:09

Сообщение от Sanches

Сама передача хорошо работает, но вот только смутило то, что объект этот извне могу использовать хоть как.

Чтобы его нельзя было использовать извне его не должно быть ни в каком виде в секции public. Соответственно, отсюда вывод: надо делать для класса-обертки свои методы, которые будут вызывать методы вложенного класса. Тогда все будет штатно и с проверкой.

Сообщение от Sanches

не поможет, чтобы запретить использовать члены объекта или передать его в другой экземпляр этого класса?

Ни для чего. Защитит только от прямого присвоения (читай, замещения ссылки) другого экземпляра класса.

Сообщение от Sanches

С другой стороны, сейчас помню, потом забыл

Имхо, надо по умолчанию считать, что жизненный цикл внутренних объектов объекта-обертки должен обрабатываться объектом-оберткой и никем другим, если нет уверенности в ином.

@Sanches · 05.02.2019, 10:19 **[ТС]**

Сообщение от krapotkin

Delphi-код ...

Тоже думал об этом. Спасибо!

@Sanches 4 / 4 / 5 Регистрация: 01.03.2013 Сообщений: 180
	05.02.2019, 09:47 [ТС]	3
	Сообщение от Nanotentacle свойство с геттером тут точно не поможет не поможет, чтобы запретить использовать члены объекта или передать его в другой экземпляр этого класса? Сама передача хорошо работает, но вот только смутило то, что объект этот извне могу использовать хоть как. Сообщение от Nanotentacle защищаться от удаления этого объекта вы будете от себя или от сторонних пользователей вашего класса? От себя вряд-ли, ведь я знаю, что этот объект трогать нельзя, только передать его в другой экземпляр. С другой стороны, сейчас помню, потом забыл. Также, будут другие пользователи класса, которые могут что нибудь натворить с объектом. За идею и код - спасибо, но Free - не единственный метод объекта. Неужели придется оверрайдить каждый метод? 0

@Nanotentacle 882 / 404 / 173 Регистрация: 20.10.2016 Сообщений: 1,828
	05.02.2019, 10:09	5
	Сообщение от Sanches Сама передача хорошо работает, но вот только смутило то, что объект этот извне могу использовать хоть как. Чтобы его нельзя было использовать извне его не должно быть ни в каком виде в секции public. Соответственно, отсюда вывод: надо делать для класса-обертки свои методы, которые будут вызывать методы вложенного класса. Тогда все будет штатно и с проверкой. Сообщение от Sanches не поможет, чтобы запретить использовать члены объекта или передать его в другой экземпляр этого класса? Ни для чего. Защитит только от прямого присвоения (читай, замещения ссылки) другого экземпляра класса. Сообщение от Sanches С другой стороны, сейчас помню, потом забыл Имхо, надо по умолчанию считать, что жизненный цикл внутренних объектов объекта-обертки должен обрабатываться объектом-оберткой и никем другим, если нет уверенности в ином. 1

@Sanches 4 / 4 / 5 Регистрация: 01.03.2013 Сообщений: 180
	05.02.2019, 10:19 [ТС]	6
	Сообщение от krapotkin Delphi-код ... Тоже думал об этом. Спасибо! 0

Передача объекта из одного экземпляра класса в другой с запретом обращаться к методам и свойствам этого объекта

Решение