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 JsonVpdLicensedRequest() =
inherit JsonRequestDto()
member val ClientHostName:String = null with get,set
[<AllowNullLiteral>]
type JsonVpdLicensedResponse() =
inherit JsonDto()
member val IsLicensed:Boolean = new Boolean() with get,set
F# JsonVpdLicensedRequest 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/JsonVpdLicensedRequest HTTP/1.1
Host: buildmax.org
Accept: application/xml
Content-Type: application/xml
Content-Length: length
<JsonVpdLicensedRequest 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>
<ClientHostName>String</ClientHostName>
</JsonVpdLicensedRequest>
HTTP/1.1 200 OK Content-Type: application/xml Content-Length: length <JsonVpdLicensedResponse xmlns:i="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://schemas.datacontract.org/2004/07/ScannerVision.WebService.Json.Dto"> <IsLicensed>false</IsLicensed> </JsonVpdLicensedResponse>