我知道如何在 F# 中使用可变对象进行序列化，但有没有办法使用 XmlSerializer 或 DataContractSerializer 使用记录类型进行序列化/反序列化？看起来有一种方法可以使用 KnownType 属性对有区别的联合执行此操作，但我正在寻找一种在没有默认构造函数的情况下使用非可变记录的方法...
【问题讨论】：
标签： serialization f# xml-serialization
Jomo Fisher 的示例 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 }
【讨论】：
从 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 中其他三个新功能的讨论：三重引号字符串、自动属性和未使用的变量警告。
【讨论】：
它不使用 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;}
【讨论】：
[<CLIMutable>] attr 就可以使用记录类型的方法（只需升级您的 newtonsoft）
您可以在类的属性上使用这一系列注释来格式化 XML：
[XmlRoot("root")]
[XmlElement("some-element")]
[XmlAttribute("some-attribute")]
[XmlArrayAttribute("collections")]
[XmlArrayItem(typeof(SomeClass), ElementName = "item")]
我在我的 c# 类上使用属性，但在 F# 中反序列化（c# 类是 ina 引用的库）。
在 f# 中：
use file = new FileStream(filePath, FileMode.Open)
let serializer= XmlSerializer(typeof<SomeClass>)
let docs = serializer.Deserialize file :?> SomeClass
【讨论】：