Problem beim Lesen (und schreiben?) von Stream

[Delphi.Narium]

Für die Arbeit mit ZIP-Archiven braucht man keinen temporären Ordner oder temporäre Dateien. Man kann auch einen Stream direkt ins ZIP packen.

Auf der Festplatte entsteht nur die ZIP-Datei.

[BerndS]

Beim Einlesen der Strings sollte nicht Result, sondern Result[1] verwendet werden, da hier der Zeichenpuffer des Ansistrings beginnt.

Delphi-Quellcode:

 function LoadStrFromStream(const st: TMemoryStream): AnsiString;
  var l: LongInt;
  begin
    st.ReadBuffer(l, SizeOf(l)); // -> beim ersten Durchlauf knallt es hier dann
    SetLength(Result, l);
    if l>0 then st.ReadBuffer(Result[1] ,l); 
  end;

[Andreas13]

Das erste Zeichen des Puffers ist 0 mund nicht 1. Der Positionszeiger muss auf 0 gesetzt werden:

Delphi-Quellcode:

 function LoadStrFromStream(Const St: TMemoryStream): AnsiString;
  var Len: LongInt;
  begin
    St.Position:= 0;
    St.ReadBuffer(Len, SizeOf(Len));
    SetLength(Result, Len);

    If Len > 0 Then 
      St.ReadBuffer(Result[0] , Len*SizeOf(Result[0]));
  end;

Gruß, Andreas

[BerndS]

Bei einem Shortstring ist Index 0 das Längenbyte und danach kommen die Zeichen. Bei Strings und Ansistrings beginnt der Puffer ebenfalls bei 1.
Teste es mal im Debugger. Ich habe es natürlich zuvor getestet.

[Andreas13]

Du hast recht, BerndS: Ich habe den AnsiString nicht beachtet...
Andreas

[Andreas13]

Ganz allgemein könnte man es evtl. so schreiben:

Delphi-Quellcode:

...
If Len > 0 Then
      St.ReadBuffer(Result[Low(Result)] , Len*SizeOf(Result[Low(Result)]));

damit das Lesen für jedwenden BufferType funktioniert.
Andreas

[e-gon]

Hallo,

vielen Dank für Eure ganzen Antworten!

Ein kleines Problem habe ich da allerdings noch:
Weiß jemand wie ich die Einstellungen eines Font abspeichere? Font.SaveToStream gibt es leider nicht. Und auch Stream.WriteComponent will nicht funktionieren...

Gruß
e-gon

[himitsu]

Schau dir mal TReader und TWriter an ... das nimmt auch Delphi, um die DFM zu speichern (wobei hier das Binär raus kommt, aber in Text konvertriert werden kann)
Und es gibt auch Mapper für XML oder JSON, um Objekte zu (de)serialisieren.


ReadOrWrite(Pointer(S), Length(S)*StringElementSize(S)); funktioniert mit allen Delphi-Strings (außer ShortString)

aber generell ist es besser statt Pointer das passende PChar/PAnsiChar/PWideChar zu verwenden.

Delphi-Quellcode:

ReadOrWrite(PChar(S), Length(S)*SizeOf(Char));  // String
ReadOrWrite(PAnsiChar(A), Length(A){*SizeOf(AnsiChar)});  // AnsiString
ReadOrWrite(PWideChar(U), Length(U)*SizeOf(WideChar));  // UnicodeString und WideString

und z.B. bei typlosen VAR-Parametern noch ein ^ hinten dran, an den Cast.