byte in memorystream einfügen - wie am einfachsten ?

[soulies]

hi habe folgendes 'problem':

ich will an ein memorystream ein byte 'anhängen'

dazu hatte ich mir überlegt: [ausschnitt]

Delphi-Quellcode:

myStream := TMemoryStream.Create;
myStream.LoadFromFile(eine Datei);
myStream.Position := myStream.Size-1;
myStream.Write(Byte,1);

aber damit verändere ich nur das letzte byte ...


wo liegt mein denkfehler ?

[Klaus01]

Guten Morgen,

mit
myStream.size := myStream.size +1 die Größe des Streams erweitern und dann wie gehabt das letzte Byte verändern.

Grüße
Klaus

[Muetze1]

@Klaus01: Er will das letzte Byte verändern und nicht ein neues hinzufügen...

@soulies: Den geänderten Stream auch wieder zu speichern? Bisher lädst du ihn in den Speicher und veränderst ihn. Sollte es vielleicht anstatt TMemoryStream TFileStream heissen?

[Klaus01]

@Muetze1:
Ich habe dieses gelesen:

Zitat:

habe folgendes 'problem':

ich will an ein memorystream ein byte 'anhängen'

und das sieht nach anhängen/erweitern aus.

Grüße
Klaus

[Muetze1]

Ok, das habe ich wiederrum irgendwie überlesen. Ok, damit ist es nicht eindeutig was er nun machen will.

@soulies: Wenn du wirklich anhängen willst, dann setze die Position nicht auf ein Byte vor dem Ende der Datei sondern auf das Ende der Datei und schreibe dann dein Byte. Dein bisheriger Code überschreibt immer das letzte Byte im Stream.

Die Grösse muss nicht zuvor vergrössert werden.

[Tyrael Y.]

Du darfst die Position nicht zurücksetzen.
Du stehst nach dem LoadFromFile schon an der letzten Position.
Daher brauchst du jetzt nur noch zu schreiben und das Byte wird angehängt.

Delphi-Quellcode:

myStream := TMemoryStream.Create; 
myStream.LoadFromFile(eine Datei); 
//myStream.Position := myStream.Size-1; 
myStream.Write(Byte,1);

[soulies]

danke für die schnellen und hilfreichen antworten

cya