Records verwalten mit TList und TStream

[Panthrax]

Mein Kenntnisstand bei Streams ist, dass ich gedenke TWinSocketStream zu überschreiben um von der Verbindung gelesene Streamdaten vorzuhalten, damit die Liste auf diesen Daten arbeiten kann. Werden Daten in über das Stream-Objekt Daten versendet, betrifft dies möglicherweise auch die Liste. Daher ist es wünschenswert die Stream-Funktionen und die Listen-Funktionen in einem Objekt zu vereinen. Oder eben, da dies in Delphi nicht geht, zwei sehr kooperative Objekte zu schaffen.

Zur Veranschaulichung:

Delphi-Quellcode:

{ eingehender Datenstrom }
+--------+--------+--------+--------+-------<
| Record | Record | Record | Record | ...
+--------+--------+--------+--------+-------<
     |                           { ausgehender Datenstrom }
     |                              +-------+----->
     |                              +-------+----->
     |                                A
     |                                |
+|||||||||||||||||||||||||||||||||||||||||||||||||||+
=    |                                |             =
=    | Lesen (TWinSocketStream)       | Schreiben   =
=    |                                |             =
=    V                                |             =
= +===============================================+ =   
= | TMyTWinSocketStream-Objekt                    | =
= +-----------------------------------------------+ =
= | { Hier gibt es einen Puffer. }                | =
= | { Der hält die Verbindungsdaten bereit, }     |<-----
= | { damit das TRecordListStreamBounded-Objekt } |----->
= | { sie anfordern kann. }                       | =
= +===============================================+ =
=    |                                A             =
=    | Lesen (TMyWinSocketStream)     | Schreiben   =
=    |                                |             =
=    V                                |             =
= +===============================================+ =
= | TRecordListStreamBounded                      | =
= +-----------------------------------------------+<-----
= | { Verwaltung der Liste. }                     |----->
= +===============================================+ =
=                                                   =
+|||||||||||||||||||||||||||||||||||||||||||||||||||+