记录类型的F＃序列化

Question

我知道如何使用可变对象在F＃中进行序列化，但是有没有办法使用XmlSerializer或DataContractSerializer使用记录类型来序列化/反序列化？貌似有一种方法可以使用KnownType属性识别联合做到这一点，但是我正在寻找一种方式来使用非可变记录没有默认构造函数...

Answer 1

样品code for reading data from Freebase由乔莫·费希尔使用DataContractJsonSerializer到将数据加载到不可变的F＃记录中。记录的声明，他使用这个样子的：

[<DataContract>] 
type Result<'TResult> = { // ' 
    [<field: DataMember(Name="code") >] 
    Code:string 
    [<field: DataMember(Name="result") >] 
    Result:'TResult // ' 
    [<field: DataMember(Name="message") >] 
    Message:string } 

这里的关键点是，在DataMember属性附加到这实际上是用来存储数据，而不是只读属性的基础字段F＃编译器生成（使用属性上的field:修饰符）。

我不是100％肯定这是否会与其他类型的序列化（可能不是）工作，但它可能是一个有用的指针开始...

编辑我不知道如果我失去了一些东西，但以下基本示例工作正常，我：

module Demo 

#r "System.Runtime.Serialization.dll" 

open System.IO 
open System.Text 
open System.Xml 
open System.Runtime.Serialization 

type Test = 
    { Result : string[] 
    Title : string } 

do 
    let sb = new StringBuilder() 
    let value = { Result = [| "Hello"; "World" |]; Title = "Hacking" } 
    let xmlSerializer = DataContractSerializer(typeof<Test>); 
    xmlSerializer.WriteObject(new XmlTextWriter(new StringWriter(sb)), value) 
    let sr = sb.ToString() 
    printfn "%A" sr 

    let xmlSerializer = DataContractSerializer(typeof<Test>); 
    let reader = new XmlTextReader(new StringReader(sr)) 
    let obj = xmlSerializer.ReadObject(reader) :?> Test 
    printfn "Reading: %A" obj 

EDIT 2如果你想生成XML更清洁，那么你可以添加的属性是这样的：

[<XmlRoot("test")>] 
type Test = 
    { [<XmlArrayAttribute("results")>] 
    [<XmlArrayItem(typeof<string>, ElementName = "string")>] 
    Result : string[] 
    [<XmlArrayAttribute("title")>] 
    Title : string } 

Answer 2

您可以使用这一系列的注解上的类的属性设置格式的XML：

[XmlRoot("root")] 
[XmlElement("some-element")] 
[XmlAttribute("some-attribute")] 
[XmlArrayAttribute("collections")] 
[XmlArrayItem(typeof(SomeClass), ElementName = "item")] 

我使用的属性在我的C＃类，但在F＃反序列化（C＃类INA引用LIB）。

在F＃

：

use file = new FileStream(filePath, FileMode.Open) 
let serializer= XmlSerializer(typeof<SomeClass>) 
let docs = serializer.Deserialize file :?> SomeClass 

Answer 3

它不使用的XmlSerializer或DataContractSerializer的，但Json.NET 6.0 includes nice F# support.

它看起来像这样：

type TestTarget = 
    { a: string 
     b: int } 

[<TestFixture>] 
type JsonTests() = 
    [<Test>] 
    member x.``can serialize``() = 
     let objectUnderTest = { TestTarget.a = "isa"; b = 9 } 
     let jsonResult: string = Newtonsoft.Json.JsonConvert.SerializeObject(objectUnderTest) 
     printfn "json is:\n%s" jsonResult 
     let xmlResult = Newtonsoft.Json.JsonConvert.DeserializeXmlNode(jsonResult, "root") 
     printfn "xml is:\n%s" (xmlResult.OuterXml) 

     let jsonRoundtrip = Newtonsoft.Json.JsonConvert.DeserializeObject<TestTarget>(jsonResult) 
     printfn "json roundtrip: %A" jsonRoundtrip 

     let xmlAsJson = Newtonsoft.Json.JsonConvert.SerializeXmlNode(xmlResult, Newtonsoft.Json.Formatting.Indented, true) 
     printfn "object -> json -> xml -> json:\n%A" xmlAsJson 
     let xmlRoundtrip = Newtonsoft.Json.JsonConvert.DeserializeObject<TestTarget>(xmlAsJson) 
     printfn "xml roundtrip:\n%A" xmlRoundtrip 

     Assert.That(true, Is.False) 
     () 

json is: 
{"a":"isa","b":9} 
xml is: 
<root><a>isa</a><b>9</b></root> 
json roundtrip: {a = "isa"; 
b = 9;} 
object -> json -> xml -> json: 
"{ 
    "a": "isa", 
    "b": "9" 
}" 
xml roundtrip: 
{a = "isa"; 
b = 9;} 

Answer 4

与F＃3.0开始，记录的系列化现在通过将CliMutableAttribute应用于该类型支持类型。例如：

[<CLIMutable>] 
type MyRecord = { Name : string; Age : int } 

此示例来自http://blogs.msdn.com/b/fsharpteam/archive/2012/07/19/more-about-fsharp-3.0-language-features.aspx，其包括该功能的讨论中和在其他三个新的功能采取F＃3.0：三重引用的字符串，自动属性，和未使用的变量的警告。