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;