eigenes Object / Klasse in Stream einlesen

[Sim_Star]

Hallo,

ich möchte gern mein eigenes Object zur Laufzeit in einen Stream einlesen und dann mittels ServerSocket verschicken.
Wie stell ich das an?

MfG Marco

[Sir Rufo]

Ein Objekt?

Dann bau dir in das Objekt Methoden, die daraus einen Stream machen bzw. daraus wieder die Werte auslesen.

Delphi-Quellcode:

TMyObject = class
  procedure SaveToStream( AStream : TStream );
  procedure LoadFromStream( AStream : TStream );
  class function CreateFromStream( AStream : TStream ) : TMyObject;
end;

class function TMyObject.CreateFromStream( AStream : TStream ) : TMyObject;
begin
  Result := TMyObject.Create;
  Result.LoadFromStream( AStream );
end;

[himitsu]

Alternativ ginge auch ein Nachfahre von TPersistent, welcher dann über TWriter und TWriter serialisiert würde.

Vorteil: Man hätte eine halbwegs dynamische Datenstruktur im Stream, welche ein bekanntes Datenformat besitzt und die ihren inneren Aufbau kennt.
So könnte man problemloser auf eine Veränderung des Aufbaus der eigenen Komponente ragieren.

PS: Die DFMs sind in dem Format gespeichert. Also oftmals zwar in der Text-Variante davon, aber zum Speichern/Laden wird die Binärvariante verwendet.



Natürlich könnte man auch noch andere Formate nutzen, wie z.B. JSON und XML.

[QuickAndDirty]

Zitat von Sim_Star:

Hallo,

ich möchte gern mein eigenes Object zur Laufzeit in einen Stream einlesen und dann mittels ServerSocket verschicken.
Wie stell ich das an?

MfG Marco

Das könnte helfen!
http://www.codeproject.com/Articles/...ctsplusinplusD

Da kannst du dir abschauen wie du ein Objekt in einen Json String umwandelst und umgekehrt.