記錄類型的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：三重引用的字符串，自動屬性，和未使用的變量的警告。