TStringStream - ein Bug oder was mache ich falsch?

[Elrond]

Hallo Zusammen,

der TStringStream arbeitet nicht wie erwartet. Wenn ich auf den gespeicherten String via DataString zugreifen möchte, fehlt einfach ein Großteil des Strings. Das gleiche wenn ich den String direkt in eine Textdatei speichern möchte. Der direkte Zugriff über den Bytestream klappt dagegen (macht das Framework). Ich habe schon unterschiedliche Encodings probiert, keine Abhilfe, auch hat der zurückgegebene String keine Encodingprobleme, er bricht einfach nach knapp 36T Zeichen ab.

Der betreffende Quelltext:

Code:

function TOcServiceDocumentServerModule.GetSwagger(URLEncoding:Boolean): TStream;
var  
  Doc: TOpenApiDocument;
  Builder: TOcOpenApiBuilder;
  Writer: TJsonWriter;
  Serializer: TSerializer;
  resultStr: String;

begin
  Builder := TOcOpenApiBuilder.Create((Module as TOcXDataServerModule).XModel);
  Doc := Builder.GetDocument;
  
  try
    Writer := nil;
    Serializer := nil;  
    Result := TStringStream.Create;
 // Result := TFileStream.Create('bla.txt', fmCreate);
    try
      Writer := TJsonWriter.Create(Result);
      Serializer := TSerializer.Create;
      Serializer.Write(Doc, Writer);

     //(Result as TStringStream).SaveToFile('bla.txt');
      
   if URLEncoding then begin
      resultStr := (Result as TStringStream).DataString;
       resultStr := StringReplace(resultStr, '<', '%3C', [rfIgnoreCase]);
       resultStr := StringReplace(resultStr, '>', '%3E', [rfIgnoreCase]);
       Result := TStringStream.Create(resultStr);
   end;
    except
      FreeAndNil(Result);
      raise;
    end;
  finally
    Serializer.Free;
    Writer.Free;
  end;
end;