Back to Questions
1.3k
views3
comments
Need help for DataContractSerializer
f#

Hello,
I have some code to serialize/deserialize float32 array in old way:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

#light
open System
open System.IO
open System.Runtime.Serialization.Formatters.Binary
 
let f32Serialize(float32s: float32[]) =
    let ramStream = new MemoryStream()
    let binFormatter = new BinaryFormatter()
    binFormatter.Serialize( ramStream, float32s ) |> ignore
    ramStream.Seek(0L, SeekOrigin.Begin) |> ignore
    let ramArray = ramStream.ToArray()
    ramArray
 
let deserF32s(aObj: byte[]) =
    let mutable readArray:float32[] = ([| 0.0f |])
    if (aObj.Length >= 1 ) then
        let ramStream = new MemoryStream()
        let binFormatter = new BinaryFormatter()
        ramStream.Write(aObj, 0, aObj.Length)
        ramStream.Seek(0L, SeekOrigin.Begin) |> ignore
        readArray <- binFormatter.Deserialize(ramStream) :?> float32[]
    readArray
 
 
let f1 = [| 1.0f; 2.0f; 3.0f |]
let f1Serial = f32Serialize(f1)
let f2 = deserF32s(f1Serial)
printfn "Done"

But I know there is some bug in the legacy serialization, so I want to use DataContractSerializer to do the same job, but I can not find good samples.
If anyone knows how to do the same job of the above code using DataContractSerializer, please show me your code.
Thank you very much for your help and have a nice day!

.

Hi,

Pls take a look at the following code.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

// System.Runtime.Seriaization.dll and System.Xml.dll are needed.

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

let write(x : float32[]) =
    let ds = new DataContractSerializer(typeof @ float32[] @ ) // Please consider @ as > and <
    let ms = new MemoryStream()    
    ds.WriteObject(ms, x)
    ms.ToArray()

let read(x : byte[]) =
    let ds = new DataContractSerializer(typeof @ float32[] @)       // Please consider @ as > and <
    let ms = new MemoryStream(x);    
    ds.ReadObject(ms) :?> float32[]    

let x = [|1.0f; 2.0f; 3.0f|]
let xb = write(x)
let y = read(xb)
printfn "x = %A" x
printfn "y = %A" y

By the way, could you pls tell me how you do syntax high-lightening and manage not to disapper some symbols? Thanks.

Regards,

NNT

By on 1/22/2011 8:08 AM ()

Thank you very much, your code works!

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

#light
open System
open System.IO
open System.Runtime.Serialization
open System.Text
 
let write(x : float32[]) =
    let ds = new DataContractSerializer(typeof<float32[]>)
    let ms = new MemoryStream()
    ds.WriteObject(ms, x)
    ms.ToArray()
 
let read(x : byte[]) =
    let ds = new DataContractSerializer(typeof<float32[]>)
    let ms = new MemoryStream(x)
    ds.ReadObject(ms) :?> float32[]
 
let x = [|1.0f; 2.0f; 3.0f|]
let xb = write(x)
let y = read(xb)
printfn "x = %A" x
printfn "y = %A" x
printfn "Done"

My way to have format is simple: create the program.fs in VS2010, copy and paste the contents in MS-word, then copy and paste in this forum, even there are some garbage letters at the beginning, but the main body of program shows the color and format.

By on 1/22/2011 9:38 AM ()

Hi,

Thanks for the tip.

Regards,

NNT

By on 1/22/2011 6:44 PM ()

    Topic tags

    IntelliFactory Offices Copyright (c) 2011-2012 IntelliFactory. All rights reserved.
    Home | Products | Consulting | Trainings | Blogs | Jobs | Contact Us | Terms of Use | Privacy Policy | Cookie Policy     		Built with WebSharper