Похоже, вы не можете изменить запись на класс или добавить в нее конструктор edfault.
Приведенный пример (на основе этой статьи: http://blogs.msdn.com/b/jomo_fisher/archive/2010/03/06/neat-sample-f-and-freebase.aspx) получает поток json от api.freebase.com; затем мы десериализуем в приписываемые классы; затем сериализуем его как Json на диск; затем сериализуем как XML на диск (с использованием DataContract), наконец, с лучшим контролем вывода сериализовать его как Xml на диск (с использованием XmlSerializer):
Примечания:
Атрибуты DataContract (family of) для
DataContractJsonSerializer и
JSON.DataContractJsonSerializer -
это происходит над именами классов и
переменные-члены. DataContract
вещи были прямыми - и
также работает с типами записей.
Атрибуты XmlSerializer (семейство)
над классом и собственностью
Getter / сеттер. Это требует типа
это объект по умолчанию
конструктор и свойство геттеров и
Сеттеры с атрибутами
каждый из них. Если недвижимость не
есть Eitehr геттер или сеттер это
не будет сериализовать - который был
сюрприз (я представлял по умолчанию
конструктор будет гарантировать, что
объект имел достойные значения при
десериализация и сеттеры
обновить с тем, что было сериализовано -
но нет, это не так).
Еще одна изящная (вздох) вещь о
XmlSerialization - это то, что классы
не может содержаться в модуле. Так
мы перемещаем типы в пространство имен ...
namespace JSONExample
open System
open System.IO
open System.Net
open System.Text
open System.Web
open System.Xml
open System.Security.Authentication
open System.Runtime.Serialization //add assemnbly reference System.Runtime.Serialization System.Xml
open System.Xml.Serialization
open System.Collections.Generic
[<DataContract>]
type ChemicalElementRecord() =
[<field: DataMember(Name="name") >]
let mutable name: string = ""
[<field: DataMember(Name="boiling_point") >]
let mutable boilingPoint: string =""
[<field: DataMember(Name="atomic_mass") >]
let mutable atomicMass: string = ""
[<XmlAttribute("name")>]
member this.Name with get() = name and set v = name <- v
[<XmlAttribute("boiling-point")>]
member this.BoilingPoint with get() = boilingPoint and set v = boilingPoint <- v
[<XmlAttribute("atomic-mass")>]
member this.AtomicMass with get() = atomicMass and set v = atomicMass <- v
[<XmlRoot("freebase")>]
[<DataContract>]
type FreebaseResultRecord() =
[<field: DataMember(Name="code") >]
let mutable code: string = ""
[<field: DataMember(Name="result") >]
let mutable result: ChemicalElementRecord array = Array.empty
[<field: DataMember(Name="message") >]
let mutable message: string = ""
[<XmlElement("message")>]
member this.Message with get() : string = message and set v = message <- v
[<XmlArrayAttribute("chemical-elements")>]
[<XmlArrayItem(typeof<ChemicalElementRecord>, ElementName = "chemical-element")>]
member this.Result with get() = result and set v = result <- v
[<XmlAttribute("code")>]
member this.Code with get() = code and set v = code <- v
module Test =
let getJsonFromWeb() =
let query = "[{'type':'/chemistry/chemical_element','name':null,'boiling_point':null,'atomic_mass':null}]"
let query = query.Replace("'","\"")
let queryUrl = sprintf "http://api.freebase.com/api/service/mqlread?query=%s" "{\"query\":"+query+"}"
let request : HttpWebRequest = downcast WebRequest.Create(queryUrl)
request.Method <- "GET"
request.ContentType <- "application/x-www-form-urlencoded"
let response = request.GetResponse()
let result =
try
use reader = new StreamReader(response.GetResponseStream())
reader.ReadToEnd();
finally
response.Close()
let data = Encoding.Unicode.GetBytes(result);
let stream = new MemoryStream()
stream.Write(data, 0, data.Length);
stream.Position <- 0L
stream
let test =
// get some JSON from the web
let stream = getJsonFromWeb()
// convert the stream of JSON into an F# Record
let JsonSerializer = Json.DataContractJsonSerializer(typeof<FreebaseResultRecord>)
let result: FreebaseResultRecord = downcast JsonSerializer.ReadObject(stream)
// save the Records to disk as JSON
use fs = new FileStream(@"C:\temp\freebase.json", FileMode.Create)
JsonSerializer.WriteObject(fs,result)
fs.Close()
// save the Records to disk as System Controlled XML
let xmlSerializer = DataContractSerializer(typeof<FreebaseResultRecord>);
use fs = new FileStream(@"C:\temp\freebase.xml", FileMode.Create)
xmlSerializer.WriteObject(fs,result)
fs.Close()
use fs = new FileStream(@"C:\temp\freebase-pretty.xml", FileMode.Create)
let xmlSerializer = XmlSerializer(typeof<FreebaseResultRecord>)
xmlSerializer.Serialize(fs,result)
fs.Close()
ignore(test)