IJsonDocument.WriteToStream

Копировать пример

Function CreateJson: IIOStreamSys;
Var
    NewJSON: IJsonObjectBuilder;
    Doc: IJsonDocument;
    MemStr: IMemoryStream;
Begin
    NewJSON := New JsonObjectBuilder.Create;
    NewJSON.AddBoolean("Bool", True);
    NewJSON.AddDouble("Double", 3.14);
    NewJSON.AddInteger("Integer", 100);
    NewJSON.AddNull("Null");
    NewJSON.AddString("String", "Test JSON");
    NewJSON.AddBoolean("Bool", True);
    // Сохранение в поток
    Doc := New JsonDocument.Create;
    Doc.RootElement := NewJSON.Build;
    MemStr := New MemoryStream.Create;
    Doc.WriteToStream(MemStr);
    Return MemStr;
End Function CreateJson;