open System

open System.Collections

open System.Collections.Generic

open System.Linq

open System.Text

open System.Runtime.Serialization.Formatters

open System.IO

open System.Data

open System.ComponentModel.DataAnnotations

open System.Globalization

​

open Newtonsoft.Json

open Newtonsoft.Json.Linq

open Newtonsoft.Json.Converters

open Newtonsoft.Json.Serialization

​

// https://stackoverflow.com/questions/48119433/how-serialize-to-stream-with-json-net-on-f

​

// Note: I used the following answer for guidance on how to restrict the scope of sw and json

// https://stackoverflow.com/questions/4973795/f-keyword-use-and-using

​

let jsonToStream(value:'T) =

    let serializer = new JsonSerializer()

    let std = new IO.MemoryStream()

    (   use sw = new StreamWriter(std, new UTF8Encoding(false, true), 1024, true)

        use json = new JsonTextWriter(sw, CloseOutput = false)

        serializer.Serialize(json, value))

    std.Position <- 0L

    std

type Person(name:string, ?birthDate) =

    member x.Name = name

    member x.BirthDate = defaultArg birthDate System.DateTime.MinValue

​

let p = new Person ("John", DateTime.Today)

​

let st = jsonToStream(p)

​

printfn "\nAfter jsonToStream(), st.Position=%i" st.Position

​

let sw = new StreamReader(st)

​

let jsonString = sw.ReadToEnd()

​

printfn "\nResult using JsonConvert.SerializeObject():\n%s" jsonString

​

let jsonConvertString = (JsonConvert.SerializeObject(p))

​

printfn "\nResult using JsonConvert.SerializeObject():\n%s" jsonConvertString

​

if jsonString = jsonConvertString then

    printfn "\nResult are identical."

​

else

​

    raise (System.ApplicationException("Result are NOT identical!"))

​