Record in Stream und zurück

[sko1]

Das ist mir bekannt, deswegen wird ja alles in einen Stream verpackt!
Der kommt auch korrekt an, nur "rückinterpretieren" macht Fehler!

Ciao
Stefan

[Fritzew]

nach Deinem

Delphi-Quellcode:

//Speichern zum Angucken
  ms.savetofile('c:\temp\stream.xxx');  //Stream Position ist jetzt am Ende des Files
// Was soll er hier einlesen?
  ms.Read(len, sizeof(len));

Read liefert Dir doch die Anzahl der gelesenen Bytes.
also sowas wie :

Delphi-Quellcode:

if ms.Read(len, sizeof(len)) = sizeof(len) then
begin
end
else 
Error....

[sko1]

Hallo Zacherl,

Zitat:

Dein wirkliches Problem ist allerdings, dass du len -Bytes ausliest und nicht len * SizeOf(Char) .

und da fällt es mir wie Schuppen aus den (nicht mehr vorhandenen) Haaren, klar, das war die Ursache!
Und schon funktioniert alles wie gewünscht und die 255 Byte ShortString-Beschränkung im Record ist mit dem Stream elegant ausgehebelt

Da ich wirklich mit einem sehr langen String getestet habe (nicht wie im geposteten Code, sondern viiiel länger), habe ich nicht gesehen dass im ersten String auch schon nur die Hälfte stand, der Pointer daher mitten im ersten String und damit die utopische Längenangabe des zweiten Strings...

Vielen Dank!
Ciao
Stefan

[sko1]

Hallo Fritzew,

die ms.Position ist vor dem SaveToFile = 0 und danach immer noch = 0!
Beim Speichern wird der Zeiger nicht ans Ende verschoben wie beim Lesen!

Die Zeile war ja nur zum Testen und kommt wieder raus...

Ciao
Stefan