Property für Anwender READONLY, intern nicht

[scrat1979]

Hallo zusammen,

ich habe gerade ein Problem bezüglich meiner selbst entwickelten Komponente. Die wichtigsten Klassen-Eigenschaften und -Methoden findet ihr anschließend. Zusammengefasst handelt es sich um einen TCP-Server mit einer Userliste. Der TCP-Server (Komponente) muss INTERN einige Dinge in der User-Klasse zuweisen (z.B. LastLogin). Auf der anderen Seite soll der Benutzer der Komponente "von außen" auf die UserListe zugreifen können. Hier soll jedoch eine Veränderung der Eigenschaften NICHT möglich sein. Um beim genannten Beispiel zu bleiben soll es also von außen NICHT möglich sein, die Property LastLogin zu schreiben sondern ausschließlich zu lesen.

Meine Lösungsidee: Ich erzeuge im Getter eine "ReadOnly"-Version der entsprechenden TExtCientInfo und gebe diese dann über den Getter zurück. Dazu würde ich eine neue private Variable im Server (z.B. FReadOnlyClientInfo) erstellen und diese im Getter entsprechend bestücken und zurückgeben. Diesbezüglich wäre es vielleicht interessant zu wissen, dass auf diese Variable immer nur EIN Lesezugriff gleichzeitig erfolgen wird - mehrere Threads kommen sich dabei definitv nicht in die Quere. Ist dieser Ansatz korrekt?

Anbei ein Auszug aus dem Klassendesign. Sollte noch was fehlen werde ich das natürlich nachreichen.

TCP-Server:

Delphi-Quellcode:

type TMyTCPServer = class(TComponent)
private
 function FGetClient(Idx : Integer) : TExtClientInfo; // Hier müsste eine ReadOnly-Version von TExtClientInfo zurückgegeben werden!
 [...]
public
 [...]   
 property Clients[Idx : Integer] : TExtClientInfo read FGetClient;
 [...]
end;

[...]

function TMyTCPServer.FGetclient(Idx : Integer) : TExtClientInfo;
begin
 Result := FClientList[Idx];
end;

Auszug aus TExtClientInfo

Delphi-Quellcode:

type TExtClientInfo = class(TBasicClientInfo)
  private

  [...]

  public
    [...]
    // Die Basisinfos (ClientName, ID etc. finden sich in der Basisklasse)
    
    property Active       : Boolean   read FActive;

    // Die Properties müssen nach außen hin read-only sein...   
    property LastPing     : TDateTime read FLastPing     write FSetLastPing;
    property LastLogin    : TDateTime read FLastLogin    write FSetLastLogin;
    property GUID         : String    read FGUID         write FSetGUID;
    property LastActivity : TDateTime read FLastActivity write FSetLastActivity;
    [...]
end;

Besten Dank für Eure Mühe mir zu helfen,

[Hobbycoder]

Ich weiß nicht ob ich dich richtig verstanden habe, aber lass doch einfach den Setter  write FSetLastLogin; weg. Dann ist die Property ReadOnly.

[Zacherl]

Zitat von Hobbycoder:

Ich weiß nicht ob ich dich richtig verstanden habe, aber lass doch einfach den Setter  write FSetLastLogin; weg. Dann ist die Property ReadOnly.

Ne, das Problem ist das Gleiche, wie wenn man z.B. eine TList<T> Property hat. Dann kann man zwar das Ersetzen der Instanz verhindern, wenn man write nicht angibt, aber ein Aufruf von z.B. List.Delete(i) ist dennoch möglich.

@TE: Soweit ich weiß gibt es da in Delphi keine "saubere" Methode. Ein read-only Proxy Objekt wäre wohl auch mein Ansatz; auch wenn es unnötiger Overhead ist. Am elegantesten wäre wohl noch ein Interface, was du einmal von der "richtigen" Klasse und einmal vom Proxy implementierst.

[Rollo62]

Könntest du mit ReadOnly Interfaces arbeiten ?

[Hobbycoder]

Zitat von Zacherl:

Zitat von Hobbycoder:

Ich weiß nicht ob ich dich richtig verstanden habe, aber lass doch einfach den Setter  write FSetLastLogin; weg. Dann ist die Property ReadOnly.

Ne, das Problem ist das Gleiche, wie wenn man z.B. eine TList<T> Property hat. Dann kann man zwar das Ersetzen der Instanz verhindern, wenn man write nicht angibt, aber ein Aufruf von z.B. List.Delete(i) ist dennoch möglich.

Stimmt. Bei nochmaligem Durchlesen habe ich gemerkt, dass ich das tatsächlich überlesen hatte . Ich war fälschlicherweise davon ausgegangen, das es sich um ein direktes Property der Komponente handelt.

[scrat1979]

Vielen Dank für eure Antworten. Die Sache mit dem Interface hört sich interessant an. Ich habe mich schon etwas mit Interfaces beschäftigt und verstehe sämtliche Turorials und kann sie auch entsprechend umsetzen.

Könnt ihr mir dennoch mit paar Zeilen (Pseudo)code zeigen wir man das umsetzt? Das ist mir momentan nicht ganz klar... ich meinte insbesondere die Trennung von ReadOnly und beschreibbar.

Besten Dank bisher!!!

[scrat1979]

Zitat von Hobbycoder:

Zitat von Zacherl:

Zitat von Hobbycoder:

Ich weiß nicht ob ich dich richtig verstanden habe, aber lass doch einfach den Setter  write FSetLastLogin; weg. Dann ist die Property ReadOnly.

Ne, das Problem ist das Gleiche, wie wenn man z.B. eine TList<T> Property hat. Dann kann man zwar das Ersetzen der Instanz verhindern, wenn man write nicht angibt, aber ein Aufruf von z.B. List.Delete(i) ist dennoch möglich.

Stimmt. Bei nochmaligem Durchlesen habe ich gemerkt, dass ich das tatsächlich überlesen hatte . Ich war fälschlicherweise davon ausgegangen, das es sich um ein direktes Property der Komponente handelt.

Jupp.... genau DAS ist der Knackpunkt

[Codehunter]

Das geht nur wenn deine List-Klasse in der selben Unit überschrieben wird und deren Methoden wie Delete() umgebogen werden. Dann kannst du dort auf Protected- und Private-Deklarationen der List-Klasse auch aus der TCP-Klasse aus zugreifen. Außerhalb dieser Unit aber nicht.

Besser wäre es wohl aber, deiner Klasse eine indizierte Getter-Property zu verpassen.

Allgemein halte ich das Konzept aber für irrig. Denn meiner Erfahrung nach kann man sich auf den Kopf stellen, wenn der Anwender etwas nicht darf sucht er sich seine Wege oder sucht sich eine andere Lösung. Fange Fehlersituationen durch ungeplante externe Löschungen intern durch Exceptions und/oder Events ab.

[Rollo62]

Ich meine das ungefähr so, nur über Interface zugreifen, und das ReadOnly-Interface bietet dann gar keine Schreibmethoden an.

Delphi-Quellcode:

 ITcpServer = interface
 // Full access 
 ....


 ITcpServerReadOnly = interface
 // Restricted access 
 ....


 TTcpServer = class(TTcpServerBase, ITcpServer, ITcpServerReadOnly)
  private
  ...

Du kannst auch mal in den Spring4D Sourcen schauen, da gibt es auch ein paar schöne Beispiele zu ReadOnly Interfaces, z.B. ReadOnlyList.

Rollo