工作代码在这个问题的底部!
在 F# 中使用以下 WebApi 控制器:
namespace FsWeb.Controllers
open System.Web
open System.Web.Mvc
open System.Net.Http
open System.Web.Http
open Microsoft.FSharp.Linq;
open Microsoft.FSharp.Data.TypeProviders;
type dbSchema = SqlDataConnection<"conn string">
[<CLIMutable>]
type ViewModelRec = { CustomerId : string }
type ValuesController() =
inherit ApiController()
let db = dbSchema.GetDataContext()
do
db.DataContext.Log <- System.Console.Out
// GET /api/values
member x.Get(take:int, skip:int) =
let t = take
let s = skip
query {
for row in db.Reservations do
skip s
take t
select { CustomerId = row.CustomerId.ToString() }
}
XML 输出为:
<ArrayOfViewModelRec xmlns:i="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://schemas.datacontract.org/2004/07/FsWeb.Controllers">
<ViewModelRec>
<CustomerId_x0040_>A98971F0-5F93-4F0D-B5AC-95E161458381</CustomerId_x0040_>
</ViewModelRec>
<ViewModelRec>
<CustomerId_x0040_>60DF7CF6-91FB-4BBE-AD6B-FE0CAA32F60E</CustomerId_x0040_>
</ViewModelRec>
<ViewModelRec>
<CustomerId_x0040_>84506E40-139C-4DD1-B396-3CE13DC20996</CustomerId_x0040_>
</ViewModelRec>
<ViewModelRec>
<CustomerId_x0040_>D9FABC12-9B19-46C2-9776-E31171A302D5</CustomerId_x0040_>
</ViewModelRec>
<ViewModelRec>
<CustomerId_x0040_>B1B6C617-AA0E-46A9-A0B6-312A229BE178</CustomerId_x0040_>
</ViewModelRec>
<ViewModelRec>
<CustomerId_x0040_>BAB194AE-CD2C-400F-B81E-2A293C50C404</CustomerId_x0040_>
</ViewModelRec>
<ViewModelRec>
<CustomerId_x0040_>AE001AB4-8410-43BF-9C93-AE5A2EACFDF5</CustomerId_x0040_>
</ViewModelRec>
<ViewModelRec>
<CustomerId_x0040_>2DDBDB91-9307-4BF7-865F-C6237D09D542</CustomerId_x0040_>
</ViewModelRec>
<ViewModelRec>
<CustomerId_x0040_>A3E93E5C-2B7E-4B8D-8AAD-AD245E32093F</CustomerId_x0040_>
</ViewModelRec>
<ViewModelRec>
<CustomerId_x0040_>B64B814F-9B4C-46BD-A804-648309FA7DD0</CustomerId_x0040_>
</ViewModelRec>
</ArrayOfViewModelRec>
当我改用一个类时,命名看起来是正确的(没有x0040标记)。
有人建议吗?
更新:解决方案:
namespace FsWeb.Controllers
open System.Web
open System.Web.Mvc
open System.Net.Http
open System.Web.Http
open System.Runtime.Serialization;
open Microsoft.FSharp.Linq;
open Microsoft.FSharp.Data.TypeProviders;
type dbSchema = SqlDataConnection<"here comes the connection string">
[<DataContract>]
type ViewModelRec = {
[<field: DataMember(Name="CustomerId")>]
CustomerId : string }
type ValuesController() =
inherit ApiController()
let db = dbSchema.GetDataContext()
do
db.DataContext.Log <- System.Console.Out
member x.Get(take:int, skip:int) =
let t = take
let s = skip
query {
for row in db.Reservations do
skip s
take t
select { CustomerId = row.CustomerId.ToString() }
}