<Dalija Prasnikar> wrote in message news:✉forums.embarcadero.com...

> Actually, it would be the best if you skip using any kind of
> string stream and load string directly.

There are three problems with that code:


1) you are using RawByteString, but you are not specifying any codepage for 
it.


2) you need to use TStream.ReadBuffer() instead of TStream.Read() to ensure 
the entire string is read.


3) if Size is -1, but the TStream does not have anything left to read, you 
allocate a 0-length String (thus the String is nil) but then dereference it, 
which will crash.


Try this instead:


{code:delphi}
function RawStringLoadFromStream(Stream: TStream; Size: Integer = -1): 
RawByteString;
begin
  if Size = -1 then Size := Stream.Size - Stream.Position;
  if Size <= 0 then Result := ''
  else
  begin
    SetLength(Result, Size);
    Stream.ReadBuffer(Result[1], Size);
    SetCodePage(Result, SomeCodePageHere, False);
  end;
end;
{code}


-- 
Remy Lebeau (TeamB)