使用 HttpClient 的 F# POST 请求

Question

我是 F# 新手，我正在尝试了解如何使用 HttpClient 发出 POST 请求.我可以像这样发出 GET 请求

let getAsync (url:string) = 
    async {
        let httpClient = new System.Net.Http.HttpClient()
        let! response = httpClient.GetAsync(url) |> Async.AwaitTask
        response.EnsureSuccessStatusCode () |> ignore
        let! content = response.Content.ReadAsStringAsync() |> Async.AwaitTask
        return content
    }

getAsync "www.example.com/action"
|> Async.RunSynchronously
|> printfn "%s"

现在我想用一个包含简单键值对的主体发出 POST 请求(比如 genre : 1)。我可以创建一个 FormUrlEncodedContent但它需要一个 KeyValuePair .那么 F# 中的 kvp 等价物是什么？

Answer 1

这是一些要发布的示例代码。您可以从元组到键值对开始，然后对表单内容进行编码

    let initUrl = "https://url/to/post/to"
    let formVals =          [ "field1", "val1" ; "field2","val2" ]
                            |> List.map (fun (x,y) -> new KeyValuePair<string,string>(x,y) )
    let content = new FormUrlEncodedContent(formVals)
    let response = httpClient.PostAsync(initUrl, content).Result.Content.ReadAsStringAsync().Result