Einzelnen Beitrag anzeigen

Andreas13

Registriert seit: 14. Okt 2006
Ort: Nürnberg
445 Beiträge
 
Delphi XE5 Professional
 
#11

AW: Problem beim Lesen (und schreiben?) von Stream

  Alt 13. Apr 2021, 16:31
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
Wenn man seinem Nächsten einen steilen Berg hinaufhilft, kommt man selbst dem Gipfel näher.
John C. Cornelius
  Mit Zitat antworten Zitat