Ahhh, ok.
Sehr interessante Komponente. die Aufgabe erfüllt meine allerdings nicht. Ich hatte dem aFileStream nicht so ein große Beachtung geschenkt, wie es notwendig wäre.
Was wäre, wenn du in den MemoryStream auch gleich die Positionen mit speichern würdest?
Edit: Es haben sich grad so ziemlich alle Fragen meinerseits bezüglich deines Codes geklärt.
Aber einiges musst du noch ändern. CopyFrom liefert z.B. Fehler, wenn du über das Ende des Streams hinausliest:
Delphi-Quellcode:
aFileStream.Position:=Pos;
BufferStream.copyfrom(aFilestream,count);
Hier ist (so weit ich sehe) nicht sichergestellt, dass Pos+Count < aFileStream.size.
Und bei mir siehst du wofür abstrakte Methoden nützlich sind. Ich brauche nicht ein Memorystream und einen Filestream extra. ich habe einfach nur einen Stream und trotzdem kann ich die Methoden read und write benutzen, da ich den Stream mit TMemorystream oder eben TFilestream erzeuge. Und ich bruache auch keine Variable swapped, da ich meine Stream-Variable abfragen kann, was sie gerade ist.