namespace ScannerVision.WebService.Json.Dto
open System
open System.Collections
open System.Collections.Generic
open System.Runtime.Serialization
open ServiceStack
open ServiceStack.DataAnnotations
[<AllowNullLiteral>]
type JsonDto() =
class end
[<AllowNullLiteral>]
type JsonRequestDto() =
inherit JsonDto()
member val ClientCode:String = null with get,set
member val ClientRegistrationCode:String = null with get,set
member val Token:String = null with get,set
[<AllowNullLiteral>]
type JsonRegisterClientRequest() =
inherit JsonRequestDto()
type RegistrationResult =
| Success = 0
| ClientCodeNotFound = 1
| ClientAlreadyRegistered = 2
| Error = 3
[<AllowNullLiteral>]
type JsonRegisterClientResponse() =
inherit JsonDto()
member val Result:RegistrationResult = new RegistrationResult() with get,set
member val ErrorMessage:String = null with get,set
member val ClientRegistrationCode:String = null with get,set
F# JsonRegisterClientRequest DTOs
To override the Content-type in your clients, use the HTTP Accept Header, append the .xml suffix or ?format=xml
The following are sample HTTP requests and responses. The placeholders shown need to be replaced with actual values.
POST /xml/reply/JsonRegisterClientRequest HTTP/1.1
Host: buildmax.org
Accept: application/xml
Content-Type: application/xml
Content-Length: length
<JsonRegisterClientRequest xmlns:i="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://schemas.datacontract.org/2004/07/ScannerVision.WebService.Json.Dto">
<ClientCode>String</ClientCode>
<ClientRegistrationCode>String</ClientRegistrationCode>
<Token>String</Token>
</JsonRegisterClientRequest>
HTTP/1.1 200 OK Content-Type: application/xml Content-Length: length <JsonRegisterClientResponse xmlns:i="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://schemas.datacontract.org/2004/07/ScannerVision.WebService.Json.Dto"> <ClientRegistrationCode>String</ClientRegistrationCode> <ErrorMessage>String</ErrorMessage> <Result>Success</Result> </JsonRegisterClientResponse>