Forum: Sonstige Fragen zu Delphi
by sko1,
12. Jan 2018
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
Forum: Sonstige Fragen zu Delphi
by sko1,
12. Jan 2018
Hallo Zacherl,
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...
Forum: Sonstige Fragen zu Delphi
by sko1,
12. Jan 2018
Das ist mir bekannt, deswegen wird ja alles in einen Stream verpackt!
Der kommt auch korrekt an, nur "rückinterpretieren" macht Fehler!
Ciao
Stefan
Forum: Sonstige Fragen zu Delphi
by sko1,
12. Jan 2018
Hallo,
um einen (umfangreichen und Strings enthaltenden) Record mit WM_COPYDATA versenden zu können wollte ich diesen in einen TMemoryStream packen und diesen versenden.
Beim Auspacken aber funktioniert nur der erste String:
Verpacken:
TMyRecord = packed record